Grafikus menü készítése programjainknak [AutoIT]

Nos az előző témát folytatva megnyitom ezt is hogy egy picit bővítsem tudásotokat.
Ahhoz hogy megértsd olvasd el ezt a topikot is: http://www.mpcheat.eu/index.php/topic,5034.0.html
Feltételek ugyan azok mint ott.

Kellékek:
AutoIT Script Editor (A fő program)
Koda Form Editor (Segédeszköz)

A legegyszerűbb rész az a grafikus menü megtervezése, ezzel is kezdem.
Koda letöltése itt:
[ Attachment: You are not allowed to view attachments ]

Miután letöltötted csomagold ki valahova és indítsd el az FD.exe-t.

Használatát Legegyszerűbben pár képpel tudom megmutatni.
[ Attachment: You are not allowed to view attachments ]

Ha megértetted hogyan működik akkor készítsünk el vele egy programot.
Próbálj mindent úgy csinálni ahogy a képen van:
[ Attachment: You are not allowed to view attachments ]

Ha ez megvan akkor nyisd meg az AutoIT fájt amit lementettél és szerkesszük meg a programot úgy hogy működjön.
Körülbelül ezt kell hogy lásd más számokkal:

Kód:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Unc3nZureD\Asztal\Form1.kxf
$Form1 = GUICreate("Az első programom!", 401, 201, 189, 121)
$Button1 = GUICtrlCreateButton("Futtatás!", 8, 40, 91, 41, 0)
GUICtrlSetFont(-1, 8, 800, 6, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("A futtatás gombbal elindítod az egyik kedvenc programod!", 8, 8, 278, 17)
$Button2 = GUICtrlCreateButton("LEÁLLÍTÁS!", 72, 96, 113, 49, 0)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Unc3nZureD\Asztal\WoC Launch\logo_873t5.jpg", 232, 32, 161, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label2 = GUICtrlCreateLabel("Az egy kép /\  =D", 232, 168, 90, 17)
$Input1 = GUICtrlCreateInput("Egyéni Szöveg!", 8, 168, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Be vagy ki? :)", 120, 48, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

EndSwitch
WEnd

Itt az egyetlen dolog amit NAGYON fontos hogy megérts az hogy amit egyszer megnyitsz (mármint parancsot) azt be is kell zárni!
IF -> ENDIF
Switch -> ENDSWITCH
stb.

Egyetlen kivétel a Case mert azt más zárja le, de ezt majd később.
[ Attachment: You are not allowed to view attachments ]

Nos ha ezzel kész vagy akkor mentsd el és indítsd el. Ha jól írtad akkor működni fog!
Most leírok néhány hasznos parancsot a Grafikus menü használatához:

GuiCtrlRead()
Ezt arra használod hogy leolvasd hogy például egy Input részbe a felhasználó.

Használata:
GuiCtrlRead($amitkaraszolvasni)
Természetesen ennek akkor van értelme ha egy $asd -nak adod ezt az értéket pl.:

Kód:

$amitirtal = GuiCtrlRead($Input1)
És akkor már használhatod azt hogy: msgbox(0,"title", $amitirtal)

Speciális eset:
És mi van akkor hogyha Egy Checkbox vagy radiobutton állapotát akarod leolvasni? Arra egy picit másabb a parancs.
méghozzá ez:
BitAnd(GUICtrlRead($Amitolvasol),$GUI_CHECKED)

Tehát használata:

Kód:

$ertek = BitAnd(GUICtrlRead($Checkbox1),$GUI_CHECKED)
msgbox(0,"",$ertek)

GUIDelete()
Ezzel törölhetsz egy megadott felületet.
Használata:

Kód:

GUIDelete($amittorolsz)

GuiCtrlSetData()
Ezzel megadhatsz egy saját adatot akár egy sornak vagy Input-nak.

GUICtrlSetData ($amitakarszmodositani, "mire akarod módosítani")

pl.:

Kód:

GUICtrlSetData ($label1, "erre módosítja a sort")

[Természetesen előtte már meg kell legyen az amit módosítani akarsz!]

GuiCtrlSetState()
Ezzel egy objektum állapotát állíthatod. Pl hogy ne lehessen megnyomni a gombot.

GUICtrlSetState ($melyiket, $mire)

Az állapotok a következők lehetnek:

$GUI_UNCHECKED Radio,   Checkbox or ListViewItem will be unchecked.
$GUI_CHECKED Radio,        Checkbox or ListViewItem will be checked.
$GUI_INDETERMINATE        Checkbox having the tristate attribute will be greyed.
$GUI_AVISTART                 Avi control will start playing.
$GUI_AVISTOP                   Avi control will stop playing.
$GUI_AVICLOSE                 Avi control will stop playing and release resource.
$GUI_DROPACCEPTED        Control will accept drop action : from file or from a drag of another control. See remarks.
$GUI_NODROPACCEPTED    Control will not accept drop action.
$GUI_SHOW                       Control will be visible. On Tabitem control will select the first tab to be displayed.
$GUI_HIDE                         Control will not be visible.
$GUI_ENABLE                     Control will be enabled.
$GUI_DISABLE                   Control will be greyed out.
$GUI_FOCUS                      Control will be given input/selected focus.
$GUI_NOFOCUS                  Listview control will loose focus.
$GUI_DEFBUTTON               Control will be set as the default button on the window. See remark about TreeviewItems.
$GUI_EXPAND                    TreeViewItem will expand it's child items.
$GUI_ONTOP                      Control will be have the ontop attribute for the window (zOrdering).

Használata:

Kód:

GuiCtrlSetState($Button1, $GUI_DISABLE)

Unc3nZureD

Nagyon jó

kulcsarbence2

Egy saját indító "bar" készítése:

Kód:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 203, 43, 192, 124)
$Button1 = GUICtrlCreateButton("", 0, 0, 41, 41, $BS_ICON)
GUICtrlSetImage(-1, "A kép helyét írd ide!", 1)
$Button2 = GUICtrlCreateButton("", 40, 0, 41, 41, 0)
GUICtrlSetImage(-1, "A kép helyét írd ide!", 1)
$Button3 = GUICtrlCreateButton("", 80, 0, 41, 41, 0)
GUICtrlSetImage(-1, "A kép helyét írd ide!", 1)
$Button4 = GUICtrlCreateButton("", 120, 0, 41, 41, 0)
GUICtrlSetImage(-1, "A kép helyét írd ide!", 1)
$Button5 = GUICtrlCreateButton("", 160, 0, 41, 41, 0)
GUICtrlSetImage(-1, "A kép helyét írd ide!", 1)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Run()
Case $Button2
Run()
Case $Button3
Run()
Case $Button4
Run()
Case $Button5
EndSwitch
WEnd

