[ |../../index.htm#lansa/srvgudba_0140.htm]
You are here:

6.21.1 VB Example

Private Sub txtCode_GotFocus()
 
    ' sets txtCode as the current field 
    ' sets form status line to contain the current field's long
    ' description
    ' sets the current field name to use with "get extended help" 
 
    Dim sBuff As String, iRet As Integer
    sBuff = String(FIELD_DATA_SIZE, Chr(0)) ' pre-allocate memory
 
    ' set form status line to contain the current field long description 
    iRet = LceGetFieldDesc(iSession, "SKILCODE", sBuff)
    frmMain.status2 = (sTrim(sBuff)) 
 
    ' store the current field name to use with "get extended help" 
    sLastField = "SKILCODE" ' for help
 
[ |../../index.htm#lansa/srvgudba_0140.htm]