GUI problems

[Newbi3]

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <IE.au3>



MainGui()

Func MainGui()

    Local $Run, $Website, $msg
    GUICreate("Short Cuts")
    Opt("GUICoordMode", 2)
    $Run = GUICtrlCreateButton("Run Somthing", 0, 0, 100)
    $Website = GUICtrlCreateButton("Go to a website", 0, -1)

    GUISetState()

    While 1
        
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Run
                GUICreate("Run what program?", 400, 50)
                GUISetState(@SW_SHOW)
                GuiCtrlCreateInput("Type name here", 200, 250)
                GuiCtrlCreatecombo("Sample Combo", 250, 80, 120, 100)
                GuiCtrlCreateButton("Sample Button", 0, 0, -1)
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
                
                
            Case $msg = $Website
                $program = InputBox ("Which website?", "Type website name here")
                
                $oIE = _IECreate ($program)
            
                
            
        EndSelect
    WEnd
EndFunc

I don't know why this program does not work. It should, right? The problem is the buttons on the second GUI ($run), don't show up. Please help me! Sorry for bad organizing, im new Thanks to ANYONE who helps in advance

Edited February 20, 2010 by Newbi3

[martin]

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <IE.au3>



MainGui()

Func MainGui()

 Local $Run, $Website, $msg
 GUICreate("Short Cuts")
 Opt("GUICoordMode", 2)
 $Run = GUICtrlCreateButton("Run Somthing", 0, 0, 100)
 $Website = GUICtrlCreateButton("Go to a website", 0, -1)

 GUISetState()

 While 1
        
 $msg = GUIGetMsg()
 Select
 Case $msg = $GUI_EVENT_CLOSE
 ExitLoop
 Case $msg = $Run
                GUICreate("Run what program?", 400, 50)
                GUISetState(@SW_SHOW)
                GuiCtrlCreateInput("Type name here", 200, 250)
                GuiCtrlCreatecombo("Sample Combo", 250, 80, 120, 100)
                GuiCtrlCreateButton("Sample Button", 0, 0, -1)
    While 1
 $msg = GUIGetMsg()
 If $msg = $GUI_EVENT_CLOSE Then ExitLoop
 WEnd
                
                
            Case $msg = $Website
 $program = InputBox ("Which website?", "Type website name here")
                
                $oIE = _IECreate ($program)
            
                
            
 EndSelect
 WEnd
EndFunc

I don't know why this program does not work. It should, right? The problem is the buttons on the second GUI ($run), don't show up. Please help me! Sorry for bad organizing, im new Thanks to ANYONE who helps in advance

I find your use of GuiCoordMode is as confusing as hell . You have specified that the controls you can't see are outside of the gui you created.

Here is a quick change, but using a standard coordinate mode.

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <IE.au3>



MainGui()

Func MainGui()

    Local $Run, $Website, $msg
    GUICreate("Short Cuts", 500, 500)
    ;Opt("GUICoordMode", 2)
    $Run = GUICtrlCreateButton("Run Somthing", 0, 0, 100)
    $Website = GUICtrlCreateButton("Go to a website", 120, 0)

    GUISetState()

    While 1

    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Run
    $hRun = GUICreate("Run what program?", 400, 250)
    GUISetState(@SW_SHOW)
    GUICtrlCreateInput("Type name here", 20, 20)
    GUICtrlCreateCombo("Sample Combo", 20, 40, 120, 100)
    GUICtrlCreateButton("Sample Button", 20, 100)
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    GUIDelete($hRun)

    Case $msg = $Website
    $program = InputBox("Which website?", "Type website name here")

    $oIE = _IECreate($program)



    EndSelect
    WEnd
EndFunc ;==>MainGui

[Newbi3]

Thanks SO much!