GUICtrlSetImage()
Ezzel a gombnak adsz egy képet amiről könnyen fel lehet ismerni. Formátumok: bmp, ico, icl, nil, exe, dll, ocx

Ezután kitöltöd a hozzá tartozó Run Parancsot és máris kész a gyorsindító programod Ezt beállíthatod hogy automatikusan elinduljon a Windows-al és akkor nem kell annyi ikont rakj az asztalra.

Unc3nZureD

GIF berakása KODA-ba. Lehetséges?

kulcsarbence2

[ Attachment: You are not allowed to view attachments ]
Igen, lehetséges. Vagyis, félig. Kodában nem lehet csak az AutoIT-ben. Méghozzá így:

Töltsd le az ehhez a hozzászóláshoz csatolt txt fájlt. Ezt másold be aaz AutoIT mappájába Resources.au3 néven.

A kódod elejére illeszd be először ezt:

Kód:

#AutoIt3Wrapper_Res_File_Add=A_gif_neve.gif, rt_rcdata, ANI_GIF_1

Az Include részhez ezeket írd:

Kód:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
#include <WinAPI.au3>
#include <Timers.au3>
#include <Resources.au3>

Előre néhány $xy -t meg kell adni azért hogy működjön, ezért az Include alá mehet ez:

Kód:

Global $GIF_TimerID, $hImage, $IMG_Ctrl, $GFC, $GFDC, $pDimensionIDs, $tDL
Global $Pause, $i = 0

Most jön az hogy létrehozod a grafikus menüt:

Kód:

