快速掌握VB.NETCommand1用法

我们的项目到最后都是给用户看的，我们如里用 VB.NET设计更好的用户界面呢？这是个值得讨论的问题。有时在一个窗口中出现较多的控制件时，如果能向导式地建议用户下一步该做什么，不失为上策。在Visual Basic的程序设计中，我们可以使用语句：Object.SetFaocus使我们希望的控件得到输入焦点，举个例子：在Form1中我们加入一个按钮VB.NET Command1和一个文本输入Text1，双击按钮控件，然后键入如下代码：

成都创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站设计、网站建设、瓮安网络推广、成都小程序开发、瓮安网络营销、瓮安企业策划、瓮安品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联为所有大学生创业者提供瓮安建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com

 
 

  
  
Text1.SetFocus 
 
 

#T#再按F5运行程序，您就会看到一单击按钮，文本框会立即取得输入焦点。另外，我们还可以使用语句：Sendkeys "{TAB}"使下一个控件获得焦点，但我们需要在设计时确定各控件的Index值。(在Properties窗口中)让控件自己感知自己的工作已完成，而主动将焦点让出，会使用户觉得应用程序很聪明，也减少了用户出错的机会。可是当焦点切换的两个控件相隔有一定距离时，上述的方法有时也不足以引起用户的注意，那么一种好的解决方法是将鼠标箭头也移到控件上。可惜，VB并不支持鼠标移动，那我们就求助API函数，API函数SetCursorPos可让我们如愿。

下面是子程序MoveCursorOn，它可让鼠标移动到指定控件上方。

 
 

  
  
Type PoinTAPI  
  
  
x As Integer  
  
  
y As Integer  
  
  
End Type  
  
  
Declare Sub SetCursorPos Lib "User"(Byval x As Integer,Byval y As Integer)  
  
  
Declare Sub ClientToScreen Lib "User"(Byval hwnd As Integer,IpPoint As PointAPI)  
  
  
Declare Function GetParent Lib "User"(Byval hwnd As Integer)As Integer 
 
 

下列代码请放在declarations段中然后建立一个新的子程序(ALT＋N→N→键入子程序名MoveCursorOn)，下面是子程序的代码：

 
 

  
  
Sub MoveCursorOn(source As Control)  
  
  
Dim Pt As PoinTAPI  
  
  
Dim hparent As Integer  
  
  
p.x=(Source.Left＋Source.Width/2)/Screen.Twipsperpixel)  
  
  
p.y=(Source.Top＋Source.Height/2)/Screen.Twipsperpixel)  
  
  
hparent=GetParent(source.hwnd)  
  
  
ClientToScreen hparent pt  
  
  
SetCursorPos pt.x pt.y  
  
  
End Sub  
 
 

使用该子程序很容易，例如我们想把鼠标移动到按钮VB.NET Command1上，就可使用语句

 
 

  
  
Move Cursor On Command1 
 
 

#T#您会看到鼠标箭头已经指着按钮VB.NET Command1。需要说明的是，千万不要滥用该子程序。让鼠标自己满屏乱飞，我们的用户会感到失去对应用程序的控制，这是违反我们的初衷的。在有数个输入框的窗口中(这在数据库应用程序中是很典型的)，当用户完成第一个输入框的输入后，总爱习惯性的加一个回车，希望输入焦点落到下一个输入框中(DOS中大多数应用程序是如此)，可往往事与愿违，这一回车却触发了拥有Default特性的按钮，结果不是关闭了当前窗口就是又蹦出另一窗口。用户睁大眼睛看着屏幕，“咦？！我到底做了什么？”这是Windows新用户经常遇到的事情。

解决它其实很容易，只需在输入框的KeyPress事件中加入如下代码：

 
 

  
  
IF KeyASCII=13 Then  
  
  
KeyASCII=0 
  
  
Sendkeys "{TAB}"  
  
  
END IF 
 
 

这样，当用户在这个输入框中键入Enter时，就象键入TAB键时，焦点被移到下一控件上。但需注意，这种方法不适用于多行的TextBox，即TextBox的MultiLine特性设为True时，因为这时的回车键是起换行的作用。

文章标题：快速掌握VB.NETCommand1用法
文章路径：http://www.hantingmc.com/qtweb/news6/249206.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联