在一个模块里:
Type POINTAPIX As LongY As LongEnd TypeDeclare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long在一个窗体:Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)GetCursorPos z
If Button = 2 Then
Me.StatusBar1.Panels(2).Text = "x:" & z.X & " " + "Y:" & z.Y
End If
End Sub
Type POINTAPIX As LongY As LongEnd TypeDeclare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long在一个窗体:Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)GetCursorPos z
If Button = 2 Then
Me.StatusBar1.Panels(2).Text = "x:" & z.X & " " + "Y:" & z.Y
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货