Jump to content

Problem with buttons

TheGOG

By TheGOG,
in AutoIt GUI Help and Support

 Share

Recommended Posts

TheGOG Seeker

TheGOG

Posted
Posted

I created a test script and can't get the script to recognize the buttons clicked. This time I'm including the code

Thank you.

#include <Array.au3>

#include <GUIConstants.au3>

#include <Color.au3>

;Opt("GUICoordMode",1)

Opt("GUIOnEventMode", 1)

Dim $I=0

Dim $J=0

Dim $T=0

Dim $PrevPageNo=1

Dim $CurrentPageNo=1

Dim $NextPageNo=1

Dim $LastPage="N"

Dim $CountEmpty = 0

Dim $StartNo = 0

Dim $NP = 0

Dim $PP = 0

Dim $EXE = 0

Dim $RKN = ""

Dim $RKD = ""

Dim $Skip = ""

$I = 0

$J = 0

Dim $RowDisplay[22]

$RowDisplay[0] = 0

$RowDisplay[1] = 55

For $I = 2 To 20

$RowDisplay[$I] = $RowDisplay[$I-1] + 25

Next

Dim $Refresh = "Y"

;If $Refresh = "Y" Then

; $Refresh = "N"

Create_Main_Window()

;EndIf

GUISetState(@SW_SHOW)

While 1

;GUISetState(@SW_SHOW)

Sleep(10)

Wend

Func Create_Main_Window()

$Main_Window = GUICreate("Tesing buttons", 850, 600)

GUISetOnEvent($GUI_EVENT_CLOSE, "CC")

;

; Setup Headers

;

$GUIRKN = GUICtrlCreateLabel ("Testing Header 1", 35, 15, 210) ; first cell 50 width

GUICtrlSetFont($GUIRKN, 14, 800, 0, "Arial Bold")

GUICtrlSetColor($GUIRKN,0x0000ff) ; Blue

$GUIRDN = GUICtrlCreateLabel ("Testing Header 2", 315, 15, 400)

GUICtrlSetFont($GUIRDN, 14, 800, 0, "Arial Bold")

GUICtrlSetColor($GUIRDN,0x0000ff) ; Blue

;

; Setup Main Data Lines

;

SETUP_Main_Data_Lines()

;

; Setup Footers(Buttons)

;

$NP = GUICtrlCreateButton ("NewPage", 700, $RowDisplay[19]+28, 100, 35)

GUICtrlSetState($NP, $GUI_ENABLE)

GUISetOnEvent($NP, "NewPage")

$PP = GUICtrlCreateButton ("PrevPage", 50, $RowDisplay[19]+28, 100, 35)

GUICtrlSetState($PP, $GUI_ENABLE)

GUISetOnEvent($PP, "PrevPage")

;If $CurrentPageNo = 1 Then

; GUICtrlDelete($PP)

;Else

; If $LastPage = "Y" Then

;GUICtrlDelete($NP)

; EndIf

;EndIf

;GUICtrlCreateButton ("Exit", 275, $RowDisplay[19]+28, 100, 35)

$EXE = GUICtrlCreateButton ("Proc", 290, $RowDisplay[19]+28, 225, 35)

GUICtrlSetState($EXE, $GUI_ENABLE)

GUISetOnEvent($EXE, "Proc")

;GUISetState(@SW_SHOW)

EndFunc

Func SETUP_Main_Data_Lines()

$J = 0

For $I = ( ( ($CurrentPageNo - 1) * 18) + 1) To $CurrentPageNo + 18

$J = $J + 1

GUICtrlCreateLabel ("Testing Label # " & String($I), 40, $RowDisplay[$J], 275) ; first cell 50 width

GUICtrlCreateLabel ("Testing Row # " & String($J), 315, $RowDisplay[$J], 350)

Next

EndFunc

Func NewPage()

MsgBox(0, "Next Page", "OK!")

EndFunc

Func PrevPage()

MsgBox(0, "Previous Page", "OK!")

EndFunc

Func Proc()

MsgBox(0, "Execute", "OK!")

EndFunc

Func CC()

Exit

EndFunc

Tbutt2.txt

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

Instead of GUISetOnEvent(), you are trying to set Control Events so it would be GUICtrlSetOnEvent(). Also please use [ code] [ /code] tags without the spaces when posting your scripts, makes it easier to read instead of having to put in SciTe to read it.

#include <Array.au3>
#include <GUIConstants.au3>
#include <Color.au3>
;Opt("GUICoordMode",1)
Opt("GUIOnEventMode", 1)
Dim $I=0
Dim $J=0
Dim $T=0
Dim $PrevPageNo=1
Dim $CurrentPageNo=1
Dim $NextPageNo=1
Dim $LastPage="N"
Dim $CountEmpty = 0
Dim $StartNo = 0
Dim $NP = 0
Dim $PP = 0
Dim $EXE = 0
Dim $RKN = ""
Dim $RKD = ""
Dim $Skip = ""
$I = 0
$J = 0
Dim $RowDisplay[22]
$RowDisplay[0] = 0
$RowDisplay[1] = 55
For $I = 2 To 20
    $RowDisplay[$I] = $RowDisplay[$I-1] + 25
Next
Dim $Refresh = "Y"
;If $Refresh = "Y" Then
; $Refresh = "N"
Create_Main_Window()
;EndIf
GUISetState(@SW_SHOW)
While 1
    ;GUISetState(@SW_SHOW)
    Sleep(10)
