2个回答
展开全部
这个容易,在Form_MouseMove事件里:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Me.Caption = "X:" & X & "-Y:" & Y
End Sub
这个是以缇为单位的,如果你想以像素为单位可以将Form的ScaleMode设置为3 - Pixel
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Me.Caption = "X:" & X & "-Y:" & Y
End Sub
这个是以缇为单位的,如果你想以像素为单位可以将Form的ScaleMode设置为3 - Pixel
追问
大神 明天我们VB考上机 完全不会 能加QQ咨询哈不?、、
100分财富行不?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询