Abi AutoIT-ga

[Karl Erik 0]

Tervist, on siin keegi, kes oskab AutoIT-ga juhendada ?

Kes ei tea siis tegemist on programmeerimiskeelega, millega saab teha portable appe, macrosi, botte jms.

 

1. Vaja oleks teha mitme aknaga programm, ehk kui vajutada nuppu, siis ilmub hoopis teine Form, vana peidetakse.

Hetkel on mul 2 AutoIT skripti faili, üks on 1 form, teine on teine, pean need vist kuidagi üheks tegema vms ?

Visual Basicus sai seda teha nii:

 

Form2.Show
Me.hide

 

Oskab aidata keegi ?

 

Hetkene kood Form1-l selline:

#include 
#include 
#include 
#include 
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Zombie Apocalypse Patcher", 462, 264, 763, 295)
$Label1 = GUICtrlCreateLabel("Zombie Apocalypse Patcher", 176, 24, 137, 17)
$Label2 = GUICtrlCreateLabel("Antud installer lisab teie Minecraftile uusi esemeid, mis on vajalikud, et mängida", 48, 48, 374, 17)
$Label3 = GUICtrlCreateLabel("meie Zombie Apocalypse serverit. Antud patcher sisaldab järgmisi elemente:", 48, 64, 359, 17)
$Label4 = GUICtrlCreateLabel("- Optifine ", 200, 88, 49, 17)
$Label5 = GUICtrlCreateLabel("- Minecraft Forge", 200, 104, 84, 17)
$Label6 = GUICtrlCreateLabel("- Flan's Mod", 200, 120, 61, 17)
$Label7 = GUICtrlCreateLabel("Vanad Minecrafti failid tõstetakse kausta .minecraft_old", 96, 144, 264, 17)
$Label8 = GUICtrlCreateLabel("Vajutage nuppu Paigalda, et alustada paigaldamisega", 96, 168, 257, 17)
$Button1 = GUICtrlCreateButton("Paigalda", 96, 200, 267, 49, $WS_GROUP)
GUICtrlSetOnEvent($Button1, "PaigaldaPressed")
GUISetState(@SW_SHOW)


Func PaigaldaPressed()
  MsgBox(4096,"", "Ok pressed")
EndFunc


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


   EndSwitch
WEnd

 

Ning Form2-l selline:

#include 
#include 
#include 
#include 
$Form2 = GUICreate("Zombie Apocalypse | Paigaldamine", 445, 131, 440, 353)
$Label1 = GUICtrlCreateLabel("Käimas on uuenduste paigaldamine. Ärge sulgege programmi!", 80, 16, 293, 17)
$Label2 = GUICtrlCreateLabel("Staatus:", 168, 40, 43, 17)
$Label3 = GUICtrlCreateLabel("N/A", 216, 40, 24, 17)
$Progress1 = GUICtrlCreateProgress(80, 72, 294, 25)
GUISetState(@SW_SHOW)


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


   EndSwitch
WEnd

 

Kuskilt uurisin, et tab-idega oleks seda hea teha. Proovisin järgi, täitsa töötab, aga tab-i taust läheb rõvedaks valgeks. Tahan, et see oleks siiski hall.

Muudetud 12. mai, 2013 liikme Karl Erik'i poolt

[Lorrez 10]

Kas siis tabide taustavärvi muuta ei saa?

 

EDIT: Natuke uurisin: http://www.autoitscript.com/forum/topic/107527-tab-background-color/ Siin tundub olevat lahendus [Postitaja: Melba23]

Muudetud 11. mai, 2013 liikme Lorrez'i poolt
trükivead -.-

[Karl Erik 0]

Tänud Lorrez lingi eest, kuid siiski sain asja tööle teise meetodiga

 

Praeguse töötava projekti kood, äkki kellegil on kunagi vaja:

 

#include 

Opt("GUIOnEventMode", 1)

Global $hGUI1, $hGUI2 = 9999, $hButton1, $hButton2, $hButton3 = 9999

gui1()

Func gui1()
    $hGUI1 = GUICreate("Zombie Apocalypse Patcher", 462, 264, 763, 295)
    $Label1 = GUICtrlCreateLabel("Zombie Apocalypse Patcher", 176, 24, 137, 17)
    $Label2 = GUICtrlCreateLabel("Antud installer lisab teie Minecraftile uusi esemeid, mis on vajalikud, et mängida", 48, 48, 374, 17)
    $Label3 = GUICtrlCreateLabel("meie Zombie Apocalypse serverit. Antud patcher sisaldab järgmisi elemente:", 48, 64, 359, 17)
    $Label4 = GUICtrlCreateLabel("- Optifine ", 200, 88, 49, 17)
    $Label5 = GUICtrlCreateLabel("- Minecraft Forge", 200, 104, 84, 17)
    $Label6 = GUICtrlCreateLabel("- Flan's Mod", 200, 120, 61, 17)
    $Label7 = GUICtrlCreateLabel("Vanad Minecrafti failid tõstetakse kausta .minecraft_old", 96, 144, 264, 17)
    $Label8 = GUICtrlCreateLabel("Vajutage nuppu Paigalda, et alustada paigaldamisega", 96, 168, 257, 17)
    GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close")
    $hButton1 = GUICtrlCreateButton("Paigalda", 96, 200, 267, 49)
    GUICtrlSetOnEvent(-1, "On_Button")
    GUISetState()

    While 1
        Sleep(10)
    WEnd
EndFunc   ;==>gui1

Func gui2()
    $hGUI2 = GUICreate("Zombie Apocalypse | Paigaldamine", 445, 131, 440, 353)
    GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close")
    $Label1 = GUICtrlCreateLabel("Käimas on uuenduste paigaldamine. Ärge sulgege programmi!", 80, 16, 293, 17)
    $Label2 = GUICtrlCreateLabel("Staatus:", 168, 40, 43, 17)
    $Label3 = GUICtrlCreateLabel("N/A", 216, 40, 24, 17)
    $Progress1 = GUICtrlCreateProgress(80, 72, 294, 25)
    GUISetState()
EndFunc   ;==>gui2

Func On_Close()
    Switch @GUI_WINHANDLE
        Case $hGUI1
            Exit
        Case $hGUI2
            GUIDelete($hGUI2)
            GUICtrlSetState($hButton2, $GUI_ENABLE)
    EndSwitch
EndFunc

Func On_Button()
    Switch @GUI_CTRLID
        Case $hButton1
            GUICtrlSetState($hButton2, $GUI_DISABLE)
            GUIDelete()
            gui2()
    EndSwitch
EndFunc

Muudetud 12. mai, 2013 liikme Karl Erik'i poolt