- Code: Select all Expand view RUN
#include "Fwce.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cUserid := SPACE( 5 )
LOCAL cPasswd := SPACE( 8 )
DEFINE DIALOG oDlg;
RESOURCE "LOGIN"
REDEFINE COMBOBOX cUserid;
ID 101 OF oDlg;
ITEMS { "1", "2", "3" }
REDEFINE GET cPasswd;
ID 102 OF oDlg
REDEFINE BUTTON;
ID 201 OF oDlg;
ACTION oDlg:End()
ACTIVATE DIALOG oDlg
RETURN NIL
- Code: Select all Expand view RUN
#ifdef _CE
#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"
#endif
LOGIN DIALOG 0, 0, 285, 307
STYLE WS_POPUP
FONT 8, "MS Sans Serif"
{
LTEXT "Userid:", -1, 10, 11, 25, 10
COMBOBOX 101, 45, 10, 49, 65, CBS_DROPDOWNLIST | WS_TABSTOP
LTEXT "Password:", -1, 10, 31, 35, 10
EDITTEXT 102, 45, 30, 50, 13, ES_PASSWORD | WS_BORDER | WS_TABSTOP
PUSHBUTTON "&Ok", 201, 45, 60, 40, 15
}
EMG