Jump to content

Butonla Baska Formu Acma Yardim


monika

Recommended Posts

AutoIT bölümündeyiz zaten by_derkan!

$Form1 = GUICreate("Form1", 218, 102, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 32, 40, 129, 33)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
                case $button1
                        $form2 = GUICreate("Form2", 218, 102, 192, 124)
                        GUISetState()
    EndSwitch
WEnd[/CODE]

Link to comment
Share on other sites

  • 1 ay sonra...
  • 3 hafta sonra ...

güzel ama eksik

şöyle daha iyi bence

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 218, 102, 192, 124)

$Button1 = GUICtrlCreateButton("Button1", 32, 40, 129, 33)

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $button1

GuiSetState(@SW_HIDE,$Form1)

$form2 = GUICreate("Form2", 218, 102, 192, 124)

GUISetState()

EndSwitch

WEnd

ve benim sormak isediğim başka birşey var

Form2'yi kapattigim zaman tekrar Form1'in otomatik açılmasını istiyorum .

böyle bir şey yapmaya çalıştım IF , Then ile ama yapamadım

bilen biri ?

ve bunun geliştirilmişi

sağ veya sol tarafta butonlar var diyelim

bir butona tıkladığımızda Gui aynı kalıyor ama ana sahnede GUI'nin icinde yeni bir fonksiyon penceresi açılıyor

böyle bir şey yapılabilir mi ?

ki yapılıyor ya eksiğim bu konuda

Link to comment
Share on other sites

  • 1 ay sonra...

Global $With = 700

Global $Height = 500

Global $Form1 = GUICreate("Form1", $With, $Height,-1,-1)

GUISetState(@SW_SHOW)

;=======================================

Global $Form2 = GUICreate("",$With, $Height,0,0,0x40000000,-1,$Form1)

GUICtrlCreateLabel("Gui1", 10, 10, 50, 17)

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

$Button1 = GUICtrlCreateButton("Ileri", 150, 130, 75, 25);150 sola 130 yukarı 75 buton boy 25 buton en

GUISetState(@SW_SHOW,$Form2)

;=======================================

Global $Form3 = GUICreate("",$With, $Height,0,0,0x40000000,-1,$Form1)

GUICtrlCreateLabel("Gui2", 10, 10, 50, 17)

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

$Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25)

$Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25)

$Kur = GUICtrlCreateButton("Kur", 10, 180, 185, 41, 0);10 sol- 180 aşağı-185 buton boy-41 en-0 buton demek

$tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17)

$hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17)

$onerilen = GUICtrlCreateRadio("öenrilen seçim", 272, 198, 217, 17)

$Button2 = GUICtrlCreateButton("Geri", 10, 150, 75, 25)

$Button3 = GUICtrlCreateButton("Ileri", 100, 150, 75, 25)

;=======================================

Global $Form4 = GUICreate("",$With, $Height,0,0,0x40000000,-1,$Form1)

GUICtrlCreateLabel("Gui3", 10, 10, 50, 17)

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

$Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25)

$Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25)

$Kur = GUICtrlCreateButton("Kur", 10, 180, 185, 41, 0)

$tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17)

$hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17)

$onerilen = GUICtrlCreateRadio("öenrilen seçim", 272, 198, 217, 17)

$Button4 = GUICtrlCreateButton("Geri", 10, 150, 75, 25)

$Button5 = GUICtrlCreateButton("Ileri", 100, 150, 75, 25)

;=======================================

Global $Form5 = GUICreate("",$With, $Height,0,0,0x40000000,-1,$Form1)

GUICtrlCreateLabel("Gui4", 10, 10, 50, 17)

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

$Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25)

$Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25)

$Kur = GUICtrlCreateButton("Kur", 10, 180, 185, 41, 0)

$tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17)

$hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17)

$onerilen = GUICtrlCreateRadio("öenrilen seçim", 272, 198, 217, 17)

$Button6 = GUICtrlCreateButton("Geri", 10, 150, 75, 25)

GUISwitch($Form1)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case -3

Exit

Case $Button1

GUISetState(@SW_SHOW,$Form3)

GUISetState(@SW_HIDE,$Form2)

Case $Button2

GUISetState(@SW_HIDE,$Form3)

GUISetState(@SW_SHOW,$Form2)

Case $Button3

GUISetState(@SW_HIDE,$Form3)

GUISetState(@SW_SHOW,$Form4)

Case $Button4

GUISetState(@SW_SHOW,$Form3)

GUISetState(@SW_HIDE,$Form4)

Case $Button5

GUISetState(@SW_SHOW,$Form5)

GUISetState(@SW_HIDE,$Form4)

Case $Button6

GUISetState(@SW_SHOW,$Form4)

GUISetState(@SW_HIDE,$Form5)

EndSwitch

WEnd

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...