《Visual Basic程序设计教程 第2版 教学课件 ppt 作者 刘瑞新 电子教案 第3章 数据的输入与输出》由会员分享，可在线阅读，更多相关《Visual Basic程序设计教程 第2版 教学课件 ppt 作者 刘瑞新 电子教案 第3章 数据的输入与输出（57页珍藏版）》请在金锄头文库上搜索。
1、第3章 数据的输入与输出,第3章 数据的输入与输出,输入与输出是程序设计中的重要环节。没有输出操作的程序不会有什么实用价值，而没有输入的程序则缺乏灵活性。VB提供了多种手段使输入输出操作灵活、多样、方便和直观。 本章介绍VB的输入、输出操作，以及与之有关的控件。,3.1 数据输出 VB的输出操作包括文本信息的输出和图形图像的输出，本章主要介绍文本信息的输出。 3.1.1 Print方法 在早期版本的BASIC语言中，数据的输出主要通过Print语句来实现。在VB中Print是作为对象的方法来使用的。,1. 使用Print方法 使用Print方法可以在窗体上输出文本字符串或表达式的值，其语法格式
2、为： 对象名称. Print 表达式列表 , | ; 其中，对象名称可以是窗体（Form）、图片框（PictureBox）或打印机（Printer）。如果省略“对象名称”，则在窗体上直接输出。 表达式列表是一个或多个表达式，可以是数值表达式或字符串。对于数值表达式，将输出表达式的值；对于字符串，则照原样输出。如果省略“表达式列表”，则输出一个空行。,【例3-1】使用Print方法在窗体中直接输出字符串或数值表达式的值，如图3-1所示。 图3-1 使用Print方法,【例3-1】使用Print方法在窗体中直接输出字符串或数值表达式的值，如图3-1所示。 命令按钮Command1的Click事件代
3、码： Private Sub Command1_Click() Print Print “2 * 3 + 4 =“; 2 * 3 + 4 使用“;”分割符 Print 输出一个空行 Print “欢迎学习“ Print , “Visual“ 使用“,”分割符 Print , , “Baisc“ 使用两个“,”分割符 Print Print “ 欢迎学习“, 在行末使用“,”分割符 Print “Visual“; “ Baisc“ End Sub,2. 与Print方法有关的函数 为了使数据按指定的位置输出，VB提供了几个与Print相配合的函数。 (1) Tab函数 在Print方法中，可以使
4、用Tab函数来对输出进行定位。其格式为： Tab( n ) 其中n为数值表达式，其值为一整数。Tab函数把显示或打印位置移到由参数n指定的列数，从此列开始输出数据。要输出的内容放在Tab函数后面，并用分号隔开。例如： Print Tab(10);“姓名“;Tab(30);“年龄“,(2) Spc函数 在Print方法中，还可以使用Spc函数来对输出进行定位。与Tab函数不同，Spc函数提供若干空格。其格式为： Spc( n ) 其中n为数值表达式，其值为一整数，表示在显示或打印时下一个表达式之前插入的空格数。Spc函数与输出项之间用分号隔开。例如： Print “ABC“;Spc(5);“DE
5、F“ 输出：ABC DFE 当Print方法与不同大小的字体一起使用时，使用Spc函数打印的空格字符的宽度总是等于选用字体内以磅数为单位的所有字符的平均宽度。,【例3-2】在上例中使用Tab函数与Spc函数，只需改写命令按钮的Click事件代码： Private Sub Command1_Click() Print Print Tab(5); “2 * 3 + 4 =“; 2 * 3 + 4 Print Print Tab(6); “欢迎学习“; Tab(17); “Visual Baisc“ Print Print Tab(7); “欢迎学习“; Spc(3); “Visual“; Spc(
6、2); “Baisc“ End Sub,3. Print方法的精确定位 要精确地把文本输出到窗体、图片框或打印页上，可以使用位置属性（CurrentX和CurrentY）与文本的高度宽度方法（TextHeight和TextWidth）。 CurrentX和CurrentY属性分别用来返回或设置当前输出位置的横坐标与纵坐标，TextHeight和TextWidth方法则分别可以返回一个字符串文本的高度值和宽度值。其单位均为Twip。 TextHeight和TextWidth方法的格式为： 对象名称. TextHeight(字符串) 对象名称.TextWidth(字符串) 其中，对象名称可以是窗体
7、、图片框或打印机对象。,【例3-3】下面程序把字符串文本“计算机等级考试”输出到窗体的中间，如图3-3所示。 只需编写窗体的Click事件代码： Private Sub Form_Click () Dim textW As Integer, textH As Integer Print Text$ = “计算机等级考试“ textW = TextWidth(Text) / 2 文本的宽度TextWidth(Text) textH = TextHeight(Text) / 2 CurrentX = ScaleWidth / 2 - textW 窗体的宽度属性ScaleWidth CurrentY
8、 = ScaleHeight / 2 - textH 设置垂直位置 Print Text End Sub,4. 字形与字体 如果要控制所显示或打印文本的大小和外观，可以用FontName、FontSize、FontItalic、FontBold、FontStrikeThru、FontTransparent和FontUnderline属性。这些属性既可以在属性窗口设置（设置窗体的Font属性），也可以在代码中通过“赋值”语句进行设置。,图3-4 使用字体属性 【例3-4】下面程序按指定尺寸、颜色和外观，把文本输出到窗体的中间（图3-4）。,命令按钮的Click事件代码： Private Sub
9、Command1_Click() Dim a As String, textW As Integer, textH As Integer FontName = “隶书“ 输出文本的字体 FontSize = 60 输出字体的大小 ForeColor = QBColor(15) 输出文本的前景色，即字体的颜色 BackColor = QBColor(8) 输出文本的背景色，即窗体的颜色 text = “你好“ 输出文本的内容 textW = TextWidth(text) / 2 文本的宽度TextWidth(text) textH = TextHeight(text) - Command1.H
10、eight / 2 CurrentX = ScaleWidth / 2 - textW 设置输出的水平位置 CurrentY = ScaleHeight / 2 - textH 设置输出的垂直位置 Print text 输出文本 End Sub 说明：属性ScaleWidth与ScaleHeight分别表示窗体内的宽度与高度。,5. 清除方法CLS Cls方法可以清除Form或PictureBox中由Print方法和图形方法在运行时所生成的文本或图形，清除后的区域以背景色填充。设计时使用Picture属性设置的背景位图和放置的控件不受Cls影响。Cls方法的语法为： 对象名称. Cls 其中“
11、对象名称”可以是窗体（Form）或图片框（PictureBox），如果省略“对象名称”，则清除窗体上由Print方法和图形方法在运行时所生成的文本或图形。,【例3-5】在上例中使用Cls方法清除窗体中由Print方法所生成的文本，如图3-5所示。 图3-5 使用Cls方法 只需在上例中增加命令按钮Command2（清除），并且编写其Click事件代码： Private Sub Command2_Click() Cls End Sub,6. 输出文本到图片框 图片框（PictureBox）控件可以输出图形、图像和文本，还可以像窗体一样作容器包含其他的控件。不仅如此，图片框控件具有窗体的上述属性和
12、方法，因此前面的例子完全适用于图片框。 【例3-6】使用Print方法在图片框中输出字符串或数值表达式的值，如图3-6所示。 图3-6 在图片框中输出字符串或数值表达式的值,编写窗体的Activate事件代码： Private Sub Form_Activate() Dim a As String, textW As Integer, textH As Integer Picture1.FontName = “隶书“ Picture1.FontSize = 40 Picture1.ForeColor = QBColor(15) Picture1.BackColor = QBColor(8) a
13、 = “你好“ textW = Picture1.TextWidth(a) / 2 textH = Picture1.TextHeight(a) / 2 Picture1.CurrentX = Picture1.Width / 2 - textW Picture1.CurrentY = Picture1.Height / 2 - textH Picture1.Print a End Sub,编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Picture1.FontName = “宋体“ Picture1.FontSize = 11
14、Picture1.ForeColor = QBColor(0) Picture1.BackColor = QBColor(15) Picture1.Cls Picture1.Print Picture1.Print Tab(2); “2 * 3 + 4 =“; 2 * 3 + 4 Picture1.Print Picture1.Print Tab(3); “欢迎学习“; Tab(17); “Visual Baisc“ Picture1.Print Picture1.Print Tab(4); “欢迎学习“; Spc(3); “Visual“; Spc(2); “Baisc“ End Sub,编
15、写命令按钮Command2的Click事件代码： Private Sub Command2_Click() Picture1.Cls End Sub,3.1.2 信息框函数MsgBox MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。其语法格式为： 变量 = MsgBox(信息内容,对话框类型,对话框标题 ) 其中，信息内容指定在对话框中出现的文本，在信息内容中使用硬回车符（CHR(13)）可以使文本换行。对话框的高度和宽度随着信息内容的增加而增加，最多可有1024个字符。,对话框类型指定对话框中出现的按钮和图标，一般有三个参数。其取值和含义见表3
16、-3、表3-4、表3-5。 表3-3 参数1出现按钮,表3-4 参数2图标类型,表3-5 参数3默认按钮 值 常量 说明 0 vbDefaultButton1 指定默认按钮为第一按钮 256 vbDefaultButton2 指定默认按钮为第二按钮 512 vbDefaultButton3 指定默认按钮为第三按钮 上述三种参数值可以相加以达到所需要的样式。 3) 对话框标题指定对话框的标题。下述代码将显示如图3-8所示的对话框： msg = MsgBox(“请确认输入的数据是否正确！“, 3 + 48 + 0, “数据检查“) 图3-8 信息对话框,4) Msgbox( )返回的值指明了在对话框中选择哪一个按钮，见表3-6。 表3-6 函数的返回值 返回值 常量 按钮 1 vbOK 确定按钮 2 vbCancel 取消按钮
