FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

TEXT

Make a password Field


Quickie sample program:
gPassword$ = ""
gProgramEnd = 0
END GLOBALS

LOCAL FN doEdit
 X$ = TEKEY$
 gPassword$ = gPassword$ + X$
 TEKEY$ = " -- "
END FN

LOCAL FN doDialog
 evnt = DIALOG(0)
 id = DIALOG(evnt)
 LONG IF evnt = _btnClick
  gProgramEnd = 1
 END IF
END FN

ON EDIT FN doEdit
ON DIALOG FN doDialog
WINDOW 1, "Password Test", (3,41)-(509,338)
EDIT FIELD 1, "", (10,10)-(110,26)
BUTTON 1,1, "OK", (10,35)-(90,60),1

WHILE gProgramEnd = 0
 HANDLEEVENTS
WEND

CALL MOVETO (10,100)
PRINT "password = " gPassword$
DELAY 1000
END
Al Staffieri Jr.