Пара вопросов по VB(A)...

[ZaRaZa]

1) Как в компоненте DTPicker динамически задать текущую дату?
2) Как получить элемент n из ListBox?
ThanX!

[corgi]

1. если правильно помню то банально через Value
2. MsgBox List1.List(0)

[hCORe]

MsgBox List1.List(0)

Наверное все-таки

Код: Выделить всё

Private Function GetValue(intNumber as Integer) as String
' объявить переменную
On Error Resume Next
    GetValue = List1.List(intNumber)
End Function

Private Sub UserForm1_Click()
' отобразить окошко со значением
' шестого элемента
    MsgBox GetValue(5)
End Sub

[Евген]

DTPicker1.value=now
or
DTPicker1.value=date

[corgi]

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

' объявить переменную

а

[ZaRaZa]

Вопрос не с проста возник... на такие строки -
object.Value = Date
object.Value = Now
Получаю такую ошибку -
"An error occurred in a call to the Windows Date and Time Picker control."
Это часть обработчика на событие формы Initialize, может дело в этом?
Еще вопрос - какнужно распространять макрос. Я видел, что распростораняли dll'кой, как это организовать?

[ZaRaZa]

Ну ответьте хоть кто-нить, plz!