Multipage.Listbox_Click

[Calvin]

Здраствуйте!
Есть проблема
Хочу получить реакцию на событие клик листбокса, находящегося внутри мультипэйджа!

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

Private Sub ListBox3_Click(index as long)


что-то не получается. Как правильно? Спасибо

[GSerg]

Правильно - дважды кликнуть на листбоксе, чтобы получить код процедуры двойного клика. А не писать отсебятину...

[Calvin]

Господин GSerg, я не понял твоего ответа...... Написанный выше код не то, что не работает, а вообще при запуске формы матерится. Я не считаю, что можно называть мой вопрос отсебятиной, если ты на него не знаешь ответа

[KL]

Господин GSerg, я не понял твоего ответа...... Написанный выше код не то, что не работает, а вообще при запуске формы матерится. Я не считаю, что можно называть мой вопрос отсебятиной, если ты на него не знаешь ответа

2Calvin
GSerg - действительно не многословен, НО... ты хотя бы попробовал сделать то, что он сказал прежде чем бросаться отвечать? Надеюсь, толкование шаманского изречения "дважды кликнуть на листбоксе" не вызывает затруднений? Как только ты произведешь это магическое действие, ты увидишь, что отсебятина - это index as long

[Calvin]

То что вы мне пишете, это и новичку понятно. Ладно, попробую изложить проблему по-другому. У меня есть форма, на которой Multipage. Допустим на Page2 имеется listbox. При нажатии на listbox нет никакой реакции. Мне нужно чтобы хотябы так работало:

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

Private Sub Listbox1_Click()
msgbox "kkkkk"
end sub


а потроха потом засуну другие, а то что я писал:

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

Private Sub ListBox1_Click(index as long)


это я ошибся контролом. В хэлпе написано, что такой синтаксис применим к Multipage

Click Event


Occurs in one of two cases:

The user clicks a control with the mouse.


The user definitively selects a value for a control with more than one possible value.
Syntax

For MultiPage, TabStrip
Private Sub object_Click( index As Long)

For all other controls
Private Sub object_Click( )

The Click event syntax has these parts:

Part Description
object Required. A valid object.
index Required. The index of the page or tab in a MultiPage or TabStrip associated with this event.

[KL]

Пустой ListBox на события не реагирует, а не пустой - даже очень. Пример прилагается.

[Calvin]

2KL а ты попробуй второй раз кликнуть на непустой листбокс....первый раз нормально, а потом фокус с листбокса пропадает и потом никакой реакции.........
И еще второй вопрос - как вызвать реакцию на событие клик у мультипэйджа?

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

Private Sub MultiPage1_Click()
msgbox "kkkkk"
end sub


не работает

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

Private Sub MultiPage1_Click(index as long)
msgbox "kkkkk"
end sub


тоже не работает

[KL]

2KL а ты попробуй второй раз кликнуть на непустой листбокс....первый раз нормально, а потом фокус с листбокса пропадает и потом никакой реакции.........

А зачем мне пробовать, я то знаю, что если кликнуть по уже выбранному элементу списка, то событие не выстреливает. Это для тебя оно - новость. Ты же ничего не говорил про то, что тебе надо два раза кликать и вообще про то, для чего все это нужно. Так что не обессудь - каков вопрос, таков ответ (или по латыни: shit in - shit out ).

И еще второй вопрос - как вызвать реакцию на событие клик у мультипэйджа?

См. пример

[Calvin]

2KL Спасибо уважаемый
РS хочу обратить твое внимание, что не все такие умные как ты Я уже лет пять этим занимаюсь, но бывают глюки (byVal в хэлпе не был указан)

[KL]

На будущее: получить правильную процедуру можно в два шага не имея даже представления о том, как она выглядит (см. приложение)