文档详情

一章数据的输入输出.ppt

发布:2017-02-16约1.15万字共44页下载文档
文本预览下载声明
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.
显示全部
相似文档