richtextbox获取某行_richtextbox 光标_richtextbox和textbox(30)

4.设置焦点

5.1.2文本框的属性、事件、方法

1.利用change事件 例5.2 在三个文本框中显示不同的文字效果 在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内 容，但显示的字号和字体不同。单击“清除”按钮时则清除三个文本框 中的内容

(1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 private sub form_load() text2.fontname = "隶书" text2.fontsize = 16 text3.fontname = "楷体_gb2312" text3.fontsize = 20 end sub private sub text1_change() text2.text = text1.text text3.text = text1.text end sub private sub command1_click() ―清除”按钮 text1.text = "" 清除文本框text1的内容 text2.text = "" 清除文本框text2的内容 text3.text = "" 清除文本框text3的内容 text1.setfocus 设置焦点

end sub

2.设置密码：

passwordchar属性：用于设置是否显示用户键入的字符。 例子5.4设置密码。程序设计者事先设定一个密码为“password‖， 要求用户在一个文本框中输入密码，然后单击“校验密码”命令 按钮，程序核对用户输入的密码与事先设定的密码是否一致。如 果一致，则继续执行其他功能；若不一致，则输出警告信息，界 面如下：输出结果如右图：

（1）界面设计及属性设置：

（2）代码实现： private sub cmdcheck_click() pass$ = txtpw.text if pass$ = "password" then txtshow.text = "密码正确，继续进行！" else txtshow.text = "密码错，重新输入！" end sub

private sub cmdclear_click() txtpw.text = "" txtshow.text = "" txtpw.setfocus end sub

private sub cmdexit_click() end end sub

3.多行文本框

multiline属性: 指定文本框中是否允许显示和输入多行文本 true 多行文本框。 false 不是多行文本框 scrollbars属性：指定在显示多行的文本框中是否出现滚动条 。 0 无滚动条 1 带水平滚动条 2 带垂直滚动条 3带水平滚动条 、垂直 滚动条 selstart属性：设置或返回选中文本内容的开始位置。 sellength属性：设置或返回选中文本内容的长度。 seltext属性：设置或返回选中的文本内容 例子：

4.keypress事件：如何保证输入数据的正确性

例5.6设计一个程序，运行程序时，要求用户在文本框中输入大写英文字母， 如用户输入大写英文字符，窗体上显示出“输入正确”；当输入小写字 符时，窗体上显示“输入错误，请使用大写字母！”，单击“清除”按 钮，清除窗体显示的文字，单击“退出”按钮，结束程序的运行。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29087-30.html