Jump to content
Sign in to follow this  

GUI Becomes Unclosable

Recommended Posts

When I use _IECreateEmbedded() to view a folder, the script stops repsponding to the button/events. I can open the program and close it like normal... The thing is if I open the program and click the view button to view the folder, the script no longer acknoledges any button/events and becomes unclosable; even though the folder is viewable in the browser.

Anyone know why it's not responding once the folder is opened? Or how I can get it to start responding again once the view button is clicked?

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <IE.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $UI2_IEObj = _IECreateEmbedded()
Global $UI2_ClientBrowser = GUICreate("Browser", 635, 340)
Local $UI2_MENU_File = GUICtrlCreateMenu("&File")
Global $UI2_MENU_Exit = GUICtrlCreateMenuItem("&Exit", $UI2_MENU_File)
Local $UI2_Label1 = GUICtrlCreateLabel("Clients:", 5, 16, 38, 17)
Global $UI2_ClientList = GUICtrlCreateList("", 0, 40, 145, 279)
Global $UI2_BTN_View = GUICtrlCreateButton("View", 64, 8, 75, 25)
Global $UI2_Browser = GUICtrlCreateObj($UI2_IEObj, 144, 0, 489, 319)
GUICtrlSetColor($UI2_ClientList, 0x808080)
GUICtrlSetBkColor($UI2_ClientList, 0xB9D1EA)
GUISetState(@SW_SHOW, $UI2_ClientBrowser)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
        Case $UI2_MENU_Exit
        Case $UI2_BTN_View
            Local $f_selected = _GUICtrlListBox_GetCurSel($UI2_ClientList)
            Local $f_NameFull = _GUICtrlListBox_GetText($UI2_ClientList, $f_selected)
            _IENavigate($UI2_IEObj, "file:///" & StringReplace(@ScriptDir, "\", "/"))

Share this post

Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Create New...