Серый форум — HTA+VBS: Ввод даты с использованием календаря (DatePicker)

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (OldBoa) — Fri, 17 Jun 2011 04:41:20 +0000

У меня тоже была однажды задача ввода даты в HTA с использованием календаря. Но без объектов, классов и контролов. Кому интересно, ниже пример:



HTA Calendar

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (ART-CODE) — Thu, 02 Jun 2011 08:51:45 +0000

А если нужно сделать автоматический перерасчет формы
(сразу после ввода пользователем в DTPicker новой даты),
то нужно привязать событие EVENT='Change'
к функции - обработчику при помощи конструкции SCRIPT FOR
Чтобы понять о чем речь - можете скачать и изучить тест DTPicker в HTA-форме

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (Pix) — Tue, 17 May 2011 08:47:44 +0000

Спасибо. Ура!

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (Xameleon) — Tue, 17 May 2011 07:04:30 +0000

2 Pix: Всё упирается в то, что у WSH нет встроенных средств для отображения интерфейса. Т.е создав через CreateObject объект, Вы банально не можете его увидеть. Хотя он есть. . Почти все Activex которые имеют визуальное оформление (за исключением тех в которые уже вшито отображение формы например), требуют форму для отображения себя (окно "подложку" скажем так). Для этих целей на форуме была разработана самодельная функция отображения окон CreateWindow. ссылка. Она позволяет создать некое подобие оконного интерфейса за счёт управления отдельным HTA окном. Вот в нём то и можно разместить Activex календаря, которым в дальнейшем можно управлять.

Не пугайтесь количества кода, которое идёт дальше в примере. Больше половины занимает как раз сама функция CreateWindow. Ну и огромную долю конечно составляет HTML код формы в которой находится календарь. )

пример


Option Explicit
Dim window, document, windowClosed, SelectedDate
'Создаём окно по нужному нам образу и подобию )
Set window = CreateWindow("Выбор даты
","border=dialog maximizeButton=no minimizeButton=no",-1,-1,300,300)
'Получаем доступ к внутреннему документу окна
set document = window.document

'Подключаем событие закрытия окна к нашей процедуре
document.body.onunload = getref("window_onunload")

'Подключаем нажатие на кнопку к той же процедуре закрытия окна (хотя можно было бы и к другой)
window.btnSelect.onclick = getref("window_onunload")

'Событие выгрузки формы
Sub window_onunload()
    'Запоминаем выбранную дату в переменную
    SelectedDate = window.calendar.Value
    'Закрываем окошко, дабы не мозолило глаза
    window.close()
    'Выставляем флаг для цикла
    windowClosed = True
End Sub

'Запускаем цикл, чтобы скрипт не выгружался раньше времени
Do
    WScript.Sleep 100
Loop Until windowClosed

MsgBox SelectedDate

Function CreateWindow(content,features,x,y,width,height)
    On Error Resume Next
    Dim ShellWindows,ShellWindow,CodeForLinking,wshExec,form_id,id,i,document,window
    Set CreateWindow = Nothing
    Set ShellWindows = CreateObject("Shell.Application").Windows: Randomize: id = Clng(Rnd*100000)
    CodeForLinking = "" &_
    "" & _
    ""
    Set wshExec = CreateObject("WScript.Shell").Exec("mshta about:""" & CodeForLinking & """")
    For i=1 to 1000
        For Each ShellWindow in ShellWindows: form_id = Clng(ShellWindow.id)
            if form_id = id Then
                Set document = ShellWindow.container:
                Set window = document.parentWindow
                document.open: window.execScript "var Host": Set window.Host = me
                document.write content: document.close
                if x <= 0 Then x = (window.screen.width - width) / 2
                if y <= 0 Then y = (window.screen.height - height) / 2
                window.execScript "document.onkeydown = function(){if(event.keyCode == 116){return false}};" &_
                "setInterval('var e;try{Host.WScript}catch(e){close()}',100);moveTo(" & x & "," & y & ");resizeTo(" & width & "," & height & ")"
                Set CreateWindow = window
                Exit Function
            End if
        Next
    Next
    wshExec.Terminate()
End Function

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (Pix) — Tue, 17 May 2011 05:21:30 +0000

Скачал, попробовал. Все равно не очень ясно как этот HTML прилепить к vbs скрипту и вытащить все данные из него.

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (Mat Skywalker) — Mon, 16 May 2011 17:18:35 +0000

Используйте програму Microsoft ActiveX Control Pad
http://msdn.microsoft.com/en-us/library/ms968493
Там вы найдет все элементы.

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (Pix) — Fri, 13 May 2011 14:22:23 +0000

Если где подымалось, то просьба тыкнуть.
Создал я СОМ объект
Dim obj : Set obj = CreateObject ("MSComCtl2.DTPicker.2")
А вот как с ним работать не пойму. Методов для запуска не могу найти. Подозреваю что нужно его вставлять на какое то окно чтобы увидеть.
Но вопрос как создать это окно?
Помогите пожалуйста добрым советом.
Язык vbScript.

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (Mat Skywalker) — Mon, 10 Jan 2011 16:53:50 +0000

Не могу добиться вызова 2-х диалогов ввода даты.
Видимо совсем не хватает знаний в JS, но как не бьюсь с примером:
http://forum.script-coding.com/viewtopic.php?id=2552

Добавил еще кнопку:

Изменил переменные. Событие function dateOut.onclick() не наступает.
Подскажите как получить интервал дат?

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (YMP) — Tue, 12 May 2009 06:51:02 +0000

volkov888 пишет:

Должна ведь быть возможность задать формат для функции toString()

Кому должна-то? Ну если ты такой поклонник красоты, то ищи красоту.

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (volkov888) — Tue, 12 May 2009 06:34:43 +0000

Тоже самое можно получить без использования Date

alert(DTPicker.Day + "." + DTPicker.Month + "." + DTPicker.Year)

но они возвращают не совсем в формате DD.MM.YYYY, они не дописывают нули к дню и месяцу
т.е. если дата "1.5.2009", то они покажут "1.5.2009", а необходимо "01.05.2009"

можно конечно вручную проверять длину чисел и подписывать нули, но хочется более красивое решение

Должна ведь быть возможность задать формат для функции toString()

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (YMP) — Tue, 12 May 2009 06:20:02 +0000

Можно так:

D = new Date(DTPicker.toString());

alert(D.getDate() + "." + (D.getMonth()+1) + "." + D.getFullYear());

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (volkov888) — Tue, 12 May 2009 05:46:31 +0000

Надо еще дату с месяцем местами поменять

выводит в формате "MM/DD/YYYY"
а мне надо "DD.MM.YYYY"

хотелось бы сделать это стандартным способом.
должен же где-то формат вывода прописываться

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (YMP) — Tue, 12 May 2009 05:28:36 +0000

Может, просто заменить слэши на точки?

alert(DTPicker.toString().replace(/\//g, "."));

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (volkov888) — Tue, 12 May 2009 02:57:28 +0000

А кто нибудь знает как сделать так, чтобы функция toString() возвращала результат в заданном формате?
Используется mscomct2.ocx, он же «Microsoft Common Controls 2 ActiveX Control DLL»

Например



...
alert(DTPicker.toString());

выводит в формате "MM/DD/YYYY"
а мне надо "DD.MM.YYYY"

Re: HTA+VBS: Ввод даты с использованием календаря (DatePicker)

null@example.com (MikeSh) — Sun, 07 Dec 2008 10:46:11 +0000

Огромное спасибо!
Начать, чёль, JavaScript изучать...