
JavaScript_Freek
Active Members-
Posts
315 -
Joined
-
Last visited
Content Type
Forums
Downloads
Forum Articles
Events
Everything posted by JavaScript_Freek
-
It's an Error!
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt General Help and Support
No the problem is $prog1 = GUICtrlCreateMenuitem("Progress") -
;*********************** ; Sample GUI Menu ; Coded by: Dan ; August 2, 2006 ;Special Thanks to: gafrost, SmOke_N, Skruge, Paulie, and codemyster! ;*********************** #include <GuiConstants.au3> #include <Misc.au3> #include <File.au3> #include <GuiListView.au3> FileWrite("c:/blank.txt", "") Global $oRP $name = InputBox("Log In", "Please enter your name:") ; GUI GUICreate("Sample GUI Menu", 400, 400) GUISetIcon(@SystemDir & " notepad.exe", 0) $TagsPageC = GUICtrlCreateLabel('Visit AutoIt Homepage', 5, 399, 100, 15, $SS_CENTER) GUICtrlSetFont($TagsPageC, 9, 400, 4) GUICtrlSetColor($TagsPageC, 0x0000ff) ; BANNER $s_TempFile = _TempFile() InetGet("http://i37.photobucket.com/albums/e91/Zombie1992/logo4.gif", $s_TempFile) GUICtrlCreatePic($s_TempFile, 0, 0, 400, 67) ; SLIDER GUICtrlCreateLabel("Slider:", 235, 325) GUICtrlCreateSlider(270, 325, 120, 30) GUICtrlSetData(-1, 30) ; TEXT GUICtrlCreateLabel("Sample GUI Menu (SGUIM). AutoItV3. Sample Label ", 10, 275, 389,20) $label = GUICtrlCreateLabel("Logged in as: " & $name, 150, 75, 400, 14) ;GUICtrlSetStyle (-1, $SS_RIGHT ) ; MENU $filemenu = GUICtrlCreateMenu("File") $fileitem = GUICtrlCreateMenuitem("Open...", $filemenu) $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu) $separator1 = GUICtrlCreateMenuitem("", $filemenu) $exititem = GUICtrlCreateMenuitem("Exit", $filemenu) $filemenu = GUICtrlCreateMenu("Scripts") $prog1 = GUICtrlCreateMenuitem("Progress") $helpmenu = GUICtrlCreateMenu("About") $aboutitem = GUICtrlCreateMenuitem("About", $helpmenu) ; TAB GUICtrlCreateTab(1, 70, 400, 190) $tab1 = GUICtrlCreateTabItem("Intro") GUICtrlCreateLabel("Welcome to Sample GUI Menu V2." & @CRLF & " " & @CRLF & "Sample Gui Program Is In Launch. This is a sample gui with features such as login, tabs, clickable links, and NotePad Feature! ", 20, 120, 385, 100) GUICtrlCreateTabItem("Info") $Edit_1 = GuiCtrlCreateEdit("Welcome to SimpleEdit 1.1 Created by: codemyster", 15, 100, 373, 120) $Button_2 = GuiCtrlCreateButton("New", 20, 220, 100, 30) $Button_3 = GuiCtrlCreateButton("Save", 220, 220, 100, 30) $Button_7 = GuiCtrlCreateButton("Open", 120, 220, 100, 30) GUICtrlCreateTabItem("AutoIt") $treeview = GUICtrlCreateTreeView(15, 100, 100, 150, BitOr($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE) $generalitem = GUICtrlCreateTreeViewitem("General", $treeview) GUICtrlSetColor(-1, 0x0000C0) $displayitem = GUICtrlCreateTreeViewitem("Users", $treeview) GUICtrlSetColor(-1, 0x0000C0) $compitem = GUICtrlCreateTreeViewitem("Computer", $generalitem) $useritem = GUICtrlCreateTreeViewitem("User", $generalitem) $resitem = GUICtrlCreateTreeViewitem("Resolution", $displayitem) $otheritem = GUICtrlCreateTreeViewitem("Other", $displayitem) GuiCtrlCreateLabel("Latest Version of AutoIt: " &@AutoItVersion &"", 120,230) Dim $listview, $button, $msg, $i, $ret, $s_item $listview = GUICtrlCreateListView("Col1|Col2|Col3 ", 120, 100, 210, 100, BitOR($LVS_SINGLESEL, $LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER)) $button = GUICtrlCreateButton ("Value?",120,205,70,20) $item1=GUICtrlCreateListViewItem("Apple|Pear|Fruit",$listview) $item2=GUICtrlCreateListViewItem("ABC|123|321",$listview) $item3=GUICtrlCreateListViewItem("Item1|Item2|Item3",$listview) $input1=GUICtrlCreateInput("Input Testing!",199,205,100,20) GUICtrlSetState(-1,$GUI_DROPACCEPTED) ; to allow drag and dropping GUISetState() GUICtrlSetData($item2,"ITEM1") GUICtrlSetData($item3,"||COL33") GUICtrlDelete($item1) _GUICtrlListViewSetItemCount($listview, 20) ; GUI MESSAGE LOOP GUICtrlCreateTabItem("") ; end tabitem definition GUICtrlSetState($tab1, $GUI_SHOW) ; will be display first 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.autoitscript.com/autoit3%27"]http://www.autoitscript.com/autoit3', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Sample GUI Menu", "Sample GUI Menu V2" & @CRLF & @CRLF & "Created by: Javascript_Freek" & @CRLF & "" & @CRLF & "©AutoIt") Case $msg = $prog1 Run('C:\Program Files\AutoIt3\beta\Examples', '', @SW_HIDE) Case $msg = $GUI_EVENT_CLOSE $msg = GuiGetMsg() Case $msg = $Button_7 GUICtrlSetData($Edit_1,Fileread(FileOpenDialog("Select a file to open",@ScriptDir, "All Files (*.*)"))) Case $msg = $button MsgBox(0,"listview item",GUICtrlRead(GUICtrlRead($listview)),2) Case $msg = $listview MsgBox(0,"listview", "clicked="& GUICtrlGetState($listview),2) Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEndoÝ÷ Ø e®(!´kçfjH§+l¢Ø^íý²Ø^Ävº)v'éîjÛh¤p¢é]mébábä®*m°èºÐn¶Ø^±Êâ¦Û0¢{p¢¹yÆ®±è¦¶¼¢h)ä¶ax Rr¸©¶Å¨ºWm+z¸ ×è¯^*.rXíãë¢ Þ²ÈÂ¥v -¢Ø^ëhÑ1jjezÆ®¶s`66Rb33c¶×6rÒb33c·&ös¢'Vâb33´3¢b3#µ&öw&ÒfÆW2b3#´WFôC2b3#¶&WFb3#´WׯW2b33²Âb33²b33²Â5uôDRoÝ÷ Ù8^zºè«¢+ØÀÌØíÁɽÄôU% Ñɱ ÉÑ5¹Õ¥Ñ´ ÅÕ½ÐíAɽÉÍÌÅÕ½Ðì Help, I don't know how to fix it!
-
Hey. I've always wondered that as well! Thanks!
-
;*********************** ; Sample GUI Menu V2 ; Coded by: Dan ; August 2, 2006 ;Special Thanks to: gafrost, SmOke_N, Skruge, Paulie, and codemyster! ;*********************** #include <GuiConstants.au3> #include <Misc.au3> #include <File.au3> #include <GuiListView.au3> FileWrite("c:/blank.txt", "") Global $oRP $name = InputBox("Log In", "Please enter your name:") ; GUI GUICreate("Sample GUI Menu", 400, 400) GUISetIcon(@SystemDir & " notepad.exe", 0) $TagsPageC = GUICtrlCreateLabel('Visit AutoIt Homepage', 5, 399, 100, 15, $SS_CENTER) GUICtrlSetFont($TagsPageC, 9, 400, 4) GUICtrlSetColor($TagsPageC, 0x0000ff) GUICtrlSetCursor($TagsPageC, 0) GUICtrlCreateLabel ("GUICtrlCreateLabel", 100, 400) ; BANNER $s_TempFile = _TempFile() InetGet("http://i37.photobucket.com/albums/e91/Zombie1992/logo4.gif", $s_TempFile) GUICtrlCreatePic($s_TempFile, 0, 0, 400, 67) ; SLIDER GUICtrlCreateLabel("Slider:", 235, 325) GUICtrlCreateSlider(270, 325, 120, 30) GUICtrlSetData(-1, 30) ; TEXT GUICtrlCreateLabel("This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main MenuV2!", 10, 275, 389, 37) $label = GUICtrlCreateLabel("Logged in as: " & $name, 150, 75, 400, 14) ;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) ; TAB GUICtrlCreateTab(1, 70, 400, 190) $tab1 = GUICtrlCreateTabItem("Intro") GUICtrlCreateLabel("Welcome to Sample GUI Menu V2." & @CRLF & " " & @CRLF & "Sample Gui Program Is In Launch. This is a sample gui with features such as login, tabs, clickable links, and NotePad Feature! ", 20, 120, 385, 100) GUICtrlCreateTabItem("Info") $Edit_1 = GuiCtrlCreateEdit("Welcome to SimpleEdit 1.1 Created by: codemyster", 15, 100, 373, 120) $Button_2 = GuiCtrlCreateButton("New", 20, 220, 100, 30) $Button_3 = GuiCtrlCreateButton("Save", 220, 220, 100, 30) $Button_7 = GuiCtrlCreateButton("Open", 120, 220, 100, 30) GUICtrlCreateTabItem("AutoIt") $treeview = GUICtrlCreateTreeView(15, 100, 100, 150, BitOr($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE) $generalitem = GUICtrlCreateTreeViewitem("General", $treeview) GUICtrlSetColor(-1, 0x0000C0) $displayitem = GUICtrlCreateTreeViewitem("Users", $treeview) GUICtrlSetColor(-1, 0x0000C0) $compitem = GUICtrlCreateTreeViewitem("Computer", $generalitem) $useritem = GUICtrlCreateTreeViewitem("User", $generalitem) $resitem = GUICtrlCreateTreeViewitem("Resolution", $displayitem) $otheritem = GUICtrlCreateTreeViewitem("Other", $displayitem) Dim $listview, $button, $msg, $i, $ret, $s_item $listview = GUICtrlCreateListView("Col1|Col2|Col3|Col4", 120, 100, 200, 100, BitOR($LVS_SINGLESEL, $LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER)) GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES) GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT) GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_HEADERDRAGDROP, $LVS_EX_HEADERDRAGDROP) _GUICtrlListViewSetItemCount($listview, 20) ; GUI MESSAGE LOOP GUICtrlCreateTabItem("") ; end tabitem definition GUICtrlSetState($tab1, $GUI_SHOW) ; will be display first 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.autoitscript.com/autoit3%27"]http://www.autoitscript.com/autoit3', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Sample GUI Menu V2", "Sample GUI Menu V2" & @CRLF & @CRLF & "Created by: Javascript_Freek" & @CRLF & "" & @CRLF & "©AutoIt") Case $msg = $GUI_EVENT_CLOSE $msg = GuiGetMsg() Case $msg = $Button_2 GUICtrlSetData($Edit_1, "") Case $msg = $Button_3 FileWrite(FilesaveDialog("Select a file to save",@ScriptDir, "All Files (*.*)"),GUICtrlRead($Edit_1)) Case $msg = $Button_7 GUICtrlSetData($Edit_1,Fileread(FileOpenDialog("Select a file to open",@ScriptDir, "All Files (*.*)"))) Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $button For $i = 0 To 9 $s_item = $i & "|" & $i & "|" & $i & "|" & $i GUICtrlCreateListViewItem($s_item, $listview) Next EndSelect WEnd When you launch it the list on the third tab keeps adding. Why does this happen? Not the list itself but the numbers inside.
-
End Select | WEnd HELP
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt General Help and Support
Thanks SmOke_N *adds to Credit list* -
End Select | WEnd HELP
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt General Help and Support
Now it says to remove WEnd on the very last line. Btw line 119 is the second to last line. (End Select) -
;*********************** ; Sample GUI Menu V2 ; Coded by: Dan ; August 2, 2006 ;Special Thanks to: gafrost, Paulie, and codemyster! ;*********************** #include <GuiConstants.au3> #include <Misc.au3> #include <File.au3> #include <GuiListView.au3> FileWrite("c:/blank.txt", "") Global $oRP $name = InputBox("Log In", "Please enter your name:") ; GUI GUICreate("Sample GUI Menu", 400, 400) GUISetIcon(@SystemDir & " notepad.exe", 0) $TagsPageC = GUICtrlCreateLabel('Visit AutoIt Homepage', 5, 399, 100, 15, $SS_CENTER) GUICtrlSetFont($TagsPageC, 9, 400, 4) GUICtrlSetColor($TagsPageC, 0x0000ff) GUICtrlSetCursor($TagsPageC, 0) ; BANNER $s_TempFile = _TempFile() InetGet("http://i37.photobucket.com/albums/e91/Zombie1992/logo4.gif", $s_TempFile) GUICtrlCreatePic($s_TempFile, 0, 0, 400, 67) ; SLIDER GUICtrlCreateLabel("Slider:", 235, 325) GUICtrlCreateSlider(270, 325, 120, 30) GUICtrlSetData(-1, 30) ; TEXT GUICtrlCreateLabel("This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main MenuV2!", 10, 275, 389, 37) $label = GUICtrlCreateLabel("Logged in as: " & $name, 150, 75, 400, 14) ;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) ; TAB GUICtrlCreateTab(1, 70, 400, 190) $tab1 = GUICtrlCreateTabItem("Intro") GUICtrlCreateLabel("Welcome to Sample GUI Menu V2." & @CRLF & " " & @CRLF & "Sample Gui Program Is In Launch. This is a sample gui with features such as login, tabs, clickable links, and NotePad Feature! ", 20, 120, 385, 100) GUICtrlCreateTabItem("Info") $Edit_1 = GuiCtrlCreateEdit("Welcome to SimpleEdit 1.1 Created by: codemyster", 15, 100, 373, 120) $Button_2 = GuiCtrlCreateButton("New", 20, 220, 100, 30) $Button_3 = GuiCtrlCreateButton("Save", 220, 220, 100, 30) $Button_7 = GuiCtrlCreateButton("Open", 120, 220, 100, 30) GUICtrlCreateTabItem("AutoIt") $treeview = GUICtrlCreateTreeView(15, 100, 100, 150, BitOr($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE) $generalitem = GUICtrlCreateTreeViewitem("General", $treeview) GUICtrlSetColor(-1, 0x0000C0) $displayitem = GUICtrlCreateTreeViewitem("Users", $treeview) GUICtrlSetColor(-1, 0x0000C0) $compitem = GUICtrlCreateTreeViewitem("Computer", $generalitem) $useritem = GUICtrlCreateTreeViewitem("User", $generalitem) $resitem = GUICtrlCreateTreeViewitem("Resolution", $displayitem) $otheritem = GUICtrlCreateTreeViewitem("Other", $displayitem) Dim $listview, $button, $msg, $i, $ret, $s_item GUICreate("ListView Set Item Count", 392, 254) $listview = GUICtrlCreateListView("col1|col2|col3|col4", 100, 10, 200, 100, BitOR($LVS_SINGLESEL, $LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER)) GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES) GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT) GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_HEADERDRAGDROP, $LVS_EX_HEADERDRAGDROP) $button = GUICtrlCreateButton("Add Items", 150, 120, 90, 30) _GUICtrlListViewSetItemCount($listview, 20) ; GUI MESSAGE LOOP GUICtrlCreateTabItem("") ; end tabitem definition GUICtrlSetState($tab1, $GUI_SHOW) ; will be display first 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.autoitscript.com/autoit3%27"]http://www.autoitscript.com/autoit3', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Sample GUI Menu V2", "Sample GUI Menu V2" & @CRLF & @CRLF & "Created by: Javascript_Freek" & @CRLF & "" & @CRLF & "©AutoIt") Case $msg = $GUI_EVENT_CLOSE $msg = GuiGetMsg() Case $msg = $Button_2 GUICtrlSetData($Edit_1, "") Case $msg = $Button_3 FileWrite(FilesaveDialog("Select a file to save",@ScriptDir, "All Files (*.*)"),GUICtrlRead($Edit_1)) Case $msg = $Button_7 GUICtrlSetData($Edit_1,Fileread(FileOpenDialog("Select a file to open",@ScriptDir, "All Files (*.*)"))) $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $button For $i = 0 To 19 $s_item = $i & "|" & $i & "|" & $i & "|" & $i GUICtrlCreateListViewItem($s_item, $listview) EndSelect WEnd Alright something is wrong and I don't know what they say to remove EndSelect WEnd THen after i remove that its Line 88: Select Help me please.
-
Computer Information (New Tabbed Version!)
JavaScript_Freek replied to Skrip's topic in AutoIt Example Scripts
Wow this is really great! Keep up the great work! //JSF -
SGUIM (Sample GUI Menu)
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt Example Scripts
Thanks! I think I'll add another BOX where it says on FILE "open box 2" and other GUI will be put in there, -
SGUIM (Sample GUI Menu)
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt Example Scripts
Updated the download! With now many new features! -
Close On Cancel | Help
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt General Help and Support
Thanks My sample gui menu is almost complete. As from the hep of spyrorocks it will have a online database! -
;*********************** ; Sample GUI Menu V2 ; Coded by: Dan ; August 2, 2006 ;Special Thanks to: gafrost, Paulie, and codemyster! ;*********************** #include <GuiConstants.au3> #include <Misc.au3> #include <File.au3> FileWrite("c:/blank.txt", "") Global $oRP $name = InputBox("Log In", "Please enter your name:") ; GUI GUICreate("Sample GUI Menu V2", 400, 400) GUISetIcon(@SystemDir & " otepad.exe", 0) $TagsPageC = GUICtrlCreateLabel('Visit Homepage', 5, 399, 100, 15, $SS_CENTER) GUICtrlSetFont($TagsPageC, 9, 400, 4) GUICtrlSetColor($TagsPageC, 0x0000ff) GUICtrlSetCursor($TagsPageC, 0) ; BANNER $s_TempFile = _TempFile() InetGet("http://i37.photobucket.com/albums/e91/Zombie1992/logo4.gif", $s_TempFile) GUICtrlCreatePic($s_TempFile, 0, 0, 400, 67) ; SLIDER GUICtrlCreateLabel("Slider:", 235, 325) GUICtrlCreateSlider(270, 325, 120, 30) GUICtrlSetData(-1, 30) ; TEXT GUICtrlCreateLabel("This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main MenuV2!", 10, 275, 389, 37) $label = GUICtrlCreateLabel("Logged in as: " & $name, 150, 75, 400, 14) ;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) ; TAB GUICtrlCreateTab(1, 70, 400, 190) $tab1 = GUICtrlCreateTabItem("Intro") GUICtrlCreateLabel("Welcome to Sample GUI Menu V2." & @CRLF & " " & @CRLF & "Sample Gui Program Is In Launch. This is a sample gui with features such as login, tabs, clickable links, and NotePad Feature! ", 20, 120, 385, 100) GUICtrlCreateTabItem("Info") $Edit_1 = GuiCtrlCreateEdit("Welcome to SimpleEdit 1.1 Created by: codemyster", 15, 100, 373, 120) $Button_2 = GuiCtrlCreateButton("New", 20, 220, 100, 30) $Button_3 = GuiCtrlCreateButton("Save", 220, 220, 100, 30) $Button_7 = GuiCtrlCreateButton("Open", 120, 220, 100, 30) GUICtrlCreateTabItem("AutoIt") GUICtrlCreateLabel("AutoIt Created by Jonathan Bennett. www.autoitscript.com " & @CRLF & @CRLF & "Version 2: http://www.autoitscript.com/AutoIt/ " & @CRLF & "" & @CRLF & "Version 3: http://www.autoitscript.com/autoit3/'", 20, 120, 385, 120) ; GUI MESSAGE LOOP GUICtrlCreateTabItem("") ; end tabitem definition GUICtrlSetState($tab1, $GUI_SHOW) ; will be display first 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.autoitscript.com/autoit3%27"]http://www.autoitscript.com/autoit3', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Sample GUI Menu V2", "Sample GUI Menu V2" & @CRLF & @CRLF & "Created by: Javascript_Freek" & @CRLF & "" & @CRLF & "©AutoIt") Case $msg = $GUI_EVENT_CLOSE $msg = GuiGetMsg() Case $msg = $Button_2 GUICtrlSetData($Edit_1, "") Case $msg = $Button_3 FileWrite(FilesaveDialog("Select a file to save",@ScriptDir, "All Files (*.*)"),GUICtrlRead($Edit_1)) Case $msg = $Button_7 GUICtrlSetData($Edit_1,Fileread(FileOpenDialog("Select a file to open",@ScriptDir, "All Files (*.*)"))) Exit EndSelect WEnd Doesn anyknow know why on the open of SimpleEdit 1.1 on the second tab. When I click open. then cancel the whole application closes. Why does that happen?
-
SGUIM (Sample GUI Menu)
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt Example Scripts
Thanks for the comment! -
Microsoft Word Automation Library
JavaScript_Freek replied to big_daddy's topic in AutoIt Example Scripts
Tried opening with Beta. Nothing happened. -
Banner Won't Appear
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt General Help and Support
Yes it works! But dang it.. why??!?! -
Banner Won't Appear
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt General Help and Support
Yes the banner is a .jpg and I updated this script but it's still not appear. Help? I updated by making everyone below so banner will fit. ;*********************** ; Sample GUI Menu V2 ; Coded by: Dan ; August 2, 2006 ;Special Thanks to: gafrost, Paulie, and codemyster! ;*********************** #include <GuiConstants.au3> #include <Misc.au3> Global $oRP $name = InputBox("Log In", "Please enter your name:") ; GUI GUICreate("Sample GUI Menu V2", 400, 400) GUISetIcon(@SystemDir & "\notepad.exe", 0) $TagsPageC = GUICtrlCreateLabel('Visit Homepage', 5, 399, 100, 15, $SS_CENTER) GUICtrlSetFont($TagsPageC, 9, 400, 4) GUICtrlSetColor($TagsPageC, 0x0000ff) GUICtrlSetCursor($TagsPageC, 0) ; BANNER GuiCtrlCreatePic("http://i37.photobucket.com/albums/e91/Zombie1992/Autoit/banner.jpg", 0, 0, 400,67) ; SLIDER GuiCtrlCreateLabel("Slider:", 235, 300) GuiCtrlCreateSlider(270, 294, 120, 30) GuiCtrlSetData(-1, 30) ; TEXT GUICtrlCreateLabel("This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main MenuV2!", 10, 260, 389, 37) $label = GuiCtrlCreateLabel("Logged in as: " &$name, 130, 75, 400, 13) ;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, 70, 400, 190) GUICtrlCreateTabItem("Intro") GUICtrlCreateLabel("Welcome to Sample GUI Menu V2." & @CRLF & " " & @CRLF & "Sample Gui Program Is In Launch. This is a sample gui with features such as login, tabs, and clickable links. ", 20, 120, 385, 100) GUICtrlCreateTabItem("Info") 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, 120, 385, 100) GUICtrlCreateTabItem("AutoIt") GUICtrlCreateLabel("AutoIt Created by Jonathan Bennett. www.autoitscript.com " & @CRLF & "" & @CRLF & "Version 2: http://www.autoitscript.com/AutoIt/ " & @CRLF & "" & @CRLF & "Version 3: http://www.autoitscript.com/autoit3/", 20, 120, 385, 100) ; 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.autoitscript.com/autoit3', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Sample GUI Menu V2", "Sample GUI Menu V2" & @CRLF & " " & @CRLF & "Created by: Javascript_Freek" & @CRLF & "" & @CRLF & "©AutoIt") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd -
Banner Won't Appear
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt General Help and Support
No it's not that i tried that using an example of SplashImageOn. Didn't work =\ -
Yup I need help again. Why won't the banner appear? Can someone please do it right so the banner appears at the very top? Banner: ;*********************** ; Sample GUI Menu V2 ; Coded by: Dan ; August 2, 2006 ;Special Thanks to: gafrost, Paulie, and codemyster! ;*********************** #include <GuiConstants.au3> #include <Misc.au3> Global $oRP $name = InputBox("Log In", "Please enter your name:") ; GUI GUICreate("Sample GUI Menu V2", 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) ; BANNER GuiCtrlCreatePic("http://i37.photobucket.com/albums/e91/Zombie1992/Autoit/banner.png", 0,0, 400,67) ; SLIDER GuiCtrlCreateLabel("Slider:", 235, 215) GuiCtrlCreateSlider(270, 210, 120, 30) GuiCtrlSetData(-1, 30) ; TEXT GUICtrlCreateLabel("This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu! This is the text for a Main Menu!", 10, 250, 389, 100) $label = GuiCtrlCreateLabel("Logged in as: " &$name, 150, 4, 400, 15) ;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 Sample GUI Menu V2." & @CRLF & " " & @CRLF & "Sample Gui Program Is In Launch. This is a sample gui with features such as login, tabs, and clickable links. ", 20, 40, 385, 100) GUICtrlCreateTabItem("Info") 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("AutoIt") GUICtrlCreateLabel("AutoIt Created by Jonathan Bennett. www.autoitscript.com " & @CRLF & "" & @CRLF & "Version 2: http://www.autoitscript.com/AutoIt/ " & @CRLF & "" & @CRLF & "Version 3: http://www.autoitscript.com/autoit3/", 20, 40, 385, 100) ; 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.autoitscript.com/autoit3', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Sample GUI Menu V2", "Sample GUI Menu V2" & @CRLF & " " & @CRLF & "Created by: Javascript_Freek" & @CRLF & "" & @CRLF & "©AutoIt") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd
-
SGUIM (Sample GUI Menu)
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt Example Scripts
Alright I get it, but I might need help. You never know. -
SGUIM (Sample GUI Menu)
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt Example Scripts
Bold = wtf? I don't comprendo! Maybe, I think If I add more stuff this could be added in Examples for Sample GUI Menu V2 for next beta release!!! < I like that smiley. -
SGUIM (Sample GUI Menu)
JavaScript_Freek replied to JavaScript_Freek's topic in AutoIt Example Scripts
Wa- hey thank you taurus. I appricate everyone's comments! And Paulie even if you made one word or one line. You've help me =) -
Alright this is over. Go to: Sample GUI Menu