Dziwnie działające GUI

Vneeas · 14 Marca 2017

Siemka, mam problem z działającym GUI, chodzi mianowicie o to, że muszę czasem kliknąć 5 razy w Button żeby zaszło w nim zdarzenie, czasami zaskakuje za pierwszym razem, a za innym zaś za 3 razem. Jak powinno wyglądać prawidłowe zdarzenie do Buttona, że po kliknięciu chciałbym wyłączyć drugi Button? Proszę o wyrozumiałość, dopiero zaczynam

Mój kod odnośnie tego Buttona wygląda tak i jest umieszczony w While 1

$nMsg = GUIGetMsg()
	If GUICtrlRead($Radio1)=$GUI_CHECKED And $nMsg = $Button8 Then
		GUICtrlSetState($Radio4, $GUI_UNCHECKED)
		GUICtrlSetState($Radio5, $GUI_UNCHECKED)
		GUICtrlSetState($Radio6, $GUI_UNCHECKED)
		GUICtrlSetState($Radio7, $GUI_UNCHECKED)
		GUICtrlSetState($Radio8, $GUI_UNCHECKED)
		GUICtrlSetState($Radio9, $GUI_UNCHECKED)
		GUICtrlSetState($Radio10, $GUI_UNCHECKED)
		GUICtrlSetState($Radio11, $GUI_UNCHECKED)
		GUICtrlSetState($Radio12, $GUI_UNCHECKED)
		GUICtrlSetState($Radio13, $GUI_UNCHECKED)
	EndIf

Chodzi o to, że wymagam zaznaczenia Radio (są 3 opcje) i trzeba potwierdzić Buttonem wybór, wówczas odznaczają się konkretne inne Radia.

