[Problem]Problem z kodem

[IZZER4]

Witam

Mam maly problem...

Tutaj kod

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <ProgressConstants.au3>

#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 438, 278, 192, 124)

$Button1 = GUICtrlCreateButton("Button1", 8, 224, 97, 25)

$Button2 = GUICtrlCreateButton("Button2", 328, 224, 97, 25)

$Progress1 = GUICtrlCreateProgress(128, 224, 177, 25)

GUISetState(@SW_SHOW)

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

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Chce aby po wcisnieciu button1 uruchomilo mi sie $Progress1 ale nie mam pojecia jak to polaczyc...

Wiem ze w perli powinno byc Case $Button1 ale co dalej ;/

[Phoenix_PL]

Uno: Kod wstaw w znacznik

Duo: Wywal niepotrzebne UDFy (zostaw tylko #include <GuiConstantsEx.au3>)

 

Co do problemu to:

#include <GUIConstantsEx.au3>

$Form1 = GUICreate("Form1", 438, 278, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 8, 224, 97, 25)
$Button2 = GUICtrlCreateButton("Button2", 328, 224, 97, 25)
$Progress1 = GUICtrlCreateProgress(128, 224, 177, 25)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg

		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1 ;kiedy został klinkięty Button1
			;kod który "wypełni" progressbara
			For $i = 0 To 100 Step +1
				GUICtrlSetData($Progress1, $i)
				Sleep(10)
			Next
	EndSwitch
WEnd

Do obsługi progressbara wystarczy funkcja GUICtrlSetData, jako wartość wpisujesz cyfre od 0 do 100 która jest %-ową wartością postępu.

[IZZER4]

Thx smiga.