madmorgan Posted February 8, 2010 Share Posted February 8, 2010 hello all, i have a main app window that works grate but i add a seound window to show some information and when i click ok to close the window it exits the hole program. here is my code can some show me were im going wrong please. expandcollapse popup#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <File.au3> #include <array.au3> #include "mysql.au3" #Include <Date.au3> Global $Name Global $FullPath Global $temp = "" Global $FORMTITLE = ("Product Add To Shop : BIG DEAL GENRAL GOODS.") ;GUI DATA. #Region ### START Koda GUI section ### Form= $Form1 = GUICreate($FORMTITLE, 468, 400, 208, 126) $MenuItem1 = GUICtrlCreateMenu("File") $MenuItem3 = GUICtrlCreateMenuItem("Exit", $MenuItem1) $MenuItem2 = GUICtrlCreateMenu("Help") $MenuItem4 = GUICtrlCreateMenuItem("About", $MenuItem2) $IMAGE = GUICtrlCreateInput("", 240, 256, 121, 21) $Label1 = GUICtrlCreateLabel("Title", 56, 24, 24, 17) $Label2 = GUICtrlCreateLabel("Catorgury", 312, 24, 49, 17) $Label3 = GUICtrlCreateLabel("Decryption", 32, 88, 55, 17) $Label4 = GUICtrlCreateLabel("Price £", 272, 88, 36, 17) $Label5 = GUICtrlCreateLabel("Shipping £", 368, 88, 53, 17) $Label6 = GUICtrlCreateLabel("URL Link", 272, 160, 49, 17) $Label7 = GUICtrlCreateLabel("Image", 288, 232, 33, 17) $TITLE = GUICtrlCreateInput("", 16, 48, 185, 21) $DEC = GUICtrlCreateEdit("", 16, 120, 209, 249) GUICtrlSetData(-1, "") $CATS = GUICtrlCreateCombo("", 264, 48, 145, 25) GUICtrlSetData(-1, "Bikes|Audio|Clothes|Furniture|House Hold Electrical|House Hold Goods|Textiles|Tools|Kitchen|Beauty|Other") $PRICE = GUICtrlCreateInput("", 256, 112, 73, 21) $SHIPPING = GUICtrlCreateInput("", 352, 112, 81, 21) $ARGOS = GUICtrlCreateInput("", 256, 184, 185, 21) $Button1 = GUICtrlCreateButton("Browse", 376, 256, 75, 25) $Button2 = GUICtrlCreateButton("Add Product To Site", 328, 328, 123, 25) ;text that will show home much text can be entered on to a text filed $Label8 = GUICtrlCreateLabel("100", 88, 24, 56, 17) $Label11 = GUICtrlCreateLabel("Characters", 112, 24, 55, 17) $Label9 = GUICtrlCreateLabel("1000", 96, 88, 28, 17) $Label12 = GUICtrlCreateLabel("Characters", 136, 88, 55, 17) $Label10 = GUICtrlCreateLabel("250", 336, 160, 22, 17) $Label13 = GUICtrlCreateLabel("Characters", 364, 160, 55, 17) ;limets how much text can be ented in to a text filed GUICtrlSetLimit($TITLE, 100) GUICtrlSetLimit($DEC, 1000) GUICtrlSetLimit($SHIPPING, 10) GUICtrlSetLimit($PRICE, 10) GUICtrlSetLimit($ARGOS, 250) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $MenuItem3 Exit Case $MenuItem4 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("About", 327, 248, 302, 218) GUISetIcon("D:\006.ico") $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185) $Image1 = GUICtrlCreatePic("", 16, 24, 105, 97) $Label1 = GUICtrlCreateLabel("Product Name", 152, 24, 72, 17, $WS_GROUP) $Label2 = GUICtrlCreateLabel("Version", 152, 48, 39, 17, $WS_GROUP) $Label4 = GUICtrlCreateLabel("Comments", 16, 160, 53, 17, $WS_GROUP) $Label3 = GUICtrlCreateLabel("Copyright", 16, 136, 48, 17, $WS_GROUP) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("&OK", 112, 208, 75, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Exit EndSwitch WEnd ;Selecting An Image. Case $Button1 $Open = FileOpenDialog("Slect Image", @UserName, "images (*.JPG)") Dim $Drive,$Dir,$Name,$Ext _PathSplit($Open,$Drive,$Dir,$Name,$Ext) $Name=$Name&$Ext $Path=$Drive&$Dir $FullPath=$Path&$Name GUICtrlSetData($IMAGE, $Name, 1) ;MsgBox(0,"",$Name) ;MsgBox(0,"",$Path) ;MsgBox(0,"Full File Path",$FullPath) Case $Button2 $CATS1 = GUICtrlRead($CATS) $TITLE1 = GUICtrlRead($TITLE) $DEC1 = GUICtrlRead($DEC) $PRICE1 = GUICtrlRead($PRICE) $SHIPPING1 = GUICtrlRead($SHIPPING) $ARGOS1 = GUICtrlRead($ARGOS) $DATE1 = _NowDate() ;SQL DATA ; MYSQL to start, DLL in the PATH (contains) also @ ScriptDir, sont specify a path to the DLL. DLL must be called libmysql.dll. _MySQL_InitLibrary() If @error Then Exit MsgBox (0,'', "could nit init MySQL") $MysqlConn = _MySQL_Init() ;connection line $connected = _MySQL_Real_Connect($mysqlConn, "localhost", "root", "", "shop") If $connected = 0 Then Exit MsgBox (16, 'Connection Error', _MySQL_Error ($mysqlConn)) ;Insert Line $query = "INSERT INTO `goods` (`CATS`, `TITLE`, `DECRYPTION`, `PRICE`, `SHIPPING`, `ARGOS`, `IMAGE`, `DATE`) VALUES ('"&$CATS1&"', '"&$TITLE1&"', '"&$DEC1&"', '"&$PRICE1&"', '"&$SHIPPING1&"', '"&$ARGOS1&"', '"&$Name&"', '"&$DATE1&"')" _MySQL_Real_Query($mysqlConn, $query) ; Close connection _MySQL_Close($MysqlConn) ; shutdown MYSQL-library _MySQL_EndLibrary() MsgBox(0,"Product Addad", "Product Added To Site") EndSwitch ;count down for the title box $entered = GUICtrlRead($TITLE) If $entered <> "" And GUICtrlRead($TITLE)<> $temp Then $temp = GUICtrlRead($TITLE) GUICtrlSetData($Label8, 100- StringLen($temp)) EndIf ;count down for dec box $entered2 = GUICtrlRead($DEC) If $entered2 <> "" And GUICtrlRead($DEC)<> $temp Then $temp = GUICtrlRead($DEC) GUICtrlSetData($Label9, 1000- StringLen($temp)) EndIf ;count down for URL box $entered3 = GUICtrlRead($ARGOS) If $entered3 <> "" And GUICtrlRead($ARGOS)<> $temp Then $temp = GUICtrlRead($ARGOS) GUICtrlSetData($Label10, 250- StringLen($temp)) EndIf WEnd Link to comment Share on other sites More sharing options...
spudw2k Posted February 8, 2010 Share Posted February 8, 2010 You can isolate which window is "focused" (lack of better term) by using GUISwitch(). Look for examples in the help file. Spoiler Things I've Made: Always On Top Tool ◊ AU History ◊ Deck of Cards ◊ HideIt ◊ ICU ◊ Icon Freezer ◊ Ipod Ejector ◊ Junos Configuration Explorer ◊ Link Downloader ◊ MD5 Folder Enumerator ◊ PassGen ◊ Ping Tool ◊ Quick NIC ◊ Read OCR ◊ RemoteIT ◊ SchTasksGui ◊ SpyCam ◊ System Scan Report Tool ◊ System UpTime ◊ Transparency Machine ◊ VMWare ESX BuilderMisc Code Snippets: ADODB Example ◊ CheckHover ◊ Detect SafeMode ◊ DynEnumArray ◊ GetNetStatData ◊ HashArray ◊ IsBetweenDates ◊ Local Admins ◊ Make Choice ◊ Recursive File List ◊ Remove Sizebox Style ◊ Retrieve PNPDeviceID ◊ Retreive SysListView32 Contents ◊ Set IE Homepage ◊ Tickle Expired Password ◊ Transpose ArrayProjects: Drive Space Usage GUI ◊ LEDkIT ◊ Plasma_kIt ◊ Scan Engine Builder ◊ SpeeDBurner ◊ SubnetCalcCool Stuff: AutoItObject UDF ◊ Extract Icon From Proc ◊ GuiCtrlFontRotate ◊ Hex Edit Funcs ◊ Run binary ◊ Service_UDF Link to comment Share on other sites More sharing options...
MvGulik Posted February 8, 2010 Share Posted February 8, 2010 (edited) whatever Edited February 7, 2011 by MvGulik "Straight_and_Crooked_Thinking" : A "classic guide to ferreting out untruths, half-truths, and other distortions of facts in political and social discussions.""The Secrets of Quantum Physics" : New and excellent 2 part documentary on Quantum Physics by Jim Al-Khalili. (Dec 2014) "Believing what you know ain't so" ... Knock Knock ... Link to comment Share on other sites More sharing options...
madmorgan Posted February 8, 2010 Author Share Posted February 8, 2010 (edited) gui delete did the job for me thanks all Edited February 8, 2010 by madmorgan Link to comment Share on other sites More sharing options...
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