VB程序设计PPT第4章 数据输入输出

1、第4章 数据输入输出,4.1 数据输入输出控件 4.2 数据输出方法 4.3 数据输入输出函数和过程 4.4 字体、字形和颜色 4.5 打印机输出,4.1数据输入输出控件,1. 用标签 Label输出数据 Label用于显示文本(输出)信息，不能作为输入信息的界面。 例4.1 显示浮雕效果的文字，实现方法：字颜色、标签位置，常见错误为使用TextBox控件代替Label控件 例4.1 制作步骤： 1. 在窗体上画一个Label控件，设置其caption,font的属性。 2. 复制一个label控件，注意不要形成控件数组 3. 将上面控件Label2的backstyle设置为0（透明） 4.

2、设置label1和label2的forecolor颜色 5. 设置两者的left,top属性值相差20，即可产生浮雕效果。,2. 用文本框 输入输出数据 文本框是一个文本编辑区域，可在该区域输入、编辑和显示正文内容。 例4.2 在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。代码如下: Private Sub Form_Click() Dim h, m, s, x h = Val(Text1.Text) m = Val(Text2.Text) s = Val(Text3.Text) x = h * 3600 + m * 60 + s Label4.Caption = 共有秒数： Str

3、ing(6 - I, ); Spc(6); String(I, ) Next i End Sub,注意： String(number, character): 返回指定长度重复字符的字符串。 考虑： 若把Spc(6)换成Tab(6)，效果如何？,2. 格式输出函数 例4.4 利用Format函数显示有关的日期和时间。 Private Sub Form_Click( ) FontSize = 12 MyTime = #9:21:30 PM# MyDate = #7/21/1997# Print Tab(2); Format(MyDate, m/d/yy) Print Tab(2); Format

4、(MyDate, mmmm-yy) Print Tab(2); Format(MyTime, h-m-s AM/PM) Print Tab(2); Format(MyTime, hh:mm:ss A/P) Print Tab(2); Format(Date, dddd,mmmm,dd,yyyy) Print Tab(2); Format(Now, yyyy年m月dd日 hh：mm) Print FormatDateTime(Now) VB6.0新提供的函数 End Sub,4.3 数据输入输出函数和过程,1. InputBox函数 InputBox(提示，标题，缺省，x 坐标位置，y坐标位置)

5、 其中：提示： 提示信息；标题： 对话框标题；缺省：输入区缺省值。 函数返回字符类型。 例:要在屏幕上显示如下所示的对话框：,相应的语句如下： Dim strName As String * 40 strName= InputBox(请输入你的姓名 + vbCrLf + 然后单击确定 , 输入框 ) 也可以使用如下语句： Dim strName As String * 40， strS1 As String * 40 strS1 = 请输入你的姓名 + Chr(13) + Chr(10) + 然后单击确定 strName= InputBox(strS1， 输入框 ， ， 100，100) 当键

6、盘输入“王晓明” 后，变量strName获得键盘输入的值。,例4.5 用户输入华氏温度F，将其转换为摄氏温度C。转换公式：C=59(F-32) 代码如下： Private Sub Form_Click() Dim f as long, c as long f=inputbox(“请输入华氏温度：”,”例4.5 华氏温度转换为摄氏温度”) c=5/9*(f-32) print “华氏温度：”;f print “摄氏温度：”;c End Sub,2. MsgBox函数和MsgBox过程 函数形式：变量% = MsgBox(提示,按钮，标题) 过程形式：MsgBox 提示,按钮,标题 按钮值如下：

7、函数返回所选按钮整数值：,例4.6 MsgBox函数的应用。提示是否继续执行程序。 Private Sub Form_Click() msg1=“继续执行吗？” msg2=“例4.5提示信息” f=MsgBox(msg1,34,msg2) End Sub 第4行中表明type的值为34=2+32+0，它决定了对话框中有“终止”、“重试”和“忽略”三个按钮，图标为“？”，默认活动按钮为“终止”。 f为MsgBox的返回值，在本例中f依次为3、4或5。,例4.7 MsgBox过程的应用。判断数据结果是否正确。 Private Sub Form_Click() Dim msg1 as string,

