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