6.26.1 VB Example

     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