8、 style ,response, mystr as string msg1=“数据正确吗？” style=vbYesNo+vbCritical+vbDefaultButton2 response=Msgbox(msg1,style,”例4.6 提示信息”) if response=vbYes then mystr=“数据正确” else mystr=“数据错误” end if MsgBox mystr,”例4.7” MsgBox过程（语句形式） End Sub 第4行语句也可写成：style=4+16+256或style=276 其中vbCritical表示：显示图标；vbDefaultBu

9、tton2：第二个按钮是默认值，即“否(N)”的按钮为默认按钮。,4.4 字体、字形和颜色,1. 字体类型和大小 可由Font属性来设置。 Fontname：字体；Fontsize：字体大小；Fontbold：是否是粗体； Fontitalic：是否斜体；Fontstrikethru：是否加一删除线。 Fontunderline：是否带下划线。 例4.8 如图所示：在窗体建立两个命令按钮 Command1和Command2， Command2的Font通过属性窗口设置:隶书,粗斜体,删除线,字号16。 Command1的font属性通过代码实现。,Command1的font属性设置代码如下:

10、Private Sub Command1_Click() Command1.FontName = 宋体 Command1.FontSize = 16 Command1.FontItalic = True Command1.FontUnderline = True End Sub,2. 颜色及颜色参数 2.1 调色板：在属性窗口打开；在“视图|调色板”中打开 2.2 颜色参数 设置颜色的方法有4种： （1）使用RGB函数 form1.backcolor= RGB(0,255,0) 绿色 form1.forecolor= RGB(255,255,0) 黄色 （2）使用QBColor函数 共有015

11、的取值 form1.backcolor= QBColor(0) 黑色 form1.forecolor= QBColor(4) 红色,（3）使用VB的颜色常量 form1.backcolor=vbWhite 白色 form1.forecolor= vbBlue 蓝色 （4）直接使用颜色值 每一种颜色用四个字节来表示,规定最高字节为0,从低位算起,每一个字节依次定义红、绿、蓝三种颜色的值。红、绿、蓝三种成分都是用0到255（HFF）之间的数表示。 form1.backcolor=&HFF& 红色 form1.forecolor= &HFFFF& 黄色,4.5 打印机输出,1. 用Print方法打印

12、输出,对象为打印机 例如: Printer.FontName=“隶书” Printer.FontSize=22 Printer.Bold=True Printer.Underline=True Printer.Print “程序设计” Printer.EndDoc 结束打印文件 Printer.Page 返回当前页号 Printer.NewPage 强制打印换页 上述代码表示在打印机上以22号字、隶书、加粗、带下滑线打印出字符串“程序设计”。,2. 打印窗体 PrintForm 将窗体上的信息输出到打印机 前面省略了对象名,表示输出当前窗体上的文本、可见控件及图形。 3. 打印源程序代码 (1

13、) 直接打印: “文件|打印” (2) 间接打印 用字处理编辑软件(notepad, word, wps等)打印。,本章小结,掌握数据输入、输出的方法 掌握InputBox,MsgBox的使用 掌握字体及颜色的设置方法,习题讲解,1. 设有语句:x=InputBox(输入数值,0,示例)程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是_。 A)变量x的值是数值10 B)在InputBox对话框标题栏中显示的是“示例” C)0是默认值 D)变量x的值是字符串“10”,2. MsgBox函数返回值的类型为_。 A)整型数值 B)字符串 C)变体 D)数值或字符串(视输入的数据而定) 3. 执行下列语句后,显示输入对话框,此时如果单击“确定”按钮,则变量strInput的内容是_。 strInput=InputBox(请输入字符串,字符串对话框,字符串) A)“请输入字符串” B)“字符串对话框” C)“字符串” D)空字符串,4. 以下语句的输出结果是_。 PrintFormat(32548.5,000,000.00) A)32548.5 B)32,548.5 C)32548.50 D)032,548.50 5. 在Form_Click事件中执行下列