Wolvereness Posted December 2, 2004 Posted December 2, 2004 I got a problem with my script, it wont create the child. I'm writing a program so a teacher could enter questions and it randomize questions + answers (each test with it's own answer sheet). The box IS created, my 'cowspy' picks up a the invisable window Here is the code I have:expandcollapse popup#include <GUIConstants.au3> Global $x, $wNQ, $wEQ, $wParent, $wEvent $x = "______________________________________________________________________________________" If StringRight(@ScriptDir, 14) <> "\TestScrambler" Then If Not FileExists(@ScriptDir & "\TestScrambler") Then DirCreate(@ScriptDir & "\TestScrambler") EndIf FileCopy(@ScriptFullPath, @ScriptDir & "\TestScrambler") MsgBox(0, "ERROR", "ERROR" & @CRLF & @CRLF & "You do not have this program in its own directory." & @CRLF & "A copy has been placed in the directory TestScrambler withen this directory." & @CRLF & "This program will not run outside of it's own directory.") Exit EndIf FileInstall("C:\Documents and Settings\Owner\Desktop\AU3 Junk\Included Stuff\Wes.jpg", "Wes.jpg", 1) FileInstall("C:\Documents and Settings\Owner\Desktop\AU3 Junk\Included Stuff\WesWolf.gif", "WesWolf.gif", 1) $wParent = GUICreate ("Wesley Wolfe Test Scrambler v1.0 BETA", 523, 600, -1, -1, 0x00200000) If $wParent = 0 Or GUICtrlCreatePic ("Wes.jpg", 0, 0, 100, 120) = 0 Or GUICtrlCreatePic ("WesWolf.gif", 100, 0, 400, 120) = 0 Or GUICtrlCreateLabel ($x, -2, 120) = 0 Then MsgBox(0, "ERROR", "ERROR" & @CRLF & @CRLF & "An Error has occured when creating the dialog box." & @CRLF & "Will now exit.") Exit EndIf $wNQ = GUICtrlCreateButton ("New Question", 10, 170) $wEQ = GUICtrlCreateButton ("Edit Question", 85, 170) GUISetState (@SW_SHOW) ;#cs While 1 $wEvent = GUIGetMsg () Select Case $wEvent = 0 ContinueLoop Case $wEvent = $wNQ ; MsgBox(0,"","") <-YES, this does respond $wChild1 = GUICreate ("Whate type of question?", 123, 50, -1, -1, 0x40000000, 0x00000008, $wParent) If $wChild1 = 0 Then MsgBox (0,"ERROR","The window could not be created, now exiting.") Exit Endif ;The creation of buttons and stuff for the question making Case $wEvent = $wEQ ;The creation of another child for to edit a question EndSelect Wend ;#ce Offering any help to anyone (to my capabilities of course)Want to say thanks? Click here! [quote name='Albert Einstein']Only two things are infinite, the universe and human stupidity, and I'm not sure about the former.[/quote][quote name='Wolvereness' date='7:35PM Central, Jan 11, 2005']I'm NEVER wrong, I call it something else[/quote]
CyberSlug Posted December 2, 2004 Posted December 2, 2004 Do you ever GUISetState (@SW_SHOW) on the child window?You might need to GuiSwitch($wChild1) and GuiSwitch($wParent), by the way. Use Mozilla | Take a look at My Disorganized AutoIt stuff | Very very old: AutoBuilder 11 Jan 2005 prototype I need to update my sig!
Wolvereness Posted December 2, 2004 Author Posted December 2, 2004 (edited) Nothing... Did I do it right? expandcollapse popup#include <GUIConstants.au3> Global $x, $wNQ, $wEQ, $wParent, $wEvent $x = "______________________________________________________________________________________" If StringRight(@ScriptDir, 14) <> "\TestScrambler" Then If Not FileExists(@ScriptDir & "\TestScrambler") Then DirCreate(@ScriptDir & "\TestScrambler") EndIf FileCopy(@ScriptFullPath, @ScriptDir & "\TestScrambler") MsgBox(0, "ERROR", "ERROR" & @CRLF & @CRLF & "You do not have this program in its own directory." & @CRLF & "A copy has been placed in the directory TestScrambler withen this directory." & @CRLF & "This program will not run outside of it's own directory.") Exit EndIf FileInstall("C:\Documents and Settings\Owner\Desktop\AU3 Junk\Included Stuff\Wes.jpg", "Wes.jpg", 1) FileInstall("C:\Documents and Settings\Owner\Desktop\AU3 Junk\Included Stuff\WesWolf.gif", "WesWolf.gif", 1) $wParent = GUICreate ("Wesley Wolfe Test Scrambler v1.0 BETA", 523, 600, -1, -1, 0x00200000) If $wParent = 0 Or GUICtrlCreatePic ("Wes.jpg", 0, 0, 100, 120) = 0 Or GUICtrlCreatePic ("WesWolf.gif", 100, 0, 400, 120) = 0 Or GUICtrlCreateLabel ($x, -2, 120) = 0 Then MsgBox(0, "ERROR", "ERROR" & @CRLF & @CRLF & "An Error has occured when creating the dialog box." & @CRLF & "Will now exit.") Exit EndIf $wNQ = GUICtrlCreateButton ("New Question", 10, 170) $wEQ = GUICtrlCreateButton ("Edit Question", 85, 170) GUISetState (@SW_SHOW) ;#cs While 1 $wEvent = GUIGetMsg () Select Case $wEvent = 0 ContinueLoop Case $wEvent = $wNQ ; MsgBox(0,"","") <-YES, this does respond $wChild1 = GUICreate ("Whate type of question?", 123, 50, -1, -1, 0x40000000, 0x00000008, $wParent) GuiSwitch($wChild1) GUISetState(@SW_SHOW) If $wChild1 = 0 Then MsgBox (0,"ERROR","The window could not be created, now exiting.") Exit Endif ;The creation of buttons and stuff for the question making Case $wEvent = $wEQ ;The creation of another child for to edit a question EndSelect Wend ;#ce Edited December 2, 2004 by Wolvereness Offering any help to anyone (to my capabilities of course)Want to say thanks? Click here! [quote name='Albert Einstein']Only two things are infinite, the universe and human stupidity, and I'm not sure about the former.[/quote][quote name='Wolvereness' date='7:35PM Central, Jan 11, 2005']I'm NEVER wrong, I call it something else[/quote]
CyberSlug Posted December 2, 2004 Posted December 2, 2004 Ah, your problem is in the window style 0x400000000 ..... which does not contain the WS_VISIBLE Style Try using -1 for style and exstyle or use the styles below $wChild1 = GUICreate ("Whate type of question?", 123, 50, -1, -1, -1, -1, $wParent)Typical Window Style is 0x14C00000WS_OVERLAPPEDWINDOW 00CF0000WS_OVERLAPPED 00000000WS_VISIBLE 10000000WS_CLIPSIBLINGS 04000000Typical ExStyle is 0x100WS_EX_WINDOWEDGE 00000100WS_EX_LEFT 00000000WS_EX_LTRREADING 00000000WS_EX_RIGHTSCROLLBAR 00000000 Use Mozilla | Take a look at My Disorganized AutoIt stuff | Very very old: AutoBuilder 11 Jan 2005 prototype I need to update my sig!
Wolvereness Posted December 2, 2004 Author Posted December 2, 2004 BINGO, thanks dude... I thought you HAD to have that for a child window... Offering any help to anyone (to my capabilities of course)Want to say thanks? Click here! [quote name='Albert Einstein']Only two things are infinite, the universe and human stupidity, and I'm not sure about the former.[/quote][quote name='Wolvereness' date='7:35PM Central, Jan 11, 2005']I'm NEVER wrong, I call it something else[/quote]
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