求各位进来看下GetCursorPos这个函数.....十分感谢!!

[dazhi518]

我试着做一个小程序,窗体上有一个图片框,我想通过窗体的右键单来设置图片框的位置,即在鼠标在窗上的位置.
可是听说API好像是以像素为单位的.而窗体以 缇 为单位,点击右键后图片框总是在别的地方,我把窗体的ScaluMode属性
设为像素后,图片框仍不能到鼠标的位置..我的代码如下,
请各位多多赐教,我改如何改写??十分感谢...
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type

Dim mypos As POINTAPI

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
GetCursorPos mypos
If Button = 2 Then
Picture1.Left = mypos.X
Picture1.Top = mypos.Y
End If
End Sub

[dbcontrols]

GetCursorPos得到的是鼠标在整个windows系统屏幕上的位置
Picture1.Left 等设置的是Picture1在它容器内部的位置，比如在窗体内的位置
Picture1不是独立的，所以无法设置在整个屏幕上的位置
比如GetCursorPos得到的是你在整个银河系的位置
Picture1是你的房子

[dazhi518]

噢,听君一席话,胜读十年书,呵呵...还请你好人做到底,我该如何获取鼠标在窗体上的位置呢?谢谢

[dbcontrols]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 2 Then
  Picture1.Left = X
  Picture1.Top = Y
  End If
End Sub

[Quote=引用 3 楼 dazhi518 的回复:]
噢,听君一席话,胜读十年书,呵呵...还请你好人做到底,我该如何获取鼠标在窗体上的位置呢?谢谢
[/Quote]

[dazhi518]

哈哈,这么简单我还想着去用API..唉 ....谢谢楼上..