Sign in to follow this  
Followers 0
SecretLanguage

Case $msg = $button_1 and $radioval3

2 posts in this topic

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

;-------------------------------------------------------------------------------------

; Example - Press the button to see the value of the radio boxes

; The script also detects state changes (closed/minimized/timeouts, etc).

Func Example()

Local $button_1, $group_1, $radio_1, $radio_2, $radio_3, $button_2, $button_3

Local $radioval1, $radioval2, $radioval3, $msg, $oIE, $WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN, $GUIActiveX, $background

Opt("GUICoordMode", 1)

GUICreate("Supreme Carpet and Flooring", 600, 650)

$GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)

$background = GUICtrlCreatePic("C:\Supreme Carpet\Images\gui.jpg", -1, -1, 600, 600)

; Create the controls

$button_1 = GUICtrlCreateButton("Select", 30, 20, 120, 40)

$group_1 = GUICtrlCreateGroup("!", 20, 10, 600, 600)

GUIStartGroup("!")

$radio_1 = GUICtrlCreateRadio("", 450, 186)

$radio_2 = GUICtrlCreateRadio("", 220, 595)

$radio_3 = GUICtrlCreateRadio("", 485, 550)

; Init our vars that we will use to keep track of GUI events

$radioval1 = 0 ; We will assume 0 = first radio button selected, 2 = last button

$radioval2 = 2

$radioval3 = 3

; Show the GUI

GUISetState()

; In this message loop we use variables to keep track of changes to the radios, another

; way would be to use GUICtrlRead() at the end to read in the state of each control

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

MsgBox(0, "Supreme Support line", "This is embarrassing the active Window forgot your number. please Call our support line at 503 407 2687")

Exit

Case $msg = $GUI_EVENT_MINIMIZE

MsgBox(0, "Supreme Support line", "This is embarrassing the active window forgot your number. please Call our support line at 503 407 2687", 2)

Case $msg = $GUI_EVENT_MAXIMIZE

MsgBox(0, "Supreme Support line", "This is embarrassing the active window forgot your number. please Call our support line at 503 407 2687", 2)

Case $msg = $button_1

MsgBox(0, "Supreme Support line", "This is embarrassing the active window forgot your number. please Call our support line at 503 407 2687")

Case $msg = $button_1 and $radioval1

MsgBox(0, "Supreme Support line", "This is embarrassing the active software window your number. please Call our support line at 503 407 2687")

Case $msg = $button_1 and $radioval2

MsgBox(0, "Supreme Support line", "This is embarrassing the active software window your number. please Call our support line at 503 407 2687")

Case $msg = $button_1 and $radioval3

MsgBox(0, "Supreme Support line", "This is embarrassing the active software window your number. please Call our support line at 503 407 2687")

EndSelect

WEnd

EndFunc ;==>Example

embarrassing spell check.au3


Share this post


Link to post
Share on other sites



Was there a question or is this rhetorical??

Share this post


Link to post
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
Sign in to follow this  
Followers 0