silkroaden
Üye
- Aktiflik
-
- K.Tarihi
- 22 Nis 2009
- Mesajlar
- 3
- Puanı
- 0
Tek Button İle 2 işlem Yapmak
Kod:
#include <ButtonConstants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$Button1 = GUICtrlCreateButton("Gizle", 72, 80, 145, 57, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
if WinExists("SRO_Client") = 0 Then
MsgBox(0,"Silkroad Bulunamadı!!!","Sro Yokhhh")
EndIf
if GUICtrlRead($Button1) = "Gizle" Then
GUICtrlSetData($Button1,"Göster")
WinSetState("[CLASS:CLIENT]","",@SW_HIDE)
Else
GUICtrlSetData($Button1,"Gizle")
WinSetState("[CLASS:CLIENT]","",@SW_SHOW)
EndIf
EndSwitch
WEnd
