tabstrip控件的问题，欢迎讨论！

Question

没这么复杂！Private OldMouBu As Integer
Private Sub tabstrip_Click()
    If OldMouBu And vbLeftButton Then
        ……
    ElseIf OldMouBu And vbRightButton Then
        ……
    Else
    End If
End SubPrivate Sub tabstrip_MouseDown(……)
    OldMouBu=Button
End Sub

Answer 1

也差不多：
Private Sub tabstrip_DBCLICK()
    If OldMouBu And vbLeftButton Then
        ……
    ElseIf OldMouBu And vbRightButton Then
        ……
    Else
    End If
End Sub

Answer 2

？？？Private Sub tabstrip_DBCLICK()？？？
TabStrip 控件无此事件

Answer 3

回复人： gpo2002(苦思冥想) (  ) 信誉：100  2002-3-20 20:24:40  得分:0  
 
 
  多谢，那DBCLICK呢
====================================================================
那“DBCLICK”是啥么东西？

Answer 4

哦！
响应“WM_LBUTTONDBLCLK”、“WM_RBUTTONDBLCLK”消息！

Answer 5

Public Function VirtualProc(ByVal hwnd As Long, ByVal WindowMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Debug.Print "window message:" & WindowMsg & ",lParam:" & lParam & ",wParam:" & wParam
    'let the original window procedure handle the messages also
    VirtualProc = CallWindowProc(defaultProc, hwnd, WindowMsg, wParam, lParam)
End FunctionPrivate Sub TabStrip1_Click()
        Debug.Print "*TabStrip1_Click()"
End Sub以下是左右键单双击的结果，没有发现什么有用的东东啊
==================================================================
window message:32,lParam:33554433,wParam:132810
window message:528,lParam:15663300,wParam:513
window message:33,lParam:33619969,wParam:788016
window message:32,lParam:33619969,wParam:132810
window message:309,lParam:132830,wParam:855704441
window message:309,lParam:132830,wParam:855704441
*TabStrip1_Click()
window message:32,lParam:33554433,wParam:132810
window message:528,lParam:15663300,wParam:513
window message:33,lParam:33619969,wParam:788016
window message:32,lParam:33619969,wParam:132810
*TabStrip1_Click()
window message:32,lParam:33554433,wParam:132810
window message:528,lParam:15663300,wParam:513
window message:33,lParam:33619969,wParam:788016
window message:32,lParam:33619969,wParam:132810
*TabStrip1_Click()
window message:32,lParam:33554433,wParam:132810
window message:528,lParam:15663300,wParam:516
window message:33,lParam:33816577,wParam:788016
window message:32,lParam:33816577,wParam:132810
*TabStrip1_Click()
window message:123,lParam:22937888,wParam:132802
window message:32,lParam:33554433,wParam:132810
window message:528,lParam:15663300,wParam:516
window message:33,lParam:33816577,wParam:788016
window message:32,lParam:33816577,wParam:132810
*TabStrip1_Click()
window message:123,lParam:22937888,wParam:132802
window message:32,lParam:33554433,wParam:132810
window message:528,lParam:15663300,wParam:516
window message:33,lParam:33816577,wParam:788016
window message:32,lParam:33816577,wParam:132810
*TabStrip1_Click()
window message:123,lParam:22937888,wParam:132802
window message:32,lParam:33554433,wParam:132810
window message:528,lParam:15663300,wParam:516
window message:33,lParam:33816577,wParam:788016
window message:32,lParam:33816577,wParam:132810
*TabStrip1_Click()
window message:123,lParam:22937888,wParam:132802
window message:32,lParam:33554433,wParam:132810

Answer 6

大家为什么总是把简单的问题复杂化呢？为什么不在mouseup事件中写代码呢！！！
（山穷水复疑无路，柳暗花明又一村）

Answer 7

continueselect case button
 case 0
   '左键
　case 1
  '右键
　case 2
 '中键
end select

Answer 8

我想要的是如何能够用tabstrip区分出单击和双击。
是再不行的化，就只能用OptionButton+Frame了，
希望大家继续讨论一下
谢谢