Private Sub hc_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim k1 As Integer
Dim k2 As String
Dim k3 As String
i = Index
k1 = ObjExcel2.Cells(i, 1)
k2 = ObjExcel1.Cells(k1, 1)
k3 = ObjExcel1.Cells(k1, 2)
If Button = 2 Then
Print hc(i).Tag
If hc(i).Tag = "怪兽卡" Then
hc(i).Picture = LoadPicture(p2 & "覆盖1.jpg")
hc(i).Tag = "覆盖1"
ElseIf hc(i).Tag = "覆盖1" Then
If kt = 1 Then hc(i).Picture = LoadPicture(p2 & "怪兽卡.jpg")
If kt = 2 Then hc(i).Picture = LoadPicture(p2 & k2 & ".jpg")
hc(i).Tag = "怪兽卡"
ElseIf hc(i).Tag = "魔法卡" Or hc(i).Tag = "陷阱卡" Then
hc(i).Picture = LoadPicture(p2 & "覆盖2.jpg")
hc(i).Tag = "覆盖2"
ElseIf hc(i).Tag = "覆盖2" Then
If kt = 1 Then hc(i).Picture = LoadPicture(p2 & q1 & ".jpg")
If kt = 2 Then hc(i).Picture = LoadPicture(p2 & k2 & ".jpg")
hc(i).Tag = k3
End If
Else
hc(i).Drag 1
cX = X: cY = Y
End If
End Sub
Private Sub hc_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
i = Index
L1.Caption = hc(i).ToolTipText
End Sub
Private Sub hc_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
i = Index
hc(i).Drag 2
End Sub
hc是picture控件
为什么不响应MOUSEUp事件了
Print "已放开"这句双击时会执行但我松开鼠标时却没有