Proszę głupka poprawić :(( :lenny:

Pawellek · 15 Marca 2017

U mnie ten kod działa za kazdym razem. ;>

#include <GUIConstantsEx.au3>

Example()

Func Example()
	; Create a GUI with various controls.
	Local $hGUI = GUICreate("Example")
	Local $Button8 = GUICtrlCreateButton("Button8", 310, 370, 85, 25)
	Local $Radio1 = GUICtrlCreateRadio("Radio 1", 10, 10, 120, 20)
	Local $Radio2 = GUICtrlCreateRadio("Radio 2", 10, 40, 120, 20)
	Local $Radio3 = GUICtrlCreateRadio("Radio 3", 10, 70, 120, 20)
	Local $Radio4 = GUICtrlCreateRadio("Radio 4", 10, 100, 120, 20)
	Local $Radio5 = GUICtrlCreateRadio("Radio 5", 10, 130, 120, 20)
	Local $Radio6 = GUICtrlCreateRadio("Radio 6", 10, 160, 120, 20)
	Local $Radio7 = GUICtrlCreateRadio("Radio 7", 10, 190, 120, 20)
	Local $Radio8 = GUICtrlCreateRadio("Radio 8", 10, 210, 120, 20)
	Local $Radio9 = GUICtrlCreateRadio("Radio 9", 10, 240, 120, 20)
	Local $Radio10 = GUICtrlCreateRadio("Radio 10", 10, 270, 120, 20)
	Local $Radio11 = GUICtrlCreateRadio("Radio 11", 10, 300, 120, 20)
	Local $Radio12 = GUICtrlCreateRadio("Radio 12", 10, 330, 120, 20)
	Local $Radio13 = GUICtrlCreateRadio("Radio 13", 10, 360, 120, 20)

	; Display the GUI.
	GUISetState(@SW_SHOW, $hGUI)

	; Loop until the user exits.
	While 1
		$nMsg = GUIGetMsg()
		If $nMsg = $GUI_EVENT_CLOSE Then ExitLoop
		If GUICtrlRead($Radio1) = $GUI_CHECKED And $nMsg = $Button8 Then
			GUICtrlSetState($Radio4, $GUI_UNCHECKED)
			GUICtrlSetState($Radio5, $GUI_UNCHECKED)
			GUICtrlSetState($Radio6, $GUI_UNCHECKED)
			GUICtrlSetState($Radio7, $GUI_UNCHECKED)
			GUICtrlSetState($Radio8, $GUI_UNCHECKED)
			GUICtrlSetState($Radio9, $GUI_UNCHECKED)
			GUICtrlSetState($Radio10, $GUI_UNCHECKED)
			GUICtrlSetState($Radio11, $GUI_UNCHECKED)
			GUICtrlSetState($Radio12, $GUI_UNCHECKED)
			GUICtrlSetState($Radio13, $GUI_UNCHECKED)
			MsgBox(64, "", "Button8")
		EndIf
	WEnd

	; Delete the previous GUI and all controls.
	GUIDelete($hGUI)
EndFunc   ;==>Example

Wiec kawalek kodu ktory wrzuciles nie jest problelem, pewnie inna petla blokuje GUI.

Radio buttony tez same sie odznaczaja jak naleza do tej samej grupy, nie musisz tego robic recznie.

Vneeas · 15 Marca 2017

U mnie ten kod działa za kazdym razem. ;>

#include <GUIConstantsEx.au3>

Example()

Func Example()
	; Create a GUI with various controls.
	Local $hGUI = GUICreate("Example")
	Local $Button8 = GUICtrlCreateButton("Button8", 310, 370, 85, 25)
	Local $Radio1 = GUICtrlCreateRadio("Radio 1", 10, 10, 120, 20)
	Local $Radio2 = GUICtrlCreateRadio("Radio 2", 10, 40, 120, 20)
	Local $Radio3 = GUICtrlCreateRadio("Radio 3", 10, 70, 120, 20)
	Local $Radio4 = GUICtrlCreateRadio("Radio 4", 10, 100, 120, 20)
	Local $Radio5 = GUICtrlCreateRadio("Radio 5", 10, 130, 120, 20)
	Local $Radio6 = GUICtrlCreateRadio("Radio 6", 10, 160, 120, 20)
	Local $Radio7 = GUICtrlCreateRadio("Radio 7", 10, 190, 120, 20)
	Local $Radio8 = GUICtrlCreateRadio("Radio 8", 10, 210, 120, 20)
	Local $Radio9 = GUICtrlCreateRadio("Radio 9", 10, 240, 120, 20)
	Local $Radio10 = GUICtrlCreateRadio("Radio 10", 10, 270, 120, 20)
	Local $Radio11 = GUICtrlCreateRadio("Radio 11", 10, 300, 120, 20)
	Local $Radio12 = GUICtrlCreateRadio("Radio 12", 10, 330, 120, 20)
	Local $Radio13 = GUICtrlCreateRadio("Radio 13", 10, 360, 120, 20)

	; Display the GUI.
	GUISetState(@SW_SHOW, $hGUI)

	; Loop until the user exits.
	While 1
		$nMsg = GUIGetMsg()
		If $nMsg = $GUI_EVENT_CLOSE Then ExitLoop
		If GUICtrlRead($Radio1) = $GUI_CHECKED And $nMsg = $Button8 Then
			GUICtrlSetState($Radio4, $GUI_UNCHECKED)
			GUICtrlSetState($Radio5, $GUI_UNCHECKED)
			GUICtrlSetState($Radio6, $GUI_UNCHECKED)
			GUICtrlSetState($Radio7, $GUI_UNCHECKED)
			GUICtrlSetState($Radio8, $GUI_UNCHECKED)
			GUICtrlSetState($Radio9, $GUI_UNCHECKED)
			GUICtrlSetState($Radio10, $GUI_UNCHECKED)
			GUICtrlSetState($Radio11, $GUI_UNCHECKED)
			GUICtrlSetState($Radio12, $GUI_UNCHECKED)
			GUICtrlSetState($Radio13, $GUI_UNCHECKED)
			MsgBox(64, "", "Button8")
		EndIf
	WEnd

	; Delete the previous GUI and all controls.
	GUIDelete($hGUI)
EndFunc   ;==>Example

Wiec kawalek kodu ktory wrzuciles nie jest problelem, pewnie inna petla blokuje GUI.

Radio buttony tez same sie odznaczaja jak naleza do tej samej grupy, nie musisz tego robic recznie.

U mnie ten kod działa za kazdym razem. ;>

U mnie Twój tak samo, a w moim jest problem bo czasem trzeba klikać i klikać w ten Button, żeby np. inna grupa Radio cała została wyłączona. W dodatku nie tylko w Button ale nawet X do wyłączenia programu muszę czasem zaspamować żeby wyłączyć.

Wiec kawalek kodu ktory wrzuciles nie jest problelem, pewnie inna petla blokuje GUI.

Przeszło mi to przez myśl, aczkolwiek jedyne co w kodzie posiadam to cały kod GUI oraz pętle While 1, w której znajduje się właśnie ten If i nic więcej w kodzie nie ma, nic co mogłoby blokować tak naprawdę.

Radio buttony tez same sie odznaczaja jak naleza do tej samej grupy, nie musisz tego robic recznie.

Tak, tak, tak, wiem o tym, zasada działania jaką chce osiągnąć polega na tym, że Radio1, Radio2, Radio3 to pierwsza grupa, a Radio4-13 to druga grupa, chce zrobić że po zaznaczeniu Radio1 wyłącza się np. Radio4, Radio5. Po zaznaczeniu Radio2 wyłącza się np. Radio6, Radio7, a po zaznaczeniu Radio3 wyłącza się Radio8 i Radio9. O taką zasadę działania mi chodzi

Dodałem do tego ten Button8 ze względu na to, że gdy miałem sam If GUICtrlRead($Radio1) = $GUI_CHECKED Then, to gdy właśnie Radio1 był zaznaczony to calutki czas nawalał to żeby wyłączać jakąś grupę Radio, wyglądało to w GUI tak, że te napisy tej grupy strasznie migały i nie wiem jak mógłbym to zrobić :P

Pawellek · 15 Marca 2017

Wrzuc caly kod.

Vneeas · 15 Marca 2017

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 801, 501, 193, 121)
$Group1 = GUICtrlCreateGroup("Tryb pracy", 8, 8, 113, 137)
$Radio1 = GUICtrlCreateRadio("Losowy", 16, 32, 97, 17, BitOR($GUI_SS_DEFAULT_RADIO,$BS_CENTER))
$Radio2 = GUICtrlCreateRadio("Przedzialowy", 16, 56, 97, 17, BitOR($GUI_SS_DEFAULT_RADIO,$BS_CENTER))
$Radio3 = GUICtrlCreateRadio("Uzytkownika", 16, 80, 97, 17, BitOR($GUI_SS_DEFAULT_RADIO,$BS_CENTER))
$Button8 = GUICtrlCreateButton("Zapisz", 24, 112, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Konsola", 8, 368, 785, 121)
$List1 = GUICtrlCreateList("", 16, 392, 761, 84)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Ustawienia", 8, 152, 113, 209)
$Combo1 = GUICtrlCreateCombo("Combo1", 16, 192, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("Zapisz", 24, 328, 83, 25)
$Label18 = GUICtrlCreateLabel("Rozdzielczosc", 16, 176, 98, 17, $SS_CENTER)
$Input1 = GUICtrlCreateInput("LSHIFT + P", 16, 248, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Label19 = GUICtrlCreateLabel("Klawisz START", 16, 232, 98, 17, $SS_CENTER)
$Label20 = GUICtrlCreateLabel("Klawisz STOP", 16, 280, 98, 17, $SS_CENTER)
$Input2 = GUICtrlCreateInput("LSHIFT + L", 16, 296, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Informacje", 128, 8, 545, 73)
$Label1 = GUICtrlCreateLabel("Status", 144, 32, 100, 17, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("URUCHOMIONY", 144, 48, 100, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Label3 = GUICtrlCreateLabel("Wartosc trybu", 267, 32, 84, 17, $SS_CENTER)
$Label4 = GUICtrlCreateLabel("3170 -> 4700", 267, 48, 84, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Label5 = GUICtrlCreateLabel("Rozdzielczosc", 378, 32, 76, 17, $SS_CENTER)
$Label6 = GUICtrlCreateLabel("1920 x 1080", 378, 48, 76, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Label7 = GUICtrlCreateLabel("Klawisz START", 480, 32, 76, 17, $SS_CENTER)
$Label8 = GUICtrlCreateLabel("LSHIFT + P", 480, 48, 76, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x808000)
$Label9 = GUICtrlCreateLabel("Klawisz STOP", 576, 32, 76, 17, $SS_CENTER)
$Label10 = GUICtrlCreateLabel("LSHIFT + L", 576, 48, 76, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("", 128, 88, 545, 273)
$Group7 = GUICtrlCreateGroup("Tryb: Przedzialowy", 152, 104, 153, 193)
$Radio4 = GUICtrlCreateRadio("0K   =   [0000   ->   0999]", 160, 128, 137, 17)
$Radio5 = GUICtrlCreateRadio("1K   =   [1000   ->   1999]", 160, 144, 137, 17)
$Radio6 = GUICtrlCreateRadio("2K   =   [2000   ->   2999]", 160, 160, 137, 17)
$Radio7 = GUICtrlCreateRadio("3K   =   [3000   ->   3999]", 160, 176, 137, 17)
$Radio8 = GUICtrlCreateRadio("4K   =   [4000   ->   4999]", 160, 192, 137, 17)
$Radio9 = GUICtrlCreateRadio("5K   =   [5000   ->   5999]", 160, 208, 137, 17)
$Radio10 = GUICtrlCreateRadio("6K   =   [6000   ->   6999]", 160, 224, 137, 17)
$Radio11 = GUICtrlCreateRadio("7K   =   [7000   ->   7999]", 160, 240, 137, 17)
$Radio12 = GUICtrlCreateRadio("8K   =   [8000   ->   8999]", 160, 256, 137, 17)
$Radio13 = GUICtrlCreateRadio("9K   =   [9000   ->   9999]", 160, 272, 137, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("Tryb: Uzytkownika", 328, 104, 321, 193)
$Label21 = GUICtrlCreateLabel("Zacznij od", 336, 152, 306, 17, $SS_CENTER)
$Input3 = GUICtrlCreateInput("", 424, 168, 137, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetLimit(-1, 4)
$Label22 = GUICtrlCreateLabel("Zakoncz na", 336, 216, 306, 17, $SS_CENTER)
$Input4 = GUICtrlCreateInput("", 424, 232, 137, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetLimit(-1, 4)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4 = GUICtrlCreateButton("Uruchom!", 152, 312, 155, 33)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("Wyczysc konsole", 328, 312, 323, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Menu", 680, 8, 113, 353)
$Button2 = GUICtrlCreateButton("Dziennik", 696, 32, 83, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("Lista zmian", 696, 144, 83, 25)
$Button5 = GUICtrlCreateButton("Instrukcja", 696, 112, 83, 25)
$Button7 = GUICtrlCreateButton("Ust. fabryczne", 696, 176, 83, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

	$nMsg = GUIGetMsg()
		If $nMsg = $GUI_EVENT_CLOSE Then ExitLoop
		If GUICtrlRead($Radio1) = $GUI_CHECKED And $nMsg = $Button8 Then
			GUICtrlSetState($Radio4, $GUI_DISABLE)
			GUICtrlSetState($Radio5, $GUI_DISABLE)
			GUICtrlSetState($Radio6, $GUI_DISABLE)
			GUICtrlSetState($Radio7, $GUI_DISABLE)
			GUICtrlSetState($Radio8, $GUI_DISABLE)
			GUICtrlSetState($Radio9, $GUI_DISABLE)
			GUICtrlSetState($Radio10, $GUI_DISABLE)
			GUICtrlSetState($Radio11, $GUI_DISABLE)
			GUICtrlSetState($Radio12, $GUI_DISABLE)
			GUICtrlSetState($Radio13, $GUI_DISABLE)
		EndIf

	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Combo1
	EndSwitch
WEnd

Mój znajomy testował też u siebie i u niego też czasem zaskakuje od razu za pierwszym, czasem za drugim, czasem za trzecim i to tak losowo, tak samo z wyłączaniem programu przez X.

Chodzi o zaznaczenie opcji Losowy i kliknięcie Zapisz

Pawellek · 15 Marca 2017

#include <ButtonConstants.au3>

#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <GUIListBox.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Test", 801, 501, 193, 121)

$Group1 = GUICtrlCreateGroup("Tryb pracy", 8, 8, 113, 137)

$Radio1 = GUICtrlCreateRadio("Losowy", 16, 32, 97, 17, BitOR($GUI_SS_DEFAULT_RADIO,$BS_CENTER))

$Radio2 = GUICtrlCreateRadio("Przedzialowy", 16, 56, 97, 17, BitOR($GUI_SS_DEFAULT_RADIO,$BS_CENTER))

$Radio3 = GUICtrlCreateRadio("Uzytkownika", 16, 80, 97, 17, BitOR($GUI_SS_DEFAULT_RADIO,$BS_CENTER))

$Button8 = GUICtrlCreateButton("Zapisz", 24, 112, 83, 25)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Konsola", 8, 368, 785, 121)

$List1 = GUICtrlCreateList("", 16, 392, 761, 84)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group3 = GUICtrlCreateGroup("Ustawienia", 8, 152, 113, 209)

$Combo1 = GUICtrlCreateCombo("Combo1", 16, 192, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))

$Button1 = GUICtrlCreateButton("Zapisz", 24, 328, 83, 25)

$Label18 = GUICtrlCreateLabel("Rozdzielczosc", 16, 176, 98, 17, $SS_CENTER)

$Input1 = GUICtrlCreateInput("LSHIFT + P", 16, 248, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))

$Label19 = GUICtrlCreateLabel("Klawisz START", 16, 232, 98, 17, $SS_CENTER)

$Label20 = GUICtrlCreateLabel("Klawisz STOP", 16, 280, 98, 17, $SS_CENTER)

$Input2 = GUICtrlCreateInput("LSHIFT + L", 16, 296, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group4 = GUICtrlCreateGroup("Informacje", 128, 8, 545, 73)

$Label1 = GUICtrlCreateLabel("Status", 144, 32, 100, 17, $SS_CENTER)

$Label2 = GUICtrlCreateLabel("URUCHOMIONY", 144, 48, 100, 17, $SS_CENTER)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x008000)

$Label3 = GUICtrlCreateLabel("Wartosc trybu", 267, 32, 84, 17, $SS_CENTER)

$Label4 = GUICtrlCreateLabel("3170 -> 4700", 267, 48, 84, 17, $SS_CENTER)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x0000FF)

$Label5 = GUICtrlCreateLabel("Rozdzielczosc", 378, 32, 76, 17, $SS_CENTER)

$Label6 = GUICtrlCreateLabel("1920 x 1080", 378, 48, 76, 17, $SS_CENTER)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x800000)

$Label7 = GUICtrlCreateLabel("Klawisz START", 480, 32, 76, 17, $SS_CENTER)

$Label8 = GUICtrlCreateLabel("LSHIFT + P", 480, 48, 76, 17, $SS_CENTER)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x808000)

$Label9 = GUICtrlCreateLabel("Klawisz STOP", 576, 32, 76, 17, $SS_CENTER)

$Label10 = GUICtrlCreateLabel("LSHIFT + L", 576, 48, 76, 17, $SS_CENTER)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x008080)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group5 = GUICtrlCreateGroup("", 128, 88, 545, 273)

$Group7 = GUICtrlCreateGroup("Tryb: Przedzialowy", 152, 104, 153, 193)

$Radio4 = GUICtrlCreateRadio("0K = [0000 -> 0999]", 160, 128, 137, 17)

$Radio5 = GUICtrlCreateRadio("1K = [1000 -> 1999]", 160, 144, 137, 17)

$Radio6 = GUICtrlCreateRadio("2K = [2000 -> 2999]", 160, 160, 137, 17)

$Radio7 = GUICtrlCreateRadio("3K = [3000 -> 3999]", 160, 176, 137, 17)

$Radio8 = GUICtrlCreateRadio("4K = [4000 -> 4999]", 160, 192, 137, 17)

$Radio9 = GUICtrlCreateRadio("5K = [5000 -> 5999]", 160, 208, 137, 17)

$Radio10 = GUICtrlCreateRadio("6K = [6000 -> 6999]", 160, 224, 137, 17)

$Radio11 = GUICtrlCreateRadio("7K = [7000 -> 7999]", 160, 240, 137, 17)

$Radio12 = GUICtrlCreateRadio("8K = [8000 -> 8999]", 160, 256, 137, 17)

$Radio13 = GUICtrlCreateRadio("9K = [9000 -> 9999]", 160, 272, 137, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group8 = GUICtrlCreateGroup("Tryb: Uzytkownika", 328, 104, 321, 193)

$Label21 = GUICtrlCreateLabel("Zacznij od", 336, 152, 306, 17, $SS_CENTER)

$Input3 = GUICtrlCreateInput("", 424, 168, 137, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))

GUICtrlSetLimit(-1, 4)

$Label22 = GUICtrlCreateLabel("Zakoncz na", 336, 216, 306, 17, $SS_CENTER)

$Input4 = GUICtrlCreateInput("", 424, 232, 137, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))

GUICtrlSetLimit(-1, 4)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Button4 = GUICtrlCreateButton("Uruchom!", 152, 312, 155, 33)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$Button6 = GUICtrlCreateButton("Wyczysc konsole", 328, 312, 323, 33)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group6 = GUICtrlCreateGroup("Menu", 680, 8, 113, 353)

$Button2 = GUICtrlCreateButton("Dziennik", 696, 32, 83, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$Button3 = GUICtrlCreateButton("Lista zmian", 696, 144, 83, 25)

$Button5 = GUICtrlCreateButton("Instrukcja", 696, 112, 83, 25)

$Button7 = GUICtrlCreateButton("Ust. fabryczne", 696, 176, 83, 25)

GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")

GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button8

If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED Then

GUICtrlSetState($Radio4, $GUI_DISABLE)

GUICtrlSetState($Radio5, $GUI_DISABLE)

GUICtrlSetState($Radio6, $GUI_DISABLE)

GUICtrlSetState($Radio7, $GUI_DISABLE)

GUICtrlSetState($Radio8, $GUI_DISABLE)

GUICtrlSetState($Radio9, $GUI_DISABLE)

GUICtrlSetState($Radio10, $GUI_DISABLE)

GUICtrlSetState($Radio11, $GUI_DISABLE)

GUICtrlSetState($Radio12, $GUI_DISABLE)

GUICtrlSetState($Radio13, $GUI_DISABLE)

MsgBox(0, "test", "Button8")

EndIf

Case $Combo1

EndSwitch

WEnd

Zaloguj się

👋 Witaj na MPCForum!

Dziwnie działające GUI

Rekomendowane odpowiedzi

Vneeas

Vneeas

Pawellek

Pawellek

Vneeas

Vneeas

Pawellek

Pawellek

Vneeas

Vneeas

Pawellek

Pawellek

Zarchiwizowany