Question

vb 为什么键盘事件 运行后按A没有反应呢？

Answer 1

控件事件方法错了： Private Sub List1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc("A") Then Text1.Text = InputBox("输入添加") List1.AddItem Text1.Text End If If KeyAscii = Asc("D") Then Text1.Text = InputBox("删除") For i = 0 To List1.ListCount - 1 If List1.List(i) = Text1.Text Then List1.RemoveItem i End If Next i End If End Sub