Vba ListView1_KeyDownについて教えてください

いつもお世話になります

今、ListViewの中の選択されているItemをReturnKeyを使って
TextBoxに挿入したいのですが下記のステートメントでは
コンパイルエラーになってしまいました

Private Sub ListView1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger)

If KeyCode = vbKeyReturn Then
TextBox1.Text = ListView1.SelectedItem
End If

End Sub

DblClickでうまく行っているのですが、マウスを持たずに出来るようにしたいと
思っています

分かりましたら教えてください
以上、よろしくお願い申し上げます

No.1 ベストアンサー 回答者： bonaron 回答日時： 2019/11/06 04:52

> コンパイルエラーになってしまいました

エラーメッセージを必ず書くようにしましょう。

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

でしょうか？

この回答へのお礼

いつもお世話になります

ご回答ありがとうございました
残念ながら、思ったように動かなかったためこの使い方はやめました

ありがとうございます
これからもよろしくお願いいたします

お礼日時：2019/11/06 10:29