Moving thru StringGadget inputs
Posted: Thu May 02, 2013 5:16 pm
This Code might help someone like me who's making transition
from Visual Basic over to PureBasic .
i'm converting one of my VB6 programs over to PureBasic
that has a little over 50 Inputs
the following PB Code is what i've come up with to simulate my VB6 program :
from Visual Basic over to PureBasic .
i'm converting one of my VB6 programs over to PureBasic
that has a little over 50 Inputs
the following PB Code is what i've come up with to simulate my VB6 program :
Code: Select all
EnableExplicit
OpenWindow(0, 0, 0, 322, 240, "[EnterKey=travel down] [EscapeKey=travel up]", #PB_Window_SystemMenu | #PB_Window_ScreenCentered )
Define vbKeyReturn.b : vbKeyReturn = 13
Define vbKeyEscape.b : vbKeyEscape = 27
Define vbKeyUp.b : vbKeyUp = 38
Define vbKeyDown.b : vbKeyDown = 40
AddKeyboardShortcut(0, #PB_Shortcut_Return, vbKeyReturn)
AddKeyboardShortcut(0, #PB_Shortcut_Escape, vbKeyEscape)
AddKeyboardShortcut(0, #PB_Shortcut_Up,vbKeyUp)
AddKeyboardShortcut(0, #PB_Shortcut_Down,vbKeyDown)
LoadFont(10,"Verdana", 10)
StringGadget(0, 8, 10, 306, 20, "Normal StringGadget...")
StringGadget(1, 8, 35, 306, 20, "1234567", #PB_String_Numeric)
StringGadget(2, 8, 60, 306, 20, "Readonly StringGadget", #PB_String_ReadOnly)
StringGadget(3, 8, 85, 306, 20, "lowercase...", #PB_String_LowerCase)
StringGadget(4, 8, 110, 306, 20, "uppercase...", #PB_String_UpperCase)
StringGadget(5, 8, 140, 306, 20, "Borderless StringGadget", #PB_String_BorderLess)
StringGadget(6, 8, 170, 306, 20, "Password", #PB_String_Password) : SetGadgetAttribute(6,#PB_String_MaximumLength,8)
TextGadget(7, 8, 195, 306, 32, "", #PB_Text_Border)
SetGadgetColor(7, #PB_Gadget_FrontColor,RGB(0,80,0))
SetGadgetFont(7, FontID(10))
SetActiveGadget(0) : SendMessage_(GadgetID(GetActiveGadget()), #EM_SETSEL, 0, -1)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break : End
Case #PB_Event_Gadget
Select EventType()
Case #PB_EventType_Focus
SendMessage_(GadgetID(EventGadget()),#EM_SETSEL,0,-1)
SetGadgetText(7,"StringGadget Number = " + Str(GetActiveGadget()))
EndSelect
Case #PB_Event_Menu
Select EventMenu()
Case vbKeyReturn,vbKeyDown
Select GetActiveGadget()
Case 0 To 5 : SetActiveGadget(GetActiveGadget() + 1)
Case 6 : SetActiveGadget(0)
EndSelect
Case vbKeyEscape,vbKeyUp
Select GetActiveGadget()
Case 0 : SetActiveGadget(6)
Case 1 To 6 : SetActiveGadget(GetActiveGadget() - 1)
EndSelect
EndSelect
EndSelect
ForEver