10.1.6打印机输出 1.直接输出 把信息直接送往打印机 格式: Printer Print表达式表 1)Page属性:设置当前页号 格式: Printer:Page (2) NewPage方法:实现换页操作 格式: Printer. New Page (3) EndDoc方法:结束文件打印 格式: Printer enddoc 例10.3在打印机上打印文字“计算机程序设计” Private Sub Command1 Click Printer fontname="隶书 Printer Fontsize =12 Printer print“计算机程序设计”将文本放到 Printer对象中 Printer enddoc 打印结束 End Sub
1. 直接输出 把信息直接送往打印机 格式：Printer.Print [表达式表] (1)Page属性：设置当前页号 格式：Printer.Page (2)NewPage方法：实现换页操作 格式：Printer.NewPage (3)EndDoc方法：结束文件打印 格式：Printer.EndDoc 10.1.6 打印机输出 例10.3 在打印机上打印文字“计算机程序设计” Private Sub Command1_Click() Printer.FontName = "隶书" Printer.FontSize = 12 Printer.Print “计算机程序设计” '将文本放到Printer对象中 Printer.EndDoc ‘打印结束 End Sub
2.窗体输出 先把要输出的信息送到窗体上,再用 PrintForn方法把 窗体上的内容打印出来 格式:[窗体名 Printform 功能:把窗体上的信息输出到打印机 ★
2. 窗体输出 先把要输出的信息送到窗体上，再用PrintForm方法把 窗体上的内容打印出来 格式：[窗体名.]PrintForm 功能：把窗体上的信息输出到打印机
10.1.7闲置循环与 DoEvents语句 VB只有在发生事件时才执行相应的事件过程,如果没 有事件发生,则应用程序处于“闲置”状态 所谓闲置循环,就是当程序处于闲置状态时,用一个循 环来执行某些操作 为使在闲置循环中也能响应其他操作和事件,ⅤB提供 了一个 Do Events语句,其格式为: 窗体号= DoEvents o 功能:在闲置循环中,通过 Do Events语句可以把控制权 交给系统去处理所发生的事件
VB只有在发生事件时才执行相应的事件过程，如果没 有事件发生，则应用程序处于“闲置”状态 所谓闲置循环，就是当程序处于闲置状态时，用一个循 环来执行某些操作 为使在闲置循环中也能响应其他操作和事件，VB提供 了一个DoEvents [窗体号=]DoEvents[()] 功能：在闲置循环中，通过DoEvents语句可以把控制权 交给系统去处理所发生的事件 10.1.7 闲置循环与DoEvents语句
例10.4闲置循环和 DoEvents应用示例 (1)建立一个文本框和二个命令按钮,两个事件过程: Private Sub Commandl click Text1 Fontsize Text1 Fontsize 1 End sub Private Sub Command2 Click End End Sub (2)编写 Sub main过程 Private Sub MAINO Forml show Do While true 进入“闲置循环” x=Do Events 把控制权交给系统去处理所发生的事件 否则不能处理其他事件 FormlTextIText= Time Loop End sub
(1) 建立一个文本框和二个命令按钮，两个事件过程： Private Sub Command1_Click() Text1.FontSize = Text1.FontSize + 1 End Sub Private Sub Command2_Click() End End Sub (2) 编写Sub Main过程 Private Sub MAIN() Form1.Show Do While True '进入“闲置循环” x = DoEvents '把控制权交给系统去处理所发生的事件 '否则不能处理其他事件 Form1.Text1.Text = Time Loop End Sub 例10.4 闲置循环和DoEvents应用示例
(3)把 Sub main设置为启动对象 程序运行后,进入闲置循环,此时将在文本框Text1中 不断地显示系统时间 由于加入 Do Events函数,则可以在执行闲置循环过程 中执行其他操作,如重设窗体的大小及最大化最小化,还 能响应命令按钮 Command1和 Command2的单击事件等。 当其他操作完成后,又会回到闲置循环中继续执行 ★
(3)把Sub Main设置为启动对象 程序运行后，进入闲置循环，此时将在文本框Text1中 不断地显示系统时间。 由于加入DoEvents函数，则可以在执行闲置循环过程 中执行其他操作，如重设窗体的大小及最大化/最小化，还 能响应命令按钮Command1和Command2的单击事件等。 当其他操作完成后，又会回到闲置循环中继续执行