VB讲课笔记05：数据输入输出

VB讲课笔记05：数据输入输出

一、数据输出

1、Print 方法

打印一个或多个数据，用半角逗号或分号隔开。

怎么利用一个Print语句打印多行内容呢？要利用VB提供的换行符号常量：vbCrLf。

其实，vbCrLf = Chr(13) & Chr(10)。Chr(13)——软回车；Chr(10)——换行

甚至单独用Chr(13)或Chr(10)也可实现换行：

在Java语言和Python语言里，可用转义字符“\n”实现换行，Python语言甚至也支持用chr(13)+chr(10)的方式来实现换行。

（1）Java

（2）Python

2、与Print 方法有关的函数(Tab, Spc, Space$)

• tab(n)和spc(n)都是用来把光标向后移动n个字符的位置
• tab(n)是绝对偏移量，从该列的开头开始计算，移动n个字符的位置
• spc(n)是相对偏移量，从光标处开始计算，移动n个字符的位置
• space() 是插入多少个空格，space(5) 就是插入5个空格

3、格式输出（Format$）

Format(数据, 格式字符串)

常见错误：将数据类型Date不小心写成Data。

二、InputBox 函数

参数1：提示信息

参数2：标题

参数3：缺省值

参数4：输入框左上角横坐标

参数5：输入框左上角纵坐标

参数6：帮助文件

参数7：帮助主题

此时，单击取消按钮：

说明：单击输入框的【取消】按钮，返回值是一个空字符串，要赋给一个整型变量，当然要报类型不匹配的错误了。为了避免这个问题，我们采用一个转换函数Val()，可以将字符串转换成数值型。

此时，启动程序，显示输入框，单击【取消】按钮：

说明：空字符串转成数值型就是0。

三、MsgBox

参数1：提示信息

参数2：按钮类型与图标类型

参数3：标题

参数4：帮助文件

参数5：帮助主题

MsgBox有两种使用方式，需要返回值时就是用MsgBox函数，不需要返回值时就用MsgBox语句。

消息框没有关闭时，不能进行其他操作。也就是说消息框是有模态的显示。类似于有模态地显示一个窗体，要求先响应模态窗体的操作。

使用续行符必须在之前加空格：

否则过不了系统的语法检查：

消息框语句MsgBox，支持四种图标：vbInformation（信息图标）、vbExclamation（警告图标）、vbQuestion（询问图标）与vbCritical（错误图标）。

四、字形

1、FontName

2、FontSize

3、FontBold

4、FontItalic

运行程序：

单击【设置】按钮：

五、打印机输出

1、直接输出

用Printer对象可进行高分辨率输出，但要想产生复杂的打印输出，编程较为繁琐。Printer对象代表系统确省打印机。Printer对象支持许多由窗体和图形框所支持的属性和方法。

1、创建工程，修改工程与窗体名称

2、窗体界面设计

3、按钮事件处理

Private   Sub  cmdPrintGraphTextInForm_Click()

    Me.Line ( 2  *  150 ,  2  *  150 )- Step ( 1440 ,  500 ), , B

    Me.Circle ( 1000 ,  1600 ),  800 , vbRed

    Me.CurrentX =  450

    Me.CurrentY =  450

    Me.Print  "VB编程很有趣！"

End   Sub

Private   Sub  cmdPrintGraphTextToPrinter_Click()

    Printer.Line ( 2  *  150 ,  2  *  150 )- Step ( 1440 ,  500 ), , B

    Printer.Circle ( 1000 ,  1600 ),  800 , vbRed

    Printer.CurrentX =  450

    Printer.CurrentY =  450

    Printer.Print  "VB编程很有趣！"

    Printer.EndDoc

End   Sub

4、运行程序

单击【在窗体上打印图形与文本】按钮：

---

---

单击【在打印机上打印图形与文本】按钮：

任务：在窗体里居中打印文本。

1、添加窗体，并设置为启动窗体

2、窗体界面设计

3、按钮事件处理

4、运行效果

单击【打印文本】按钮：

2、窗体输出

利用窗体的PrintForm方法可以将整个窗体打印输出。