$Form1 = GUICreate("GIF Animation", 300, 200)
$IMG_Ctrl = GUICtrlCreateLabel("", 10, 10, 10, 10)
GUISetState(@SW_SHOW)

Habár te GUICtrlCreateLabel-t hozol létre, attól függetlenül az egy kép lesz.
Rögtön a grafikus menü létrehozása után ezt a két parancsot írod be:

Kód:

GifInit()
_Timer_SetTimer($hGUI, 100, "_Draw_Timer")

(A GifInit-et később definiáljuk)

Most jöhet az a rész ahova a gombok jelentését írod stb stb... Az egyszerűség kedvéért én most csak a kilépés gombot fogom leírni.

Kód:

While 1
If GUIGetMsg() = -3 Then Exit
WEnd

(-3 -> a Piros X gomb jobb fölül)

A következő hármat nem magyarázom el mi mert kell és kész

Kód:

Func _Draw_Timer($hWnd, $Msg, $iIDTimer, $dwTime)
If Not $Pause Then
If $i = $GFC Then $i = 0
GifDrawFrame($i)
$i += 1
EndIf
EndFunc

Func GifInit()
_GDIPlus_Startup()
$hImage = _ResourceGetAsImage("ANI_GIF_1")

$tDL = DllStructCreate($tagGUID)
$pDimensionIDs = DllStructGetPtr($tDL)
$GFDC = DllCall($ghGDIPDll, "int", "GdipImageGetFrameDimensionsCount", "ptr", $hImage, "int*", 0)
DllCall($ghGDIPDll, "int", "GdipImageGetFrameDimensionsList", "ptr", $hImage, "ptr", $pDimensionIDs, "int", $GFDC[2])
$GFC = DllCall($ghGDIPDll, "int", "GdipImageGetFrameCount", "int", $hImage, "ptr", $pDimensionIDs, "int*", 0)
$GFC = $GFC[3]
EndFunc

Func GifDrawFrame($i)
DllCall($ghGDIPDll, "int", "GdipImageSelectActiveFrame", "ptr", $hImage, "ptr", $pDimensionIDs, "int", $i)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
_SetBitmapToCtrl($IMG_Ctrl, $hBitmap)
_WinAPI_DeleteObject($hBitmap)
EndFunc

És akkor most az egész, működő példa:

#AutoIt3Wrapper_Res_File_Add=gif-Green-UFO.gif, rt_rcdata, ANI_GIF_1

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
#include <WinAPI.au3>
#include <Timers.au3>
#include "resources.au3"

Global $GIF_TimerID, $hImage, $IMG_Ctrl, $GFC, $GFDC, $pDimensionIDs, $tDL
Global $Pause, $i = 0

$hGUI = GUICreate("GIF Animation", 300, 200)
$IMG_Ctrl = GUICtrlCreateLabel("", 10, 10, 10, 10)
GUISetState(@SW_SHOW)

GifInit()
_Timer_SetTimer($hGUI, 100, "_Draw_Timer")

While 1
   If GUIGetMsg() = -3 Then Exit
WEnd

Func _Draw_Timer($hWnd, $Msg, $iIDTimer, $dwTime)
   If Not $Pause Then
      If $i = $GFC Then $i = 0
      GifDrawFrame($i)
      $i += 1
   EndIf
EndFunc

Func GifInit()
   _GDIPlus_Startup()
   $hImage = _ResourceGetAsImage("ANI_GIF_1")

   $tDL = DllStructCreate($tagGUID)
   $pDimensionIDs = DllStructGetPtr($tDL)
   $GFDC = DllCall($ghGDIPDll, "int", "GdipImageGetFrameDimensionsCount", "ptr", $hImage, "int*", 0)
   DllCall($ghGDIPDll, "int", "GdipImageGetFrameDimensionsList", "ptr", $hImage, "ptr", $pDimensionIDs, "int", $GFDC[2])
   $GFC = DllCall($ghGDIPDll, "int", "GdipImageGetFrameCount", "int", $hImage, "ptr", $pDimensionIDs, "int*", 0)
   $GFC = $GFC[3]
EndFunc

