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 Sub