WEnd
Func Create_Main_Window()
    $Main_Window = GUICreate("Tesing buttons", 850, 600)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CC")
    $GUIRKN = GUICtrlCreateLabel("Testing Header 1", 35, 15, 210) ; first cell 50 width
    GUICtrlSetFont($GUIRKN, 14, 800, 0, "Arial Bold")
    GUICtrlSetColor($GUIRKN,0x0000ff) ; Blue
    $GUIRDN = GUICtrlCreateLabel("Testing Header 2", 315, 15, 400)
    GUICtrlSetFont($GUIRDN, 14, 800, 0, "Arial Bold")
    GUICtrlSetColor($GUIRDN,0x0000ff) ; Blue
    SETUP_Main_Data_Lines()
    $NP = GUICtrlCreateButton("NewPage", 700, $RowDisplay[19]+28, 100, 35)
    GUICtrlSetOnEvent($NP, "NewPage")
    $PP = GUICtrlCreateButton("PrevPage", 50, $RowDisplay[19]+28, 100, 35)
    GUICtrlSetOnEvent($PP, "PrevPage")
    $EXE = GUICtrlCreateButton("Proc", 290, $RowDisplay[19]+28, 225, 35)
    GUICtrlSetOnEvent($EXE, "Proc")
EndFunc   ;==>Create_Main_Window
Func SETUP_Main_Data_Lines()
    $J = 0
    For $I = ((($CurrentPageNo - 1) * 18) + 1) To $CurrentPageNo + 18
        $J = $J + 1
        GUICtrlCreateLabel("Testing Label # " & String($I), 40, $RowDisplay[$J], 275) ; first cell 50 width
        GUICtrlCreateLabel("Testing Row # " & String($J), 315, $RowDisplay[$J], 350)
    Next
EndFunc   ;==>SETUP_Main_Data_Lines
Func NewPage()
    MsgBox(0, "Next Page", "OK!")
EndFunc   ;==>NewPage
Func PrevPage()
    MsgBox(0, "Previous Page", "OK!")
EndFunc   ;==>PrevPage
Func Proc()
    MsgBox(0, "Execute", "OK!")
EndFunc   ;==>Proc
Func CC()
    Exit
EndFunc   ;==>CC

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites
TheGOG Seeker

TheGOG

Posted
  • Author
Posted

Instead of GUISetOnEvent(), you are trying to set Control Events so it would be GUICtrlSetOnEvent(). Also please use [ code] [ /code] tags without the spaces when posting your scripts, makes it easier to read instead of having to put in SciTe to read it.

#include <Array.au3>
#include <GUIConstants.au3>
#include <Color.au3>
;Opt("GUICoordMode",1)
Opt("GUIOnEventMode", 1)
Dim $I=0
Dim $J=0
Dim $T=0
Dim $PrevPageNo=1
Dim $CurrentPageNo=1
Dim $NextPageNo=1
Dim $LastPage="N"
Dim $CountEmpty = 0
Dim $StartNo = 0
Dim $NP = 0
Dim $PP = 0
Dim $EXE = 0
Dim $RKN = ""
Dim $RKD = ""
Dim $Skip = ""
$I = 0
$J = 0
Dim $RowDisplay[22]
$RowDisplay[0] = 0
$RowDisplay[1] = 55
For $I = 2 To 20
    $RowDisplay[$I] = $RowDisplay[$I-1] + 25
Next
Dim $Refresh = "Y"
;If $Refresh = "Y" Then
; $Refresh = "N"
Create_Main_Window()
;EndIf
GUISetState(@SW_SHOW)
While 1
    ;GUISetState(@SW_SHOW)
    Sleep(10)
WEnd
Func Create_Main_Window()
    $Main_Window = GUICreate("Tesing buttons", 850, 600)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CC")
    $GUIRKN = GUICtrlCreateLabel("Testing Header 1", 35, 15, 210) ; first cell 50 width
    GUICtrlSetFont($GUIRKN, 14, 800, 0, "Arial Bold")
    GUICtrlSetColor($GUIRKN,0x0000ff) ; Blue
    $GUIRDN = GUICtrlCreateLabel("Testing Header 2", 315, 15, 400)
    GUICtrlSetFont($GUIRDN, 14, 800, 0, "Arial Bold")
    GUICtrlSetColor($GUIRDN,0x0000ff) ; Blue
    SETUP_Main_Data_Lines()
    $NP = GUICtrlCreateButton("NewPage", 700, $RowDisplay[19]+28, 100, 35)
    GUICtrlSetOnEvent($NP, "NewPage")
    $PP = GUICtrlCreateButton("PrevPage", 50, $RowDisplay[19]+28, 100, 35)
    GUICtrlSetOnEvent($PP, "PrevPage")
    $EXE = GUICtrlCreateButton("Proc", 290, $RowDisplay[19]+28, 225, 35)
    GUICtrlSetOnEvent($EXE, "Proc")
EndFunc   ;==>Create_Main_Window
Func SETUP_Main_Data_Lines()
    $J = 0
    For $I = ((($CurrentPageNo - 1) * 18) + 1) To $CurrentPageNo + 18
        $J = $J + 1
        GUICtrlCreateLabel("Testing Label # " & String($I), 40, $RowDisplay[$J], 275) ; first cell 50 width
        GUICtrlCreateLabel("Testing Row # " & String($J), 315, $RowDisplay[$J], 350)
    Next
EndFunc   ;==>SETUP_Main_Data_Lines
Func NewPage()
    MsgBox(0, "Next Page", "OK!")
EndFunc   ;==>NewPage
Func PrevPage()
    MsgBox(0, "Previous Page", "OK!")
EndFunc   ;==>PrevPage
Func Proc()
    MsgBox(0, "Execute", "OK!")
EndFunc   ;==>Proc
Func CC()
    Exit
EndFunc   ;==>CC
Dohhhhh

Thank you very much.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...