Page History
...
Private Sub Form_Load()
...
' initializes the form setting field labels and sizes
Dim iRet As Integer, sBuff As String, length As Integer
Dim decimals As Integer
…
'read and set field labels
'Code
sBuff = String(FIELD_DATA_SIZE,
...
Chr(0))
...
iRet = LceGetFieldLabel(iSession,
...
"SKILCODE",
...
sBuff)
lbCode.
...
Caption =
...
sTrim(sBuff)
'Desc
...
sBuff = String(FIELD_DATA_SIZE,
...
Chr(0))
...
iRet = LceGetFieldLabel(iSession,
...
"SKILDESC",
...
sBuff)
lbDesc.
...
Caption =
...
sTrim(sBuff)
…
...
sBuff = String(FIELD_DATA_SIZE,
...
Chr(0))
...
iRet = LceGetFieldType(iSession,
...
"SKILCODE",
...
sBuff,
...
length,_
decimals)
txtCode.
...
MaxLength =
...
length
'note this is valid only if no edit codes are used
End Sub