如果要创建非常安全
Windows应用
使用
项重要技术就是将光标置于特定Control控件上等待用户下次单击
1、添加个Module页面Module1.vb来放置公共思路方法或属性
2、在Module1.vb页面中添加如下公共思路方法
代码如下: Public Sub SnapToControl(ByVal Control As Control)
' Snaps the cursor to the bottom middle of the passed control
Dim objPo
As Po = Control.PoToScreen(New Po(0, 0)) objPo
.X 
(Control.Width / 2) objPo
.Y ((Control.Height / 4) * 3) Cursor.Position = objPo
End Sub
然后再 Form1_Load下指定要把光标置于哪Control控件上
代码如下: Private Sub Form1_Load(ByVal sender As
.Object, ByVal e As .EventArgs) Handles MyBase.Load SnapToControl(TextBox1) '将光标置于TextBox1上
'SnapToControl(TextBox2) 将光标置于TextBox2上
'SnapToControl(Button1) 将光标置于Button1上
'SnapToControl(CheckBox1) 将光标置于CheckBox1上
End Sub
最新评论