Private Sub treMenu_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
If Button = 2 Then
With treMenu
For i = 1 To .Nodes.Count
If .Nodes(i).Selected Then
PopupMenu Menu
Exit For
End If
Next i
End With
End IfEnd Sub
Dim i As Integer
If Button = 2 Then
With treMenu
For i = 1 To .Nodes.Count
If .Nodes(i).Selected Then
PopupMenu Menu
Exit For
End If
Next i
End With
End IfEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货