6 21 1 VB Example

LANSA Open Guide

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