|
#2
雨中飞燕2007-10-22 16:14
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) 全选文本 Text1.SetFocus 设置输入焦点在此文本框  by 雨中飞燕 QQ:78803110 C/C++讨论群:46520219 [url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.programfan.com  [url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url] [url=http://blog.programfan.com/article.asp?id=24801]请不要写出非int声明的main函数[/url] [url=http://bbs.bc-cn.net/viewthread.php?tid=162918" target="_blank">https://yzfy.org/ Blog: http://yzfy.programfan.com [url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url] [url=http://blog.programfan.com/article.asp?id=24801]请不要写出非int声明的main函数[/url] [url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url] |
只有本站会员才能查看附件，请 登录
这是我的程序界面,代码如下:
Private Sub Command1_Click()
x = Val(Text1.Text)
y = x \ 100: Text2.Text = y
x = x - 100 * y
y = x \ 50: Text3.Text = y
x = x - 50 * y
y = x \ 10: Text4.Text = y
x = x - 10 * y
y = x \ 5: Text5.Text = y
x = x - 5 * y
y = x \ 2: Text6.Text = y
x = x - 2 * y: Text7.Text = x
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub
Private Sub Text1_Change()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
请问:Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
这三句话是什么意思?