Sign in to follow this  
Followers 0
bordomavi

MsgBox doesnt close in while loop

3 posts in this topic

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 486, 224, 192, 124)
$Input1 = GUICtrlCreateInput("", 48, 72, 377, 21)
$Group1 = GUICtrlCreateGroup("Write Site Adress Without WWW.", 32, 48, 409, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Block", 32, 136, 193, 41)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Press For Block")
$Button2 = GUICtrlCreateButton("Unblock", 248, 136, 193, 41)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Press For UnBlock")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Button1 = GUICtrlRead($Input1)
            If $Button1 = "" Then
                MsgBox(0x40, "Error", "Read a site adress", 5, $Form1)
            Else
                Exit
            EndIf
    EndSwitch
WEnd

i want close msgbox when input is empty

Share this post


Link to post
Share on other sites



bordomavi,

Just do not overwrite the button ControlID: ;)

Case $Button1
    $sText = GUICtrlRead($Input1)
    If $sText = "" Then ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        MsgBox(0x40, "Error", "Read a site adress", 5, $Form1)
    Else
        Exit
    EndIf
All clear? :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Yes :) thx very much

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  
Followers 0