第4章+数据的输入输出.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 第4章 数据的输入和输出 4.1数据的输入 4.2 数据的输出 4.3 MsgBox函数 4.4 字形与颜色控制 4.1.1 InputBox函数 InputBox[$](Prompt[,Tiltle][,Default][,Xpos,Ypos][,Helpfile,Context]) 1) Prompt: 字符串,长度不超过1024个字符,用来提示用户输入。文本 可自动换行。如想强制插入回车换行则用：Chr$(13)+Chr$(10) 2) Title：字符串，是对话框的标题，显示在对话框顶部的标题区 3)Default: 字符串，用来显示输入缓冲区的默认信息 4) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置； 如果省略，则对话框显示在屏幕中心线向下约1/3处 5) Helpfile，Context：Helpfile是字符串表示帮助文件的名字； Context是数值变量或表达式，表示相关帮助主题的帮助目录号 4.1 数据的输入 例如： Private sub Form_Click( ) c1$=chr$(13)+chr$(10) str1$= “请输入一串字符: str2$= “输入后按回车键, 或单击确定按钮 msg$=str1$+c1$+str2$ ss$=InputBox$(msg$,“输入函数InputBox示例”,“hello) Print ss$ End Sub 1) Default表示输入的初始默认值，如果直接按下回车键或单击“确定”按钮，函数的返回值（函数值）为该默认值 2）变量名=InputBox(参数表