一章数据的输入输出.pptVIP

MsgBox语句 格式：MsgBox Prompt[, Buttons] [,Title][Helpfile, Context] 该语句没有返回值，常用于简单信息的显示 例如： MsgBox “是否退出”，34，“选择” MsgBox 谢谢您继续使用！！! 例：设计一工程，运行程序时，单击窗体产生一个MsgBox对话框。根据用户的不同选择，分别作退出或继续操作 Private Sub Form_Click() Title$ = 退出或继续: Msg$ = 确实要退出程序吗？ a = MsgBox(Msgt, vbYesNo + vbDefaultButton1 + vbQuestion, Title) If a = 6 Then End Else MsgBox 谢谢您继续使用！！! End If End Sub 36 4.4.1字形控制 1.字体类型 [窗体名.] [控件名.] | Printer.FontName［=“字体类型名”］ 例如：FontName=宋体 FontName=Times New Roman Textl.FontName=“隶书” 2.字体大小 [窗体名.[控件名.] |Printer.FontSize［=点数］ 3.字体修饰属性 4.4 字形与颜色控制 1) 粗体属性 FontBold ［窗体名.］［控件名.］|Printer.FontBold［=布尔值］ 2) 斜体属性 FontItalic ［ 窗体名.］［控件名.］|Printer.FontItalic［=布尔值］ 3) 加删除线 FontStrikethru ［窗体名.］［控件名.］|Printer.FontStrikethru［=布尔值］ 4) 加下划线FontUnderline ［窗体名.］[ 控件名.］| Printer.FontUnderline［=布尔值］ 5) 重叠显示属性FontTransparent ［窗体名.］［图片框名.］FontTransparent［=布尔值］ 设置一种属性后不会自动撤消，直到遇到新的属性设置命令。 4.4.2颜色控制 1.使用RGB函数 RGB(Red, Green, Blue) Form1.BackColor=RGB(0,0,255) ‘设定背景为蓝色 2.使用QBColor函数 返回一个Long值，用来表示所对应颜色值的 RGB颜色码 QBColor(Color) ‘Color：0~15 3.使用系统定义的颜色常数 vbRed 、vbGreen 、vbBlack 、vbYellow、vbBlue 等 4.直接使用颜色设置值；＆HBBGGRR Forml．BackColor=＆HFF0000 例：使用QBColor函数，输出16种不同颜色的文字 Private Sub form_Click( ) FontSize = 16 FontBold = True For i = 0 To 15 Form1.ForeColor = QBColor(i) Form1.Print “ 梅花香自苦寒来” Next i End Sub 4.5.1利用Printer对象直接输出到打印机 1.Printer对象的Print方法 Printer. Print［表达式表］ 2.与Printer对象有关的属性和方法 1) Page属性：Printer.Page Printer.Print 页号：；Printer.Page 2) NewPage方法实现换页操作 Printer. NewPage 3) EndDoc方法结束数据的打印 Printer. EndDoc 4.5 用打印机输出数据 Private Sub Form_Click( ) FontName = 黑体 FontSize = 28 Printer.Print 欢迎使用Visual Basic！ Printer.Print 正在进行打印输出！ Printer.Print 打印测试完毕 Printer.Print Printer.Page Printer.NewPage Printer.Print 这是第; Printer.