JavaScript_Freek Posted August 5, 2006 Posted August 5, 2006 expandcollapse popup;*********************** ; Dan's Main Menu ; Coded by: Dan ; August 2, 2006 ;Find Dan at: ;InvisionFreeSkins.com ;and JavascriptFreek.com ;*********************** #include <GuiConstants.au3> #include <Misc.au3> ; GUI GuiCreate("Dan's Main Menu", 400, 400) GuiSetIcon(@SystemDir & "\notepad.exe", 0) $TagsPageC = GuiCtrlCreateLabel('Visit Homepage', 5, 180, 100, 15, $SS_CENTER) GuiCtrlSetFont($TagsPageC,9,400,4) GuiCtrlSetColor($TagsPageC,0x0000ff) GuiCtrlSetCursor($TagsPageC,0) ; TEXT GUICtrlCreateLabel ( "If you have not noticed this already, the thing above this text is a tab. Pretty neat " &@crlf &"eh? Well not really, but still :D! Lalala this is some text. Blah blah I like muffins, and chocolate. Tribe No 1 Fan is a n00b. I like TEXT!" &@crlf &"" &@crlf &"-Dan", 10, 200, 400, 100) ;GUICtrlSetStyle (-1, $SS_RIGHT ) ; MENU $filemenu = GuiCtrlCreateMenu ("File") $fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu) $recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu) $separator1 = GuiCtrlCreateMenuitem ("",$filemenu) $exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu) $helpmenu = GuiCtrlCreateMenu ("About") $aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu) ; PROGRESS BAR ProgressOn("Progress Meter", "Increments every second", "0 percent") For $i = 1 to 100 step 10 ProgressSet( $i, $i & " percent") Next ProgressSet(100 , "Done", "Complete") sleep(500) ProgressOff() ; TAB GuiCtrlCreateTab(1, 0, 400, 190) GuiCtrlCreateTabItem("Intro") GuiCtrlCreateLabel("Welcome to Dan's Menu Program." &@crlf &" " &@crlf &"Of course if you trust me you would be seeing this right now. Because this an " &@crlf &".exe file. Not everyone trust's them kind of files as they contain harmful virus. So "& @crlf &"hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well "& @crlf &"not really, but I still like it!", 20, 40, 400, 100) GuiCtrlCreateTabItem("Date") GuiCtrlCreateLabel("Todays date: " &@MON &" " &@WDAY &", " &@YEAR &" " &@crlf &"" &@crlf &"So your name on the computer is: " &@UserName &"" &@crlf &"" &@crlf &"Screen resolution: " &@DesktopWidth &"x" &@DesktopHeight &"" &@crlf &"" &@crlf &"Operating System Version: " &@OSVersion &" ", 20, 40) GuiCtrlCreateTabItem("Contact") GuiCtrlCreateLabel("Find me at ZetaStyles.com! Username: Dan." &@crlf &"" &@crlf &"Got an IM? Want to quickly chat with me?" &@crlf &"" &@crlf &"MSN: Hunterz92@yahoo.com" &@crlf &"" &@crlf &"AIM: Writer Zombie " &@crlf &"" &@crlf &"Yahoo!: zombiekid92@yahoo.com" &@crlf &"" &@crlf &"Email(s): dan@zetastyles.com", 20, 40) ; GUI MESSAGE LOOP GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)") If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu) Case $msg = $exititem ExitLoop While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE $oRP.SaveFile( @ScriptDir & "\RichText.rtf", 0 ) ExitLoop Case $msg = $TagsPageC Run(@ComSpec & ' /c start http://www.javascriptfreek.com}','', @SW_HIDE) Case $msg = $aboutitem Msgbox(0,"About Dan's Menu","Dan's Main Menu" &@crlf &" " &@crlf &"http://javascriptfreek.com" &@crlf &"" &@crlf &"http://zetastyles.com" &@crlf &"" &@crlf &"©2006 Dan") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd Allright when i run it it says. Error: Select statement is missing. Blah blah. Can anyone help me fix this code up? Btw I'm trying to add a click-able link. [center]Cookyx.com :: Simple LAN Chat[/center]
NELyon Posted August 5, 2006 Posted August 5, 2006 expandcollapse popup;*********************** ; Dan's Main Menu ; Coded by: Dan ; August 2, 2006 ;Find Dan at: ;InvisionFreeSkins.com ;and JavascriptFreek.com ;*********************** #include <GuiConstants.au3> #include <Misc.au3> Global $oRP ; GUI GuiCreate("Dan's Main Menu", 400, 400) GuiSetIcon(@SystemDir & "\notepad.exe", 0) $TagsPageC = GuiCtrlCreateLabel('Visit Homepage', 5, 200, 100, 15, $SS_CENTER) GuiCtrlSetFont($TagsPageC,9,400,4) GuiCtrlSetColor($TagsPageC,0x0000ff) GuiCtrlSetCursor($TagsPageC,0) ; TEXT GUICtrlCreateLabel ( "If you have not noticed this already, the thing above this text is a tab. Pretty neat " &@crlf &"eh? Well not really, but still ! Lalala this is some text. Blah blah I like muffins, and chocolate. Tribe No 1 Fan is a n00b. I like TEXT!" &@crlf &"" &@crlf &"-Dan", 10, 250, 400, 100) ;GUICtrlSetStyle (-1, $SS_RIGHT ) ; MENU $filemenu = GuiCtrlCreateMenu ("File") $fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu) $recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu) $separator1 = GuiCtrlCreateMenuitem ("",$filemenu) $exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu) $helpmenu = GuiCtrlCreateMenu ("About") $aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu) ; PROGRESS BAR ProgressOn("Progress Meter", "Increments every second", "0 percent") For $i = 1 to 100 step 10 ProgressSet( $i, $i & " percent") Next ProgressSet(100 , "Done", "Complete") sleep(500) ProgressOff() ; TAB GuiCtrlCreateTab(1, 0, 400, 190) GuiCtrlCreateTabItem("Intro") GuiCtrlCreateLabel("Welcome to Dan's Menu Program." &@crlf &" " &@crlf &"Of course if you trust me you would be seeing this right now. Because this an " &@crlf &".exe file. Not everyone trust's them kind of files as they contain harmful virus. So "& @crlf &"hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well "& @crlf &"not really, but I still like it!", 20, 40, 400, 100) GuiCtrlCreateTabItem("Date") GuiCtrlCreateLabel("Todays date: " &@MON &" " &@WDAY &", " &@YEAR &" " &@crlf &"" &@crlf &"So your name on the computer is: " &@UserName &"" &@crlf &"" &@crlf &"Screen resolution: " &@DesktopWidth &"x" &@DesktopHeight &"" &@crlf &"" &@crlf &"Operating System Version: " &@OSVersion &" ", 20, 40) GuiCtrlCreateTabItem("Contact") GuiCtrlCreateLabel("Find me at ZetaStyles.com! Username: Dan." &@crlf &"" &@crlf &"Got an IM? Want to quickly chat with me?" &@crlf &"" &@crlf &"MSN: Hunterz92@yahoo.com" &@crlf &"" &@crlf &"AIM: Writer Zombie " &@crlf &"" &@crlf &"Yahoo!: zombiekid92@yahoo.com" &@crlf &"" &@crlf &"Email(s): dan@zetastyles.com", 20, 40) ; GUI MESSAGE LOOP GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)") If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu) Case $msg = $exititem ExitLoop EndSelect Wend While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE $oRP.SaveFile( @ScriptDir & "\RichText.rtf", 0 ) ExitLoop Case $msg = $TagsPageC Run(@ComSpec & ' /c start http://www.javascriptfreek.com}','', @SW_HIDE) Case $msg = $aboutitem Msgbox(0,"About Dan's Menu","Dan's Main Menu" &@crlf &" " &@crlf &"http://javascriptfreek.com" &@crlf &"" &@crlf &"http://zetastyles.com" &@crlf &"" &@crlf &"©2006 Dan") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd
JavaScript_Freek Posted August 5, 2006 Author Posted August 5, 2006 Thanks sooo much! Any way of getting it into the "About Box" ? [center]Cookyx.com :: Simple LAN Chat[/center]
NELyon Posted August 5, 2006 Posted August 5, 2006 no problem. Your actually the first person i've been able to help
JavaScript_Freek Posted August 5, 2006 Author Posted August 5, 2006 (edited) Gosh darnit now the thing will not close if i click the X or File>>Exit Well with the X it will but it will give me an error! Well it will after many tried of clicking it! :cry: The error says something is wrong with Line 74. Edited August 5, 2006 by JavaScript_Freek [center]Cookyx.com :: Simple LAN Chat[/center]
NELyon Posted August 5, 2006 Posted August 5, 2006 Hmm... i tried making it a RICH.RICHTEXTCtrl.1 object but it didn't work. I don't know whats wrong now
GaryFrost Posted August 5, 2006 Posted August 5, 2006 didn't mess with the rich text stuff expandcollapse popup;*********************** ; Dan's Main Menu ; Coded by: Dan ; August 2, 2006 ;Find Dan at: ;InvisionFreeSkins.com ;and JavascriptFreek.com ;*********************** #include <GuiConstants.au3> #include <Misc.au3> Global $oRP ; GUI GUICreate("Dan's Main Menu", 400, 400) GUISetIcon(@SystemDir & "\notepad.exe", 0) $TagsPageC = GUICtrlCreateLabel('Visit Homepage', 5, 200, 100, 15, $SS_CENTER) GUICtrlSetFont($TagsPageC, 9, 400, 4) GUICtrlSetColor($TagsPageC, 0x0000ff) GUICtrlSetCursor($TagsPageC, 0) ; TEXT GUICtrlCreateLabel("If you have not noticed this already, the thing above this text is a tab. Pretty neat " & @CRLF & "eh? Well not really, but still ! Lalala this is some text. Blah blah I like muffins, and chocolate. Tribe No 1 Fan is a n00b. I like TEXT!" & @CRLF & "" & @CRLF & "-Dan", 10, 250, 400, 100) ;GUICtrlSetStyle (-1, $SS_RIGHT ) ; MENU $filemenu = GUICtrlCreateMenu("File") $fileitem = GUICtrlCreateMenuitem("Open...", $filemenu) $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu) $separator1 = GUICtrlCreateMenuitem("", $filemenu) $exititem = GUICtrlCreateMenuitem("Exit", $filemenu) $helpmenu = GUICtrlCreateMenu("About") $aboutitem = GUICtrlCreateMenuitem("About", $helpmenu) ; PROGRESS BAR ProgressOn("Progress Meter", "Increments every second", "0 percent") For $i = 1 To 100 Step 10 ProgressSet($i, $i & " percent") Next ProgressSet(100, "Done", "Complete") Sleep(500) ProgressOff() ; TAB GUICtrlCreateTab(1, 0, 400, 190) GUICtrlCreateTabItem("Intro") GUICtrlCreateLabel("Welcome to Dan's Menu Program." & @CRLF & " " & @CRLF & "Of course if you trust me you would be seeing this right now. Because this an " & @CRLF & ".exe file. Not everyone trust's them kind of files as they contain harmful virus. So " & @CRLF & "hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well " & @CRLF & "not really, but I still like it!", 20, 40, 400, 100) GUICtrlCreateTabItem("Date") GUICtrlCreateLabel("Todays date: " & @MON & " " & @WDAY & ", " & @YEAR & " " & @CRLF & "" & @CRLF & "So your name on the computer is: " & @UserName & "" & @CRLF & "" & @CRLF & "Screen resolution: " & @DesktopWidth & "x" & @DesktopHeight & "" & @CRLF & "" & @CRLF & "Operating System Version: " & @OSVersion & " ", 20, 40) GUICtrlCreateTabItem("Contact") GUICtrlCreateLabel("Find me at ZetaStyles.com! Username: Dan." & @CRLF & "" & @CRLF & "Got an IM? Want to quickly chat with me?" & @CRLF & "" & @CRLF & "MSN: Hunterz92@yahoo.com" & @CRLF & "" & @CRLF & "AIM: Writer Zombie " & @CRLF & "" & @CRLF & "Yahoo!: zombiekid92@yahoo.com" & @CRLF & "" & @CRLF & "Email(s): dan@zetastyles.com", 20, 40) ; GUI MESSAGE LOOP GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)") If @error <> 1 Then GUICtrlCreateMenuitem($file, $recentfilesmenu) Case $msg = $exititem ExitLoop Case $msg = $GUI_EVENT_CLOSE ;~ $oRP.SaveFile (@ScriptDir & "\RichText.rtf", 0) ExitLoop Case $msg = $TagsPageC Run(@ComSpec & ' /c start http://www.javascriptfreek.com}', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Dan's Menu", "Dan's Main Menu" & @CRLF & " " & @CRLF & "http://javascriptfreek.com" & @CRLF & "" & @CRLF & "http://zetastyles.com" & @CRLF & "" & @CRLF & "©2006 Dan") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference.
JavaScript_Freek Posted August 5, 2006 Author Posted August 5, 2006 Haha! Yes it works! Thanks codemyster for the Links page and ga for the close thingy! [center]Cookyx.com :: Simple LAN Chat[/center]
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now