STATIC PUBLIC SUB Main()
DIM myForm AS FMain
myForm = NEW FMain
myForm.Show
END
PUBLIC SUB btnReset()
IF Button1.Picture = Picture["y.png"] THEN Button1.Picture = Picture["x.png"]
IF Button2.Picture = Picture["y.png"] THEN Button2.Picture = Picture["x.png"]
IF Button3.Picture = Picture["y.png"] THEN Button3.Picture = Picture["x.png"]
IF Button4.Picture = Picture["y.png"] THEN Button4.Picture = Picture["x.png"]
END
PUBLIC SUB Button1_Click()
btnReset()
Button1.Picture = Picture["y.png"]
END
PUBLIC SUB Button2_Click()
btnReset()
Button2.Picture = Picture["y.png"]
END
PUBLIC SUB Button3_Click()
btnReset()
Button3.Picture = Picture["y.png"]
END
PUBLIC SUB Button4_Click()
btnReset()
Button4.Picture = Picture["y.png"]
END
Attachment: | Action: | Size: | Date: | Who: | Comment: |
---|---|---|---|---|---|
![]() |
action | 3124 | 17 Dec 2004 - 17:13 | JochenGeorges | |
![]() |
action | 2578 | 17 Dec 2004 - 17:17 | JochenGeorges |