Func GifDrawFrame($i)
   DllCall($ghGDIPDll, "int", "GdipImageSelectActiveFrame", "ptr", $hImage, "ptr", $pDimensionIDs, "int", $i)
   $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
   _SetBitmapToCtrl($IMG_Ctrl, $hBitmap)
   _WinAPI_DeleteObject($hBitmap)
EndFunc


*VIGYÁZAT*
A példa NEM fog működni ha csak a script-et indítod el au3 formátumban! CSAK akkor működik ha exe-be konvertálod, és a SCiTE kiegészítőt letöltöd, majd azzal konvertálod át! (jobb klikk - compile with options)

Unc3nZureD

És azt hogy kell, hogy pl van 4 radiobutton, egyik msgboxot ad, másik egy inputboxot, a másik shutdownol, a 4. meg pl játszik egy számot.De mind ezt akkor, hogyha rányomok egy gombra. Tehát kiválasztom a 2.-at, és rányomok a gombra, akkor inputboxot hozza elő.Ha a negyedikre,majd a gombra, akkor elkezdi játszani a számot.Remélem érted

anony10

Hmm, ez érdekes mert ez annyira egyszerű hogy ha a többit meg tudtad csinálni akkor ennek is mennie kell

Példa:

Kód:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("RadioTest", 152, 99, 192, 124)
$Radio1 = GUICtrlCreateRadio("Radio1", 8, 8, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 8, 24, 113, 17)
$Radio3 = GUICtrlCreateRadio("Radio3", 8, 40, 113, 17)
GUISetState(@SW_SHOW)

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

Case $Radio1
msgbox(0,"","Most ez történik")
Case $Radio2
InputBox("","Hello", "Ez az alap")
Case $Radio3
SoundPlay(@WindowsDir & "\media\tada.wav",1)
EndSwitch
WEnd

Unc3nZureD

Csak én nem erre gondoltam.. . Én arra gondoltam, hogy kijelölök egy gombot > nem történik semmi. majd rányomok a gombra, és akkor hozza elő az msgboxot, inputboxot, stb

anony10

VÁLASZ PONTOSÍTVA:

Kód:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("X", 116, 83, 192, 124)
$Radio1 = GUICtrlCreateRadio("1. opció", 24, 8, 65, 17)
$Radio2 = GUICtrlCreateRadio("2. opció", 24, 24, 65, 17)
$Button1 = GUICtrlCreateButton("Választ!", 16, 48, 83, 25)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Option1 = BitAnd(GUICtrlRead($Radio1),$GUI_CHECKED)
$Option2 = BitAnd(GUICtrlRead($Radio2),$GUI_CHECKED)

If $Option1 = 1 Then msgbox(64, "Cím", "Az első beállítást választottad!")
If $Option2 = 1 Then msgbox(64, "Cím", "A második beállítást választottad!")
If $Option1 + $Option2 = 0 Then msgbox(64, "Cím", "Nem válaszottál semmit!")
EndSwitch
WEnd

Valami ilyesmire gondoltál?

Unc3nZureD

Igen, nagyon faja, köszi.

anony10

Nagyon hasznos kis progi, köszönjük kolléga!
Ment a +Skill.

misimokus95

Jó kis leírás, ment a +skill.

Robbee

Hmm... Nekem ez a progi nem vmi szimpi>.> Maradok sima AutoIt-nél... Ezzel kapcsolatban: Hogyan lehet azt megoldani, hogy egy kép legyen maga az ablak háttere? Ezt azért kérdem, mert teszem azt, van egy ikon egy képen, és hiába $ws_ex_transparent, nem mindig helyezi legfelülre, plusz, hiába átlátszó az ikon háttere, mindig "átvilágítja" ezt a képet, és a programablak alapszínét kapja az átlátszó rész... 

MadBoy

Tudnál adni egy példa kódot?

Unc3nZureD

Tudnál adni egy példa kódot?

Kód:

   GUICtrlCreatePic("xyz.jpg", 9, 9, 267, 267, $SS_BITMAP)
   $xy = GUICtrlCreateIcon("xyz.icl", 0, 110, 110, 34, 34, -1, $WS_EX_TRANSPARENT)

Tehát: $xy átlátszó részei ténylegesen átlátszóak, de a kép az xyz.jpg azon részét is átlátszóvá teszi, amelyet érint:(

MadBoy