vb Postmessage后台模拟点击句柄控件指定坐标位置
发布时间:2020-12-16 22:50:22 所属栏目:大数据 来源:网络整理
导读:vb Postmessage后台模拟点击句柄控件指定坐标位置 Private Sub Command1_Click()Picture1.ClsClickHwndByXy Picture1.Hwnd,20,20End SubPrivate Sub Form_Load()'窗体上添加一个按钮控件和图片框控件就可以了Picture1.DrawWidth = 25Picture1.ForeColor = vbR
vb Postmessage后台模拟点击句柄控件指定坐标位置
Private Sub Command1_Click() Picture1.Cls ClickHwndByXy Picture1.Hwnd,20,20 End Sub Private Sub Form_Load() '窗体上添加一个按钮控件和图片框控件就可以了 Picture1.DrawWidth = 25 Picture1.ForeColor = vbRed End Sub Private Sub Picture1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Picture1.PSet (X,Y) If Button = 1 Then MsgBox "坐标被点击:" & X & "--" & Y & ",像素:" & X / Screen.TwipsPerPixelX & "," & Y / Screen.TwipsPerPixelY End If End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |