6.24.1 VB Example

     Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
         ' This function displays LANSA Repository Help text when the user 
         ' presses F1 in a form
 
         Dim sBuff As String
 
         If KeyCode = vbKeyF1 Then ' f1 pressed
    
             If sLastField <> "" Then ' focus is in a field 
                ' Display field help text
 
                sBuff = String(2049, Chr(0)) ' set buffer
        iRet = LceGetFieldHelpText(iSession, _
               sLastField, "U", Chr(13), sBuff, 2048)
                ' display help text
                Call ShowText("Data Entry Help", sTrim(sBuff), _
                       "", "", "") ' see util.bas
             End If      
         End If
     End Sub