Jump to content
Sign in to follow this  
Earl

Help for newb.

Recommended Posts

Earl

Hey, I need to be able to close a form that is opened by a button in the main form. I tried Setstate hide and It would hide the form, but then, nothing would respond.

Share this post


Link to post
Share on other sites
enaiman

GuiDelete($your_new_form_handle)


SNMP_UDF ... for SNMPv1 and v2c so far, GetBulk and a new example script

wannabe "Unbeatable" Tic-Tac-Toe

Paper-Scissor-Rock ... try to beat it anyway :)

Share this post


Link to post
Share on other sites
Earl

Thanks :)

Nevermind, same problem.

Buttons won't respond.

:) Sorry I forgot. Here is the script

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\alex\my documents\scripts\startrek\v3 holo version\mm.kxf

$Form1_1 = GUICreate("Main Menu", 791, 502, 197, 114, BitOR($WS_MINIMIZEBOX,$WS_DLGFRAME,$WS_GROUP,$WS_CLIPSIBLINGS))

GUISetBkColor(0x000000)

$Button1 = GUICtrlCreateButton("Storyline", 0, 40, 201, 49, 0)

$Button3 = GUICtrlCreateButton("Sandbox", 21, 98, 169, 57, 0)

$Button4 = GUICtrlCreateButton("Exit", 48, 160, 97, 49, 0)

$Label1 = GUICtrlCreateLabel("Star Trek V3", 8, 0, 185, 41)

GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x0000FF)

$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Alex\My Documents\Scripts\StarTrek\V3 holo version\ed-corridor-st7.jpg", 240, 0, 546, 495, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

$Tab1 = GUICtrlCreateTab(8, 232, 217, 97)

GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)

$TabSheet1 = GUICtrlCreateTabItem("Storyline")

$Button2 = GUICtrlCreateButton("text", 24, 264, 65, 41, 0)

$Button5 = GUICtrlCreateButton("sound", 104, 264, 113, 49, 0)

$TabSheet2 = GUICtrlCreateTabItem("Sandbox")

$Button6 = GUICtrlCreateButton("text", 24, 264, 97, 49, 0)

$Button7 = GUICtrlCreateButton("sound", 136, 264, 73, 41, 0)

$TabSheet3 = GUICtrlCreateTabItem("Credits")

$Button8 = GUICtrlCreateButton("Credits", 16, 264, 201, 49, 0)

GUICtrlCreateTabItem("")

