数据的输入与输出

“文本框”控件举例 3.3.1
（2）编写代码
Private Sub cmdCopy_Click() '将选中的文本复制到Text2中 Text2.SelText = Text1.SelText
End Sub
Private Sub cmdCut_Click() '将选中的文本复制到Text2中 Text2.SelText = Text1.SelText '删除Text1中被选中的文本，完成剪切 Text1.SelText = ""
数据的输入与输出
第3章 数据的输入与输出
§ 3.1 数据输出 § 3.2 数据输入 § 3.3 打印机输出 § 3.4 使用框架控件
直接输出到窗体
ch3-3.1.1
1. Print方法
[<对象名>.]Print[<表达式列表>][{,|;}] <对象名>可以是 窗体、图片框或打印机 如果省略表达式则输出一个空行 表达式间的分隔符：, 或 ;
当MultiLine属性为True时，文本框可 以输入或显示多行正文
(4) ScrollBars滚动条属性
“文本框”控件 3.3.1
ch3-
(5) Locked属性 指定文本控件是否可被编辑，
默认值为False，表示可编辑，当 设置为True时，文本控件相当于 标签的作用。
“文本框”控件 3.3.1
End Sub
ch3-
“文本框”控件举例 3.3.1
ch3-
[例3-3] 建立一个类似记事本的应用程序。 运行结果如下图
“文本框”控件 3.3.1
ch3-
(1) Change事件 当用户输入新内容或当程序将Text属性设置
新值，会引发该事件。当用户输入一个字符时， 就会引发一次Change事件。
(3) LostFocus事件 此事件是在一个对象失去焦点时发生，焦 点的丢失或者是由于制表键(Tab)移动 或单击另一个对象操作的结果。
(4) GotFocus事件 GotFocus事件与LostFocus事件相反， 当一个对象获得焦点时发生。
“文本框”控件 3.3.1
ch3-
文本框最有用的方法是SetFocus，该 方法是把光标移到指定的文本框中。形式 如下： [对象.]SetFocus
“文本框”控件 3.3.1
ch3-
[例3-4]输入两个数，然后计算两个数的和， 将结果显示。要求对输入的非数字数据， 清除文本框中的内容，并使焦点重新回到 该文本框。
“文本框”控件 3.3.1
ch3-
Private Sub Text1_LostFocus() If Not IsNumeric(Text1.text)
ch3-
(6) SelStart、SelLength和SelText 属性
◆SelStart：选定的正文的开始位 置，第一个字符的位置是0。
◆SelLength：选定的正文长度。 ◆SelText：选定的正文内容。
见下页举例：
“文本框”控件 举例 3.3.1
ch3-
[例3-2]在文本框Text1中选定文本，通过 命令按钮将选定的内容复制或剪切到文本 框Text2中。
(2) KeyPress事件 当用户按下并且释放键盘上的一个键时，就会 引发焦点所在控件的KeyPress事件，此事件 会返回一个KeyAscii参数到该事件过程中。 例如，当用户输入字符"a"，返回KeyAscii的 值为97。
“文本框”控件 3.3.1
ch3-
“文本框”控件 3.3.1
ch3-
直接输出到窗体
ch3-3.1.1
Tab(<n>)函数
把显示或打印位置移到由参数n指定的列数 如： Print Tab(10);”姓名”;Tab(30);”年龄”
直接输出到窗体
ch3-3.1.1
Spc函数
Spc(<n>) 在显示或打印下一个表达式之前插入的空格数 如 Print "姓名"; Spc(5); "年龄“ 输出为：姓名 年龄
Then Text1.Text = "" Text1.SetFocus ' 焦点重新回
到输入文本框 End源自文库If
End Sub
“文本框”控件 3.3.1
ch3-
Private Sub Text2_LostFocus() If Not IsNumeric(Text2.text)
And Text2.text <> "" Then Text2.Text = "" Text2.SetFocus ' 焦点重新回
End Sub
“标签”控件 3.1.3
ch3-
“文本框”控件 3.3.1
ch3-
(1) Text文本属性 显示的正文内容存放在Text属性中。
(2) Maxlength属性 Maxlength属性指明文本框中能够输入
的正文内容的最大长度。 注意：
在VB中字符长度以字为单位，也就是一个 西文字符与一个汉字都是一个字，长度为1。 (3) MultiLine多行属性
输出到图片框
ch3-3.1.2
Private Sub Command1_Click()
Picture1.Print Picture1.Print "2*3+4="; 2 * 3 + 4 Picture1.Print "2*3+4=", 2 * 3 + 4 Picture1.Print Picture1.Print " 欢迎学习", Picture1.Print "Visual"; "Basic"
到输入文本框 End If
End Sub
“文本框”控件 3.3.1
ch3-
Private Sub Text3_GotFocus() Text3 = Val(Text1.text) +
Val(Text2.text)
End Sub
输入框（InputBox）
ch3-3.4.2
“文本框”控件举例 3.3.1
ch3-
（1）设计界面及设置属性
两个文本框Text1和Text2，MultiLine属性均设 为 True ， ScrollBars 属 性 均 设 为 2 ， HideSelection属性均设为False。文本框Text1 的Alignment属性设为2。文本框Text1的Text属 性设为李白的诗“下江陵”。添加三个命令按 钮，Caption属性分别为“复制到目标区”、“ 剪切到目标区”和“退出”。