Code : Tout sélectionner
Global Dim IdText(50)
Global Dim IdCombo(50)
Global Dim IdString(50)
Global MaxBase
#FenetreBase = 1
#LabelNbreBase = 10
#ComboNbreBase = 11
OpenWindow(#FenetreBase, 343, 206, 696, 50, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
CreateGadgetList(WindowID(#FenetreBase))
TextGadget(#LabelNbreBase, 15, 17, 100, 20, "Nombre de bases ")
ComboBoxGadget(#ComboNbreBase, 110, 15, 90, 300, #PB_ComboBox_Editable)
For i = 1 To 10
AddGadgetItem(#ComboNbreBase, - 1, Trim(Str(i)))
Next
Repeat
EvenementFenetre = WaitWindowEvent()
Select EvenementFenetre
Case #PB_Event_Gadget
Select EventGadget()
Case #ComboNbreBase
If EventType() = #CBN_SELCHANGE
If Val(GetGadgetText(#ComboNbreBase)) > MaxBase
For MaxBase = 1 To Val(GetGadgetText(#ComboNbreBase))
IdText(MaxBase) = TextGadget(#PB_Any, 10, 30 + (MaxBase * 30), 47, 20, "Base", #PB_Text_Center)
IdCombo(MaxBase) = ComboBoxGadget(#PB_Any, 50, 30 + (MaxBase * 30), 90, 300, #PB_ComboBox_Editable)
IdString(MaxBase) = StringGadget(#PB_Any, 150, 30 + (MaxBase * 30), 530, 20, "")
For t = 1 To 115
AddGadgetItem(IdCombo(MaxBase), - 1, Trim(Str(t)))
Next
Next
Else
For o = MaxBase To MaxBase - Val(GetGadgetText(#ComboNbreBase)) + 1 Step - 1
FreeGadget(IdText(o))
FreeGadget(IdCombo(o))
FreeGadget(IdString(o))
Next
MaxBase = o
EndIf
ResizeWindow(#FenetreBase, #PB_Ignore, #PB_Ignore, #PB_Ignore, GadgetY(IdText(MaxBase - 1)) + 30)
EndIf
EndSelect
EndSelect
Until EvenementFenetre = #PB_Event_CloseWindow
Code : Tout sélectionner
; http://www.purebasic.fr/english/viewtopic.php?t=30961
; Code de SROD
; Agrandi par KCC pour montrer plusieurs exemples
Structure _countgadgets
className$
count.l
EndStructure
Procedure.l EnumChildWindowProc(hwnd, *cg._countgadgets)
Protected buffer$
buffer$=Space(100)
GetClassName_(hwnd, @buffer$, 100)
If buffer$ = *cg\className$
*cg\count + 1
EndIf
ProcedureReturn 1
EndProcedure
;The following function takes a window handle and a gadget handle and returns a count of the
;number of similar controls on the given window.
;This count includes the specified gadget.
Procedure.l CountSimilarGadgets(winhWnd, gadgethWnd)
Protected buffer$
Protected cg._countgadgets
If IsWindow_(winhWnd) And IsWindow_(gadgethWnd)
buffer$=Space(100)
GetClassName_(gadgethWnd, @buffer$, 100)
cg\className$ = buffer$
EnumChildWindows_(winhWnd, @EnumChildWindowProc(),@cg)
EndIf
ProcedureReturn cg\count
EndProcedure
If OpenWindow(0, 100, 100, 600, 600, "Count gadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
ButtonGadget(0, 10, 10, 200, 20, "Standard Button")
ButtonGadget(1, 10, 40, 200, 20, "Left Button", #PB_Button_Left)
ButtonGadget(2, 10, 70, 200, 20, "Right Button", #PB_Button_Right)
ButtonGadget(3, 10,100, 200, 60, "Multiline Button (longer text gets automatically wrapped)", #PB_Button_MultiLine)
ButtonGadget(4, 10,170, 200, 20, "Toggle Button", #PB_Button_Toggle)
StringGadget(5, 10, 200, 100, 20, "Coucou")
ComboBoxGadget(6, 10,240, 100, 50)
ComboBoxGadget(7, 10, 300, 100, 50)
ComboBoxGadget(8, 10, 350, 100, 50)
ListViewGadget(9, 10, 400, 100, 30)
ListViewGadget(10, 10, 450, 100, 30)
CountButton = CountSimilarGadgets(WindowID(0), GadgetID(4))
CountText = CountSimilarGadgets(WindowID(0), GadgetID(5))
CountBox = CountSimilarGadgets(WindowID(0), GadgetID(6))
CountList = CountSimilarGadgets(WindowID(0), GadgetID(9))
Debug "There are " + Str(countButton) + " buttons!"
Debug "There are " + Str(countText) + " Texte!"
Debug "There are " + Str(countBox) + " ComboBox!"
Debug "There are " + Str(countList) + " ListBox!"
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
EndIf
EndCode : Tout sélectionner
Procedure.s GetGadgetClass(GadgetNumber.l)
Protected Class.s
Class = Space(255)
GetClassName_(GadgetID(GadgetNumber), @Class, 254)
ProcedureReturn Class
EndProcedure
;
Procedure GetGadgetStyle(GadgetNumber.l)
ProcedureReturn GetWindowLong_(GadgetID(GadgetNumber), #GWL_STYLE)
EndProcedure
;
If OpenWindow(0, 0, 0, 150, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
ButtonGadget(0, 0, 10, 150, 20, "ButtonGadget")
Frame3DGadget(1, 0, 60, 150, 20, "Frame3DGadget")
CheckBoxGadget(2, 0, 110, 150, 20, "CheckBoxGadget")
OptionGadget(3, 0, 160, 150, 20, "OptionGadget")
;
For GadgetNumber = 0 To 3
GadgetStyle = GetGadgetStyle(GadgetNumber)
Select GetGadgetClass(GadgetNumber)
Case "Button"
If (GadgetStyle & #BS_CHECKBOX) And (GadgetStyle & #WS_TABSTOP)
Debug "Le gadget '" + GetGadgetText(GadgetNumber) + "' est un CheckboxGadget"
ElseIf (GadgetStyle & #BS_AUTORADIOBUTTON) And (GadgetStyle & #WS_TABSTOP)
Debug "Le gadget '" + GetGadgetText(GadgetNumber) + "' est un OptionGadget"
ElseIf (GadgetStyle & #BS_GROUPBOX) And (GadgetStyle ~ #WS_TABSTOP)
Debug "Le gadget '" + GetGadgetText(GadgetNumber) + "' est un Frame3DGadget"
Else
Debug "Le gadget '" + GetGadgetText(GadgetNumber) + "' est un ButtonGadget"
EndIf
EndSelect
Next
;
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
EndIf