VB 第四章数据的输入与输出.ppt
VB 基础篇,第四章Visual Basic编程基础数据的输入与输出,第四章 数据的输入与输出,所谓的输入，就是指程序从外部环境获得信息，它包括通过键盘、鼠标等外设进行输入；,数据的输入与输出,所谓的输出，则是指程序提供给用户的信息，包括通过显示器、打印机、磁盘、调制解调器等设备进行输出。本章主要介绍窗体的输入输出操作。,数据的输入与输出,4.1 输出方法 4.2 字 形 4.3 打 印 机 输 出,4.1 输出方法,为了在窗体或图片框等对象上显示文本，应使用Print方法，将该窗体或图片框等对象的名称加在它的前面即可。,输出方法,4.1.1Print方法 4.1.2与Print方法有关的函数 4.1.3输出相关方法和属性,4.1.1Print方法,Visual Basic提供了Print方法用于在对象上输出字符串或表达式的值。在前面几章的例子中，已经使用过了Print，现将Print的语法格式介绍如下：,4.1.1Print方法,对象.Print 表达式列表;|,“对象”:窗体（Form）图形框（PictureBox）打印机（Printer）省略对象则在窗体上输出,Print方法,“表达式列表”:用逗号或分号分隔的多个表达式，先计算表达式的值然后输出 分号“;”:将光标定位在上一个输出字符后，,Print方法,逗号“,”:将光标定位在下一个输出分区（以14个字符宽度为一个输出分区单位）的开始位置处。末尾使用逗号分隔符，则下一个Print输出的内容将在当前Print所输出信息的下一个输出分区显示,Print方法,末尾使用分号分隔符，则下一个Print输出的内容将从当前Print输出信息的最后一个字符后开始显示。行末尾没有逗号和分号，则执行完该Print方法要自动换行。,Print方法,注：Print方法在Form_Load事件过程中不起作用。,使用Print方法输出Private Sub Form_Click()Print 2+5=;2+5,2*5=;2*5PrintPrint 欢迎使用,Print Visual BasicEnd Sub,4.1.2 与Print方法有关的函数,为了使信息按指定的格式输出，VB提供了几个与Print配合使用的函数:,1.Spc、Tab、Space函数2.格式输出函数Format,1.Spc、Tab、Space函数,Spc(n):在前一个输出项之后插入n个空格后再输出当前表达式,Tab(n):把输出位置移到由参数n所指定的列数,输出时自动换行,Space(n):函数用于返回n个空格。,Private Sub Form_Click()Print Tab(4);2+5=;Spc(2);2+5,Print 2*5=;Spc(2);2*5Print Tab(4);3+6=;Spc(2);3+6,Print 3*6=;Spc(2);3*6PrintPrint Tab(4);欢迎;Space(4);使用;Print Spc(2);Visual BasicEnd Sub,2.格式输出函数Format,格式输出函数Format可以使数值、日期或字符型数据按指定的格式输出，其主要功能有三种：,格式输出函数Format,将数值类型量按指定格式转换为字符类型量。将时间序数值转换为指定格式的日期或时间。将字符串按指定的格式进行显示。,格式输出函数Format,Format函数的语法格式为：Format(表达式,格式字符串),格式输出函数Format,数值格式化符日期格式化符 字符串格式化符,见附录六,Private Sub Form_Click()Print Format(5459.4,+#,#0.00)返回+5,459.40 Print Format(HELLO,)返回 hello Print Format(#12/31/2001 9:10:15 PM#,dddd,mmm d yyyy hh:mm:ss A/P)End Sub,4.1.3 输出相关方法和属性,1.Cls方法语法格式：对象.Cls1)清除用Print和图形方法创建出的所有文本和图形2)把绘图坐标恢复到原点（0,0）3)缺省对象则指当前窗体,2.CurrentX和CurrentY属性,CurrentX和CurrentY:用来设置窗体和图片框的绘图坐标。单位:窗体和图片框使用每一单位对应一个twip（缇）的坐标系统（每英寸为1440缇,近似地,每厘米为567缇）,ScaleMode属性,因为文本的高度是用其他单位来度量的，有时需要把窗体、图片框和 Printer对象的ScaleMode属性从缇改为其他单位。,3.TextHeight和TextWidth方法,语法格式：对象.TextHeight(字符串)对象.TextWidth(字符串),TextHeight和TextWidth方法,在使用Print方法之前，可使用TextHeight和TextWidth方法确定CurrentX和CurrentY属性所指定的位置。,TextHeight和TextWidth方法,TextHeight方法返回一个文本字符串的高度值TextWidth方法则返回一个文本字符串的宽度值，它们的单位均为twip。,TextHeight和TextWidth方法,如果“字符串”参数包含嵌入的回车换行符（Chr$(13)+Chr$(10)），则文本对应于多行，TextHeight属性将返回字符串中所有行的文本的高度,TextHeight和TextWidth方法,TextHeight 的使用方法是，把CurrentY属性设置到特定的行。例如，下述语句将绘图坐标设置到第n行的开始：CurrentY=TextHeight(Sample)*(n-1),TextHeight和TextWidth方法,属性ScaleWidth和ScaleHeight分别用来表示对象的宽度和高度值，将它们与方法TextWidth和TextHeight结合使用，可以使字符串居中显示。,Dim HalfWidth,HalfHeight,teststrteststr=Visual BasicFontSize=24 HalfWidth=TextWidth(teststr)/2 HalfHeight=TextHeight(teststr)/2 CurrentX=ScaleWidth/2-HalfWidth CurrentY=ScaleHeight/2-HalfHeight Print teststr,4.2 字 形,Visual Basic可以输出各种英文字体和汉字字体，并可通过设置字形的属性来改变字体的风格，如大小、粗细、显示方向、加删除线、下划线、重叠等。,字 形,4.2.1 字体类型和大小4.2.2 其他特征,4.2.1 字体类型和大小,字体类型2.字体大小,1.字体类型,对象.FontName=字体类型该属性在对象上设置输出的英文或中文字体类型。若省略“对象”则指当前窗体，若省略“=字体类型”，则返回当前正在使用的字体类型。,2.字体大小,对象.FontSize=磅值以磅为单位来指定字体的大小（在打印时每英寸72磅）。若省略“=磅值”，则返回当前字体大小。在默认情况下，系统使用最小字体，为9磅。,Private Sub Form_Click()str1$=Visual Baisc str2$=程序设计 FontName=Arial FontSize=15 Print Arial-;str1 FontName=Courier FontSize=20 Print Courier-;str1 FontName=宋体 FontSize=15 Print 宋体-;str2 FontName=隶书 FontSize=20 Print 隶书-;str2End Sub,4.2.2 其他特征,1.粗体字、斜体字、加删除线、加下划线2.透明显示,1.粗体字、斜体字、加删除线、加下划线,粗体字属性FontBold,该属性的默认值为False。,True：粗体字False：正常字,斜体字,FontItalic,True：斜体字False：正常字,该属性的默认值为False。,加删除线,FontStrikethru,该属性的默认值为False。,True:加与文本长 度相同删除线False:正常字,加下划线,FontUnderline,该属性的默认值为False。,True:加下划线False:正常字,2.透明显示,FontTransparent,4.3 打 印 机 输 出,前面介绍的VB输出操作是在窗体上输出信息，也就是以窗体作为输出对象。实际上，只要把输出对象改为打印机（Printer），就可以在打印机上输出所需要的信息,4.3 打 印 机 输 出,4.3.1 直接输出4.3.2 窗体输出,4.3.1 直接输出,所谓直接输出，就是把信息直接送往打印机，所使用的仍是Print方法，只是把Print方法的对象改为Printer，即：Printer.Print 表达式列表,直接输出,Printer对象常用的属性有：Page:打印的当前页号 Height:打印纸的长度 Width:宽度 PaperSize:纸张大小 DeviceName:打印机名称,直接输出,Printer对象有三个很重要的方法：EndDoc:开始打印 KillDoc:中断打印 NewPage:换页,Private Sub Form_Click()Dim i As IntegerDim str As Stringstr=小心计算机病毒！Printer.FontName=黑体Printer.FontSize=24Printer.NewPagePrinter.Print strPrinter.Print 第&Printer.Page&页Printer.EndDoc 将打印内容送到打印缓冲区，准备打印End Sub,4.3.2 窗体输出,Visual Basic除了可直接在打印机上打印表达式的值外，还可以用PrintForm方法将指定窗体的图象传送到打印机。其语法格式如下：窗体.PrintForm若省略窗体名称，则打印当前窗体,窗体输出,PrintForm打印窗体的全部内容，即使窗体的某部分在屏幕上见不到。只有当窗体的AutoRedraw属性设置为True时，才能将图形打印出来,4.4与用户交互函数,1.MsgBox函数语法格式为：MsgBox(msg,buttons,title),第一个参数msg是一个字符串，表示提示的内容;第三个参数title表示消息框的标题;第二个参数由3个数值相加之和组成，这3个数值分别代表按钮的类型、显示图标的种类和哪一个按钮是缺省的“活动按钮”。MsgBox函数的返回值是一个整数，其值是根据用户按下哪个按钮而定的,Private Sub Form_Click()Dim Info1$,Info2$,Answer$Info1=请点击下面的一个按钮Info2=这是一个消息对话框Answer=MsgBox(Info1,291,Info2)291=3+32+256vbYesNoCancel+vbQuestion+vbDefaultButton2 Print Answer,2.MsgBox语句,MsgBox msg,buttons,title由于MsgBox语句没有返回值，因而常用于较简单的信息提示,3.InputBox函数,语法格式：InputBox(prompt,title,default,xpos,ypos)功能：InputBox函数可以产生一个输入对话框，作为输入数据的界面，等待用户在其中的文本输入区内输入信息，并返回所输入的内容。,执行InputBox函数所产生的输入对话框有两个按钮：“确定”和“取消”。用户在文本输入区输入数据后，单击“确定”按钮（或按回车键）表示确认，函数将以字符串的形式返回用户在输入区中输入的数据；如果用户单击“取消”按钮（或按Esc键），则使当前的输入无效，函数将返回一个空字符串。,Private Sub Form_Click()Dim Info1$,Info2$,Info3$,Info$,title$,username$Info1=请输入用户名Info2=Chr$(13)+Chr(10)回车换行Info3=须注意大小写Info=Info1+Info2+Info3title=用户信息输入框username=InputBox(Info,title,“wang)Print usernameEnd Sub,
