第章数据的输入输出.ppt

【例6.9】用TextHeight 方法将一串文本垂直居中输出。 Private Sub Form_Click() Dim HalfWidth, HalfHeight, Msg 声明变量。 AutoRedraw = -1 打开AutoRedraw。 BackColor = QBColor(4) 设置背景为红颜色。 ForeColor = QBColor(15) 设置前景白颜色。 Msg = Visual Basic 创建信息。 FontSize = 48 设置字体大小。 HalfWidth = TextWidth(Msg) / 2 计算半宽。 HalfHeight = TextHeight(Msg) / 2 计算半高。 CurrentX = ScaleWidth / 2 - HalfWidth ‘ScaleWidth为对象宽度，X居中。 CurrentY = ScaleHeight / 2 - HalfHeight ‘ScaleHeight为对象高度，Y居中。 Print Msg 打印信息。 End Sub 程序运行结果如下所示。 * * 第6章 数据输入/输出 本章教学目的 ? 了解完整程序的结构和函数在程序设计中作用 ? 掌握InputBox$()和MsgBox$()使用方法 ? 了解Shell()、Spc()、Space()、Format()等使用方法 ? 掌握字体的FontName、FontSize等属性使用方法 ? 掌握打印机输出及Page、NewPage、EndDoc等属性使用方法 本章主要内容 ● 常用的输入/输出函数 InputBox$()、MsgBox$()和Shell()函数 MsgBox语句 ● Print方法及相关函数 Print方法; Spc()、Tab()、Space()和Format（）函数 ● 与输出相关的方法和属性 Cls;TextHeight和TextWidth方法；VB的字形 ● 打印机输出 直接输出 ；窗体输出 ● 本章小结 6.1 常用的输入/输出函数 6.1.1 InputBox$()函数 InputBox$()函数生成一个对话框，通过对话框实现数据的输入。 格式：InputBox$(Prompt[,Title][,Default][,Xpos,Ypos][,Helpfile,Context]) 功能：生成一个对话框，等待用户输入数据。函数的返回值是一个字符串。 参数说明： （1）Prompt Prompt是必选的字符串参数，其长度在1024个字符之内，是对话框中显示的提示信息。当提示信息多于一行时，在字符串中插入Chr$(13)+Chr$(10) 或vbCrLf 实现自动换行。 （2）Title Title是一个任选字符串参数，显示在对话框的标题区显示标题。 （3）Default Default是一个任选字符串参数，是InputBox$()函数对话框中数据输入区的缺省值。 （4）Xpos,Ypos Xpos,Ypos是两个整型数据，分别用来表示对话框左上角的坐标位置，单位为Twip（Twip是一种和屏幕无关的单位，一个像素等于15个Twips，1Cm相当于567 Twips）。如果省略了这两个参数，则将对话框显示在屏幕中心线向下约三分之一处。 （5）Helpfile,Context Helpfile是字符串变量，表示帮助文件的文件名；Context数值型变量，表示相关帮助主题的帮助目录号。当在函数中有这两个参数时，将在对话框中显示一个帮助按钮，单击该按钮或按F1键，就显示出有关的帮助信息。 应注意的问题： （1）InputBox$()和InputBox()功能相同，可等价使用； （2）在InputBox$()生成的对话框中，一般产生两个按钮，它们是确定和取消，帮助是由参数Helpfile