菜鸟提问一个关于按钮事件的问题

Question

请问各位高手：
问题1、我用了一个ListView控件，执行了一个itemClick事件，请问再该事件或其他click事件中怎样区分鼠标左右键问题2、怎样扑获键盘的上下左右键

Answer 1

vbleftbutton
vbrightbuttonsub listview_keydwon(keycode as integer,x as integer ,y as integer)
select case keycode
       case 37 '上
       case 38 '下
       case 39 '左
       case 40 '右
end select
end sub

Answer 2

Dim MouButton as long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_
                           X As Single, Y As Single)
   MouButton=Button
End Sub
Private Sub 目录_NodeClick(ByVal Node As MSComctlLib.Node)
   Select Case MouButton
   Case 1: Msgbox "你按的是鼠标左键。",64,"提示信息"
   Case 2: Msgbox "你按的是鼠标右键。",64,"提示信息"
   Case Else
        Msgbox "不能确定你按的鼠标按键。",64,"提示信息"
   End Select
End Sub

Answer 3

普通過程是傳地址。傳值與傳地址的不同之處在於,參數變量前要加Byval聲明，
傳值隻把參數變量的值傳寄給普通過程，其新值不能通過地址傳遞出來