vb控制鼠标点击窗体内指定位置

[xixuan_sky]

vb控制鼠标点击窗体内指定位置，而不是在屏幕上,如点击窗体上（10，10）的位置
点击的坐标是按像素计算，还是其他的，会随显示器的大小而变吗，如何给控制不变

[xixuan_sky]

提示这个地方报错（ReleaseCapture），什么问题？
我就是直接复制你的代码 加了一个Command1

[xixuan_sky]

看代码的时候，哪个是代表（10，10），没有看明白意思

[Tiger_Zhao]

要补上这两个声明——刚才已经补过了，居然没更新，:(
&HA000A 的 HiWord 和 LowWord 就是 10 (&HA)

Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SetCapture Lib "user32.dll" (ByVal hwnd As Long) As Long

[fengzhou8417]

看一下API吧，会学到很多VB控制计算机的技巧的

[fengzhou8417]

windows API
　　什么是windows API
　　Windows API是一套用来控制Windows的各个部件(从桌面的外观到为一个新进程分配的内存)的外观和行为的一套预先定义的Windows函数.用户的每个动作都会引发一个或几个函数的运行以告诉Windows发生了什么.
　　这在某种程度上很象Windows的天然代码.其他的语言只是提供一种能自动而且更容易的访问API的方法.VB在这方面作了很多工作.它完全隐藏了API并且提供了在Windows环境下编程的一种完全不同的方法. 这也就是说,你用VB写出的每行代码都会被VB转换为API函数传递给Windows.例如,Form1.Print...VB 将会以一定的参数(你的代码中提供的,或是默认参数)调用TextOut 这个API函数. 。同样,当你点击窗体上的一个按钮时,Windows会发送一个消息给窗体(这对于你来说是隐藏的),VB获取这个调用并经过分析后生成一个特定事件(Button_Click).
　　API函数包含在Windows系统目录下的动态连接库文件中(如User32.dll,GDI32.dll,Shell32.dll...).

[嗷嗷叫的老马]

...........................

[xixuan_sky]

顶一下~~~

[Tiger_Zhao]

Option Explicit

Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_LBUTTONUP As Long = &H202

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" ( _
        ByVal hwnd As Long, _
        ByVal wMsg As Long, _
        ByVal wParam As Long, _
        ByRef lParam As Any) As Long

Private Sub Command1_Click()
    ReleaseCapture
    SetCapture Me.hwnd
    SendMessage Me.hwnd, WM_LBUTTONDOWN, 0&, ByVal &HA000A
    SendMessage Me.hwnd, WM_LBUTTONUP, 0&, ByVal &HA000A
End Sub

Private Sub Form_Click()
    MsgBox "Form_Click"
End Sub

[xixuan_sky]

本人是初学，不是很明白，能否给出，窗体内点击的例子 窗体内指定坐标（10，10）

[Tiger_Zhao]

上面的就是点击 (10,10)

[hndth]

ding

[armads12]

ding

[牧羊的犬]

怎么没有东西呀，没有代码啊

[niuc168]

没有代码啊

[wujiangang168]

UP...