6 26 1 VB Example

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