kwrl.net
当前位置:首页 >> VB中如何使用SEtFoCus方法,使TExt文本框获得焦点 >>

VB中如何使用SEtFoCus方法,使TExt文本框获得焦点

控件名+".SetFocus" 比如: Private Sub Command1_Click() Text2.Text = Text1.Text End Sub 运行完,焦点会停留在command1按钮上, 但是改为: Private Sub Command1_Click() Text2.Text = Text1.Text Text1.SetFocus End Sub 运行后,焦点就在...

就是设置焦点,如:text1.setfocus 表示将焦点定位到text1控件,也就是使text1处于活动状态,接受输入。

要使得窗体先显示出来,再设置Text1的焦点,不然会出错的,正确的代码: Private Sub Form_Load() Me.Show Text1.SetFocus End Sub

Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub

你把 点setfocus 删除掉~~光标放在1后面 重新键入 点 看是否出现属性列表 看列表中是否有你想要的方法

Private Sub Command1_Click()Text1.SetFocusEnd SubPrivate Sub Command2_Click()Text2.SetFocusEnd Sub

SetFocus就是把当前焦点给某个对象,比如Me.SetFocus,则当前窗体或者焦点,也就是他是激活窗体,Text1.SetFocus,则Text1获得焦点,这时候输入的内容将显示在Text1中。

例如文本框名称为text1 那么获取焦点的语句为: text1.setfocus 那么就可以读取其文本属性 例如: x=text1.text

这是因为窗体尚在加载过程之中,换句话说,窗体本身都没有加载,你就要设置控件的焦点是不行的。可换为: Private Sub Form_Activate() Dim i, sum Text1.Text = "" Text1.SetFocus For i = 1 To 9 sum = sum + i Next i Text1.Text = sum End Sub

Setfocus是可以这么Command2.SetFocus调用的,但是不能在Form_load中使用,因为在Form Load这个时候,Command之类的控件还没显示出来呢,所以是不能设置焦点的

网站首页 | 网站地图
All rights reserved Powered by www.kwrl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com