home *** CD-ROM | disk | FTP | other *** search
-
-
- category$(0) = "Paul"
- category$(1) = "Carl"
-
- WindowWidth = 344
- WindowHeight = 290
-
- ComboboxColor$ = "darkblue"
-
- groupbox #main.group, "Example", 26, 16, 288, 200
- combobox #main.category, category$(, [selectCategory], 46, 41, 96, 95
- listbox #main.from, from$(, [selectFrom], 46, 71, 100, 100
- listbox #main.into, into$(, [selectInto], 174, 71, 100, 100
- button #main, ">> Move >>", [moveFromSelection], UL, 54, 181
- button #main, "OK", [acceptSelections], UL, 270, 224
- open "Hi Paul" for dialog as #main
- gh = hwnd(#main.group)
-
-
- [inputLoop]
-
- input r$
- goto [inputLoop]
-
-
- [selectCategory] 'Perform action for the combobox named 'category'
-
- print #main.category, "selection?"
- input #main.category, name$
-
- 'notice "you selected "; name$
- if name$ = "Paul" then [paulSelected]
- if name$ = "Carl" then [carlSelected]
-
- goto [inputLoop]
-
- [paulSelected]
-
- from$(0) = "54 Mercury"
- from$(1) = "Herbalife"
- from$(2) = "GOD"
-
- print #main.from, "reload"
- goto [updateGroupboxLabel]
-
- [carlSelected]
-
- from$(0) = "62 VW"
- from$(1) = "Shoptalk Systems"
- from$(2) = "GOD"
-
- print #main.from, "reload"
-
- [updateGroupboxLabel]
-
- open "user" for dll as #user
-
- calldll #user, "SetWindowText", _
- gh as word, _
- name$ as struct, _
- result as short
- close #user
-
- goto [inputLoop]
-
- [selectFrom] 'Perform action for the listbox named 'from'
-
- 'Insert your own code here
-
-
- [selectInto] 'Perform action for the listbox named 'into'
-
- 'Insert your own code here
-
-
- [moveFromSelection] 'Perform action for the button named 'moveButton'
-
- 'Insert your own code here
-
-
- [acceptSelections] 'Perform action for the button named 'okButton'
-
- 'Insert your own code here
-
- goto [inputLoop]
-