Jump to content

MsgBox Customized Anwsers


Recommended Posts

Based on this example, i made a MsgBox that show the counter while the time out is set (i know that there somewheare a UDF MsgBoxEx() functions on this forum, but this is somthing diferend) :

The last option is for determine on what button will be the counter shown, and i have made some changes in the script itself.

$MsgBoxValue = _MsgBoxChangeButtons(35, 'This is my msgbox', 'This' & @CRLF & 'Should' & @CRLF & 'Work', 'ReBoot', 'Continue', 'Cancel', 20, 1)
If $MsgBoxValue = 6 Then MsgBox(0, 'Clicked', 'You clicked the ReBoot Button')
If $MsgBoxValue = -1 Then MsgBox(0, 'Time out', 'The time is out, the default button was pressed')

Func _MsgBoxChangeButtons($iFlag, $sTitle, $sText, $sButton1, $sButton2 = '', $sButton3 = '', $iMBTimeOut = 0, $DefButtonTO = 1)
    Local $MBFile = FileOpen(@TempDir & '\MiscMMB.txt', 2)
    Local $MBLine = '#NoTrayIcon' & @CRLF
    $MBLine &= 'While Not WinExists("' & $sTitle & '")' & @CRLF
    $MBLine &= '    Sleep(10)' & @CRLF
    $MBLine &= 'WEnd' & @CRLF
    $MBLine &= 'ControlSetText("' & $sTitle & '", "", "Button1", "' & $sButton1 & '")' & @CRLF
    If $sButton2 <> '' Then $MBLine &= 'ControlSetText("' & $sTitle & '", "", "Button2", "' & $sButton2 & '")' & @CRLF
    If $sButton3 <> '' Then $MBLine &= 'ControlSetText("' & $sTitle & '", "", "Button3", "' & $sButton3 & '")' & @CRLF
    
    Switch $DefButtonTO
        Case 1
            $ButtonToSet = $sButton1
        Case 2
            $ButtonToSet = $sButton2
        Case 3
            $ButtonToSet = $sButton3
        Case Else
            $ButtonToSet = $sButton1
    EndSwitch
    
    If $iMBTimeOut > 0 Then
        $MBLine &= '$TimerInit = TimerInit()' & @CRLF & 'While (TimerDiff($TimerInit) / 1000) < ' & $iMBTimeOut & _
            @CRLF & '   ControlSetText("' & $sTitle & '", "", "Button' & $DefButtonTO & '", "' & $ButtonToSet & _
                ' (" & ' & $iMBTimeOut & ' - Round(TimerDiff($TimerInit)/1000) & ")")' & @CRLF & _
                '   If Not WinExists("' & $sTitle & '") Then ExitLoop' & @CRLF & 'WEnd'
    EndIf
    
    FileWrite(@TempDir & '\MiscMMB.txt', $MBLine)
    
    $MBPID1 = Run(@AutoItExe & ' /AutoIt3ExecuteScript ' & @TempDir & '\MiscMMB.txt')
    $MBBox = MsgBox($iFlag, $sTitle, $sText, $iMBTimeOut)
    FileClose($MBFile)
    Do
        FileDelete(@TempDir & '\MiscMMB.txt')
    Until Not FileExists(@TempDir & '\MiscMMB.txt')
    Return $MBBox
EndFunc

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...