Помогите с кнопочкой....

[OMEGUS]

Помещаю на форму два календаря и кнупку типа далее...
Сделал так что при загрузке формы даты по умолчанию стоят...
И можно нажимать кнопку далее...
Но ее приходиться нажимать дважды что не очень красиво...
Пробовал ставить на событие загрузки фокус на эту кнопку но Basic ругается ругается...

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

Private Sub Form1_Load()

Command2.SetFocus

End Sub

Пишет типа Invalid procedure call or argument

Посоветуйте ... пож кто скока сможет ради VB6 мы сами не местные ))

[JohnCR]

Попробуй поставить для кнопки TabIndex=0, а за одно и Default=True.

[OMEGUS]

to JohnCR

Да поменял TabIndex на 0 (было 10) и все заработало !!!

Спасибо !!!

А в чем же было дело ? Что это за параметр ?

[uhm]

Показывает, в каком порядке происходит переключение фокуса, когда ты жмешь кнопочку Tab. Соответственно - поставил TabIndex в 0, получил фокус первым.

[OMEGUS]

Однако !!! Фигня такая происходит дальше ....

На календаре кликаю на день фокус перемещается на кнопочку все ОК !
Но при клике на месяц фокуса опять нет, а если кликать на год то есть ! ???

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

Private Sub MonthView2_DateClick(ByVal DateClicked As Date)
Text2.Text = MonthView2
If MonthView2.SetFocus = True Then Command2.SetFocus

End Sub

Вот в чем беда ? а ?

[JohnCR]

Что за контрол такой "календарик"?

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

Private Sub MonthView2_Click()
    Text2.Text = MonthView2
    Command2.SetFocus
End Sub

[OMEGUS]

Я не знаю......

Вот такой ........

[JohnCR]

См. выше.

[OMEGUS]

Вот теперь все работает !!! ( как же я сам не догадался ? )

Спасибо всем !

[OMEGUS]

Опять 25 !!!

Все клева но пользователь теперь не успевает год сменить !
Ужас... Если кликнуть на год то пояляются стрелочки для смены года... а теперь они исчезают так как фокус тут же перескакивает на Кнопку...

Ну ё мое !!!

[JohnCR]

Value, этого контрола меняется только когда выбираешь конкретный день.
Лучше сделать, как было изначально...

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

Private Sub MonthView2_DateClick(ByVal DateClicked As Date)
    Text2.Text = MonthView2.Value
    Command2.SetFocus
End Sub

[OMEGUS]

Да уже так и сделал... пока больше ничего не придумал....

А нельзя как-то разделить событие клика.... клик на мес, день и год ?

[JohnCR]

Поищи другой компонент или напиши свой )