Вызов события

[Calvin]

Здраствуйте, уважаемые. Как из одного события вызвать другое - у которого есть какие либо параметры...вот пример:

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

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

'вот так бы хотелось, но не работает
If KeyCode = 40 Then
  Shift1 = 0
  KeyCode1 = KeyCode
  Call Listbox1_KeyDown(ByVal KeyCode1, ByVal Shift1)
End If
End Sub

Private Sub Listbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

End Sub


вообщем, нажав на стрелку "вниз" (активным является Textbox1) получить реакцию в Listbox1

[GSerg]

То ли издевается... то ли дунул...

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

Listbox1_KeyDown KeyCode, 0

[Calvin]

САМ ТЫ ДУНУЛ.....СПАСИБО

[Calvin]

только не сдвигается нифига...хелп плииз

[GSerg]

Говорит, не дунул Допустим, но странно

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

listbox1.ListIndex=listbox1.ListIndex+1

[Calvin]

Это понятно, но как, допустим заставить KeyCode одного объекта сработать у другого. Допустим, пускай у листбокса никогда не было такого свойства как листиндекс...

[GSerg]

SendKeys

[Calvin]

Я сделал вот так:

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

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 40 Then
    Listbox1_KeyDown KeyCode,0
End If
End Sub

Private Sub Listbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
SendKeys KeyCode
End Sub


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

[GSerg]

Calvin, ты бы ещё Msgbox 1+2 написал, это бы имело примерно такое же отношение к решению вопроса, как то, что написал ты.
Поставь курсор внутрь слова SendKeys и нажми F1.

[Calvin]

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

[alibek]

С помощью курсорных стрелок или кликом мышки сделать так, чтобы каретка курсора находилась в слове SendKeys, после чего нажать кнопку F1 и прочитать описание этой команды.