$Pic2 = GUICtrlCreatePic("C:\Documents and Settings\Alex\My Documents\Scripts\StarTrek\V3 holo version\images.jpg", 16, 344, 148, 119, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

GUISetState(@SW_SHOW)

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

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

Case $Button3

$Form1_1 = GUICreate("Main Bridge", 544, 639, 318, 120)

GUISetBkColor(0xFFFFFF)

$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Alex\My Documents\Scripts\StarTrek\V3 holo version\entdbridge2.jpg", 0, 0, 539, 636, $WS_CLIPSIBLINGS)

$button1 = GUICtrlCreateButton("Speed", 264, 224, 41, 17)

$Button2 = GUICtrlCreateButton("Ops", 176, 224, 41, 17)

$Button3 = GUICtrlCreateButton("Tactical", 216, 456, 49, 17)

$Button4 = GUICtrlCreateButton("Science", 304, 576, 49, 17)

$Button5 = GUICtrlCreateButton("Sensors", 240, 592, 49, 17, 0)

$Button6 = GUICtrlCreateButton("Personell", 176, 592, 49, 17, 0)

$Button7 = GUICtrlCreateButton("Engines", 120, 568, 49, 17, 0)

$Button8 = GUICtrlCreateButton("Ready-Room", 0, 152, 73, 25, 0)

$Button9 = GUICtrlCreateButton("Viewscreen", 200, 56, 89, 33, 0)

$Button10 = GUICtrlCreateButton("Observation Room", 416, 576, 97, 33, 0)

$Button11 = GUICtrlCreateButton("B. Bridge", 400, 192, 57, 17, 0)

$Radio1 = GUICtrlCreateRadio("Green", 472, 40, 57, 25)

$Radio2 = GUICtrlCreateRadio("Yellow", 472, 64, 57, 17)

$Radio3 = GUICtrlCreateRadio("Red", 472, 80, 57, 17)

$Label1 = GUICtrlCreateLabel("Alert", 488, 16, 25, 17)

$Input1 = GUICtrlCreateInput("Green", 72, 8, 153, 32)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

$Label2 = GUICtrlCreateLabel("Captain", 0, 8, 67, 28)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

$Button12 = GUICtrlCreateButton("Turbolift", 16, 520, 57, 25, $WS_CLIPSIBLINGS)

$Button13 = GUICtrlCreateButton("Turbolift", 464, 448, 65, 25, 0)

$Button14 = GUICtrlCreateButton("Turbolift", 0, 232, 49, 25, 0)

GUISetState(@SW_SHOW)

#endregion ### START Koda GUI section ### Form=c:\documents and settings\alex\my documents\scripts\startrek\v3 holo version\main bridge.kxf

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

GUIDelete()

Case $button1

Case $Button2

Case $Button3

Case $Button4

Case $Button5

Case $Button6

Case $Button8

MsgBox(4096, "Credits", "I wrote the program using Autoit v3. Pictures and sounds found on the internet. Star Trek is a registered trademark of paramount pic")

Case $Button9

Case $Button10

Case $Button11

Case $Radio1

Case $Radio2

Case $Radio3

Case $Button12

Case $Button13

EndSwitch

WEnd

Case $Button4

Exit

Case $Button2

Case $Button5

Case $Button6

Case $Button7

Case $Button8

Case $Pic2

EndSwitch

WEnd

Edited by Earl

Share this post


Link to post
Share on other sites
mysterious

Try,

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\alex\my documents\scripts\startrek\v3 holo version\mm.kxf
$Form1_1 = GUICreate("Main Menu", 791, 502, 197, 114, BitOR($WS_MINIMIZEBOX,$WS_DLGFRAME,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$Button1 = GUICtrlCreateButton("Storyline", 0, 40, 201, 49, 0)
$Button3 = GUICtrlCreateButton("Sandbox", 21, 98, 169, 57, 0)
$Button4 = GUICtrlCreateButton("Exit", 48, 160, 97, 49, 0)
$Label1 = GUICtrlCreateLabel("Star Trek V3", 8, 0, 185, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Alex\My Documents\Scripts\StarTrek\V3 holo version\ed-corridor-st7.jpg", 240, 0, 546, 495, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Tab1 = GUICtrlCreateTab(8, 232, 217, 97)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Storyline")
$Button2 = GUICtrlCreateButton("text", 24, 264, 65, 41, 0)
$Button5 = GUICtrlCreateButton("sound", 104, 264, 113, 49, 0)
$TabSheet2 = GUICtrlCreateTabItem("Sandbox")
$Button6 = GUICtrlCreateButton("text", 24, 264, 97, 49, 0)
$Button7 = GUICtrlCreateButton("sound", 136, 264, 73, 41, 0)
$TabSheet3 = GUICtrlCreateTabItem("Credits")
$Button8 = GUICtrlCreateButton("Credits", 16, 264, 201, 49, 0)
GUICtrlCreateTabItem("")
$Pic2 = GUICtrlCreatePic("C:\Documents and Settings\Alex\My Documents\Scripts\StarTrek\V3 holo version\images.jpg", 16, 344, 148, 119, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
    MsgBox(0,"Storyline","Storyline button : Works!")
Case $Button2
    MsgBox(0,"Text","You clicked the 'text' button under 'Storyline'")
Case $Button4
    Exit
Case $Button5
    MsgBox(0,"Sound","You clicked the 'sound' button under 'Storyline'")
Case $Button6
    MsgBox(0,"Text","You clicked the 'text' button under 'Sandbox'")
Case $Button7
    MsgBox(0,"Sound","You clicked the 'sound' button under 'Sandbox'")
Case $Button8
    MsgBox(0,"Credits","I wrote the program using Autoit v3. Pictures and sounds found on the internet. Star Trek is a registered trademark of paramount pic")
Case $Button3


$Form1_1 = GUICreate("Main Bridge", 544, 639, 318, 120)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Alex\My Documents\Scripts\StarTrek\V3 holo version\entdbridge2.jpg", 0, 0, 539, 636, $WS_CLIPSIBLINGS)
$button1 = GUICtrlCreateButton("Speed", 264, 224, 41, 17)
$Button2 = GUICtrlCreateButton("Ops", 176, 224, 41, 17)
$Button3 = GUICtrlCreateButton("Tactical", 216, 456, 49, 17)
$Button4 = GUICtrlCreateButton("Science", 304, 576, 49, 17)
$Button5 = GUICtrlCreateButton("Sensors", 240, 592, 49, 17, 0)
$Button6 = GUICtrlCreateButton("Personell", 176, 592, 49, 17, 0)
$Button7 = GUICtrlCreateButton("Engines", 120, 568, 49, 17, 0)
$Button8 = GUICtrlCreateButton("Ready-Room", 0, 152, 73, 25, 0)
$Button9 = GUICtrlCreateButton("Viewscreen", 200, 56, 89, 33, 0)
$Button10 = GUICtrlCreateButton("Observation Room", 416, 576, 97, 33, 0)
$Button11 = GUICtrlCreateButton("B. Bridge", 400, 192, 57, 17, 0)
$Radio1 = GUICtrlCreateRadio("Green", 472, 40, 57, 25)
$Radio2 = GUICtrlCreateRadio("Yellow", 472, 64, 57, 17)
$Radio3 = GUICtrlCreateRadio("Red", 472, 80, 57, 17)
$Label1 = GUICtrlCreateLabel("Alert", 488, 16, 25, 17)
$Input1 = GUICtrlCreateInput("Green", 72, 8, 153, 32)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Captain", 0, 8, 67, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Button12 = GUICtrlCreateButton("Turbolift", 16, 520, 57, 25, $WS_CLIPSIBLINGS)
$Button13 = GUICtrlCreateButton("Turbolift", 464, 448, 65, 25, 0)
$Button14 = GUICtrlCreateButton("Turbolift", 0, 232, 49, 25, 0)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=c:\documents and settings\alex\my documents\scripts\startrek\v3 holo version\main bridge.kxf


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form1_1)
Case $button1
    MsgBox(0,"Speed","Speed button : Works!") ; Change to what ever you want it to do..
Case $Button2
    MsgBox(0,"Ops","Ops button : Works!") ; Change to what ever you want it to do..
Case $Button3
    MsgBox(0,"Tactical","Tactical button : Works!") ; Change to what ever you want it to do..
Case $Button4
    MsgBox(0,"Science","Science button : Works!") ; Change to what ever you want it to do..
Case $Button5
    MsgBox(0,"Sensors","Sensors button : Works!") ; Change to what ever you want it to do..
Case $Button6
    MsgBox(0,"Pesonell","Personell button : Works!") ; Change to what ever you want it to do..
Case $Button7
    MsgBox(0,"Engines","Engines button : Works!") ; Change to what ever you want it to do..
Case $Button8
    MsgBox(4096, "Ready-Room", "Ready-Room button : Works!") ; Change to what ever you want it to do..
Case $Button9
    MsgBox(0,"View Screen","View Screen button : Works!") ; Change to what ever you want it to do..
Case $Button10
    MsgBox(0,"Observation Room","Observation Room button : Works!") ; Change to what ever you want it to do..
Case $Button11
    MsgBox(0,"B. Bridge","B. Bridge button : Works!") ; Change to what ever you want it to do..
Case $Radio1
    MsgBox(0,"Green"," Green Radio : Works!") ; Change to what ever you want it to do..
Case $Radio2
    MsgBox(0,"Yellow","Yellow Radio : Works!") ; Change to what ever you want it to do..
Case $Radio3
    MsgBox(0,"Red","Red Radio : Works!") ; Change to what ever you want it to do..
Case $Button12, $Button13, $Button14
    MsgBox(0,"Turbolift","Turbolift button : Works!") ; Change to what ever you want it to do..
EndSwitch
WEnd
EndSwitch
WEnd

Did the best I could, was pressed for time.. Good luck!

:)

Edited by mysterious

[center]Class... Now in session ( Thanks to Valuater )Not much more you need to know. ^_^[/center]

Share this post


Link to post
Share on other sites
Earl

thanks, got to go but I'll try asap.

Share this post


Link to post
Share on other sites
Earl

Sorry guys, I was at summer camp, and I haven't been able to try it. But it should probably do the trick. By the way, if anyone still wants to post their solutions, Iv could try them two/too/to :).

Share this post


Link to post
Share on other sites
Earl

Okay, I'm sorry. I completely forgot about my game.

Share this post


Link to post
Share on other sites
Earl

Problem=not fixed:(

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  

×