GuiCtrlCreateInput and date mask

[albertmaathuis]

Hello, I need some help with the GuiCtrlCreateInput function and date format

How can i create een input box that tells the user to put the date in the input box in the format dd-mm-yyy

(and of course nothing else is accepted in the box)

[Melba23]

albertmaathuis,

I posted another version of this in the GUI forum a short while ago - seems like a day for input masks! You will have to add errorchecking for the individual inputs of course.

#include <GUIConstantsEx.au3>

Global $input_limit = 2

$gui = GUICreate("InputBox autofocus demo", 200, 100)
$in1 = GUICtrlCreateInput("", 20, 20, 30, 20)
GUICtrlSetLimit(-1, $input_limit)
$in2 = GUICtrlCreateInput("", 80, 20, 30, 20)
GUICtrlSetLimit(-1, $input_limit)
$in3 = GUICtrlCreateInput("", 140, 20, 30, 20)
GUICtrlSetLimit(-1, $input_limit)
$btn = GUICtrlCreateButton("OK", 75, 60, 40, 25)

GUIRegisterMsg(0x0111, "On_WM_COMMAND")
GUISetState()
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btn
            $str = GUICtrlRead($in1) & "-" & GUICtrlRead($in2) & "-" & GUICtrlRead($in3)
            MsgBox(0, "You have entered", $str)
    EndSwitch
WEnd

Func On_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    $nNotifyCode = BitShift($wParam, 16)
    $nID = BitAnd($wParam, 0x0000FFFF)
    Switch $nNotifyCode
        Case 0x400;$EN_UPDATE
            If StringLen(GUICtrlRead($nID)) = $input_limit Then GUICtrlSetState($nID+1, $GUI_FOCUS)
    EndSwitch
EndFunc

Hope this is close to what you were looking for.

M23

[albertmaathuis]

Thx M23

It's close, not directly what i was looking for, but it helps so i can move on

I think i go for a search in the forum for a calendar which will give me the date when i click on it.

Perhaps that will do the job also.

AMT

[Melba23]

albertmaathuis,

There are some different solutions in the other thread I mentioned. Perhaps one of them might be more what you are looking for.

M23

[albertmaathuis]

Found it.

This code does the job.

#include <GUIConstantsEx.au3>

#include <Date.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()

Local $Date, $msg,$today

$today=_NowDate()

GUICreate("Get date", 210, 190)

$Date = GUICtrlCreateMonthCal($today, 10, 10)

GUISetState()

; Run the GUI until the dialog is closed or timeout

Do

$msg = GUIGetMsg()

If $msg = $Date Then

$msg = $GUI_EVENT_CLOSE

EndIf

Until $msg = $GUI_EVENT_CLOSE

MsgBox(0, $msg, GUICtrlRead($Date), 2)

EndFunc ;==>Example