vb数据输入输出

• 2. 打印窗体 • PrintForm ‘将窗体上的信息输出到打印机 前面省略了对象名,表示输出当前窗体上的文本、 可见控件及图形。 3. 打印源程序代码 (1) 直接打印: “文件|打印” (2) 间接打印 用字处理编辑软件(notepad, word, wps等)打印。
本章小结
• 掌握数据输入、输出的方法 • 掌握InputBox,MsgBox的使用 • 掌握字体及颜色的设置方法
• form1.backcolor=&HFF& • form1.forecolor= &HFFFF&
‘红色 ‘黄色
4.5 打印机输出
• • • • • • • • • • • 1. 用Print方法打印输出,对象为打印机 例如: Printer.FontName=“隶书” Printer.FontSize=22 Printer.Bold=True Printer.Underline=True Printer.Print “程序设计” Printer.EndDoc ‘结束打印文件 Printer.Page ‘返回当前页号 Printer.NewPage ‘强制打印换页 上述代码表示在打印机上以22号字、隶书、加粗、带下 滑线打印出字符串“程序设计”。
• • • •
• • • • • • • • •
4. 以下语句的输出结果是____。 Print Format(32548.5,″000,000.00″) A)32548.5 B)32,548.5 C)32548.50 D)032,548.50 5. 在Form_Click事件中执行下列语句后错误的结 果是___。 A) Print Format(12345.6, "000,000.00")的输出结 果是012，345.60 B) Print Format(12345.6, "+##,##0.0%")的输出 结果是+1,234,560.0% B) Print Format(12345.6,"$###,##0.00")的输出结 果是$12,345.60 D) Print Format(12345.6,"0.00E+00")的输出结果 是0.12E+05
• 开始打印的位置是由对象的CurrentX和CurrentY属性决
定，缺省为打印对象的左上角0，0。 • 注意：Print方法在Form _Load事件过程中起作用，必须 设置窗体的AutoRedraw为True。
例4.3 显示图形 Private Sub Form_Click() For i = 1 To 5 Print Tab(i); String(6 - I, "▼"); Spc(6); String(I, "▲") Next i End Sub
4.4 字体、字形和颜色
• 1. 字体类型和大小 可由Font属性来设置。 Fontname：字体；Fontsize：字体大小；Fontbold： 是否是粗体； Fontitalic：是否斜体；Fontstrikethru： 是否加一删除线。 Fontunderline：是否带下划线。 例4.8 如图所示：在窗体建立两个命令按钮 Command1和Command2， Command2的Font通过 属性窗口设置:隶书,粗斜体,删除线,字号16。 Command1的font属性通过代码实现。
2. MsgBox函数和MsgBox过程 MsgBox函源自文库和MsgBox过程 函数和MsgBox
函数形式：变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式：MsgBox 提示[,按钮][,标题]
按钮值如下： 函数返回所选按钮整数值：
• • • • • • •
例4.6 MsgBox函数的应用。提示是否继续执行程序。 Private Sub Form_Click() msg1=“继续执行吗？” msg2=“例4.5提示信息” f=MsgBox(msg1,34,msg2) End Sub 第4行中表明type的值为34=2+32+0，它决定了对话框中 4 type 34=2+32+0 有“终止”、“重试”和“忽略”三个按钮，图标为 “？”，默认活动按钮为“终止”。 • f为MsgBox的返回值，在本例中f依次为3、4或5。
相应的语句如下：
Dim strName As String * 40
strName= InputBox("请输入你的姓名" + vbCrLf + "然后单击确定" , "输入框 ")
也可以使用如下语句： Dim strName As String * 40， strS1 As String * 40 strS1 = "请输入你的姓名" + Chr(13) + Chr(10) + "然后单击确定" strName= InputBox(strS1， "输入框" ， ， 100，100) 当键盘输入“王晓明” 后，变量strName获得键盘输入的值。
• 2. 颜色及颜色参数 • 2.1 调色板：在属性窗口打开；在“视图|调色板” 中打开 • 2.2 颜色参数 • 设置颜色的方法有4种： • （1）使用RGB函数 • form1.backcolor= RGB(0,255,0) ‘绿色 • form1.forecolor= RGB(255,255,0) ‘黄色 • （2）使用QBColor函数 • 共有0~15的取值 • form1.backcolor= QBColor(0) ‘黑色 • form1.forecolor= QBColor(4) ‘红色
第4章 数据输入输出
4.1 数据输入输出控件 4.2 数据输出方法 4.3 数据输入输出函数和过程 4.4 字体、字形和颜色 4.5 打印机输出
4.1数据输入输出控件
• 1. 用标签 Label输出数据 输出数据 • Label用于显示文本(输出)信息，不能作为输入信息的界面。 • 例4.1 显示浮雕效果的文字，实现方法：字颜色、标签位置， 常见错误为使用TextBox控件代替Label控件 • 例4.1 制作步骤： • 1. 在窗体上画一个Label控件，设置其caption,font的属性。 • 2. 复制一个label控件，注意不要形成控件数组 • 3. 将上面控件Label2的backstyle设置为0（透明） • 4. 设置label1和label2的forecolor颜色 • 5. 设置两者的left,top属性值相差20，即可产生浮雕效果。
2. MsgBox函数返回值的类型为_____。 A)整型数值 B)字符串 C)变体 D)数值或字符串(视输入的数据而定) 3. 执行下列语句后,显示输入对话框,此时如 果单击“确定”按钮,则变量strInput的内容 是____。 • strInput=InputBox(″请输入字符串″,″字符串 对话框″,″字符串″) • A)“请输入字符串” B)“字符串对话框” C)“字符串” D)空字符串
• 例4.5 用户输入华氏温度F，将其转换为摄氏温度C。转换 公式：C=5÷9×(F-32) • 代码如下： • Private Sub Form_Click() • Dim f as long, c as long • f=inputbox(“请输入华氏温度：”,”例4.5 华氏温度转换为 ) 摄氏温度”) • c=5/9*(f-32) • print “华氏温度：”;f • print “摄氏温度：”;c • End Sub
• 2. 用文本框 输入输出数据 • 文本框是一个文本编辑区域，可在该区域输入、 编辑和显示正文内容。 • 例4.2 在文本框中输入小时、分、秒，化成共有 多少秒，然后输出之。代码如下: • Private Sub Form_Click() • Dim h, m, s, x • h = Val(Text1.Text) • m = Val(Text2.Text) • s = Val(Text3.Text) • x = h * 3600 + m * 60 + s • Label4.Caption = "共有秒数：" & x • End Sub
习题讲解
• 1. 设有语句:x=InputBox(″输入数值″,″0″,″示例″) 程序运行后,如果从键盘上输入数值10并按回 车键,则下列叙述中正确的是______。 • A)变量x的值是数值10 • B)在InputBox对话框标题栏中显示的是“示例” • C)0是默认值 • D)变量x的值是字符串“10”
注意： 注意 String(number, character):
返回指定长度重复字符的字符串。 考虑： 若把Spc(6)换成Tab(6)，效果如何？
2. 格式输出函数 例4.4 利用Format函数显示有关的日期和时间。 Private Sub Form_Click( ) FontSize = 12 MyTime = #9:21:30 PM# MyDate = #7/21/1997# Print Tab(2); Format(MyDate, "m/d/yy") Print Tab(2); Format(MyDate, "mmmm-yy") Print Tab(2); Format(MyTime, "h-m-s AM/PM") Print Tab(2); Format(MyTime, "hh:mm:ss A/P") Print Tab(2); Format(Date, "dddd,mmmm,dd,yyyy") Print Tab(2); Format(Now, "yyyy年m月dd日 hh：mm") Print FormatDateTime(Now) ' VB6.0新提供的函数 End Sub
– Tab(n)函数：左端开始右移动n列，允许重复使用。 – Tab(n)从最左第一列算起定位于第n列，若当前打印位 置已超过n列，则定位于下一行的第n列。 Spc(n)从前 一位置起空n个空格 – ；(分号)：光标定位上一个显示的字符后。 – ，(逗号)：光标定位在下一个打印区的开始位置处。 – 无 ；，时换行。
• （3）使用VB的颜色常量 • form1.backcolor=vbWhite
• form1.forecolor= vbBlue
‘白色 ‘蓝色
• （4）直接使用颜色值 每一种颜色用四个字节来表示,规定最高字节为 0,从低位算起,每一个字节依次定义红、绿、蓝三 种颜色的值。红、绿、蓝三种成分都是用0到255 （HFF）之间的数表示。
4.2 数据输出方法
• 方法是面向对象的，故使用的形式为： [对象.] 方法 • 1、 Print方法 方法 • 形式： [对象.]Print[{Spc(n)|Tab(n)}][表达式列 表][；|，] • 作用：在对象上输出信息
– 对象 对象：窗体、图形框或打印机(Printer) ，省略对 象在窗体上输出。 – Spc(n)函数：插入n个空格，允许重复使用。
• Command1的font属性设置代码如下: • Private Sub Command1_Click() • Command1.FontName = "宋体" • Command1.FontSize = 16 • Command1.FontItalic = True • Command1.FontUnderline = True • End Sub
4.3 数据输入输出函数和过程
• 1. InputBox函数 函数 • InputBox(提示 ，标题 ，缺省 ，x 坐标位置 ，y坐标位 提示[， 提示 标题][，缺省][， 坐标位置][， 坐标位 置]) • 其中：提示： 提示信息；标题： 对话框标题；缺省：输入 区缺省值。 • 函数返回字符类型。 • 例:要在屏幕上显示如下所示的对话框：
• • • • • • • • • • • • • • •
例4.7 MsgBox过程的应用。判断数据结果是否正确。 Private Sub Form_Click() Dim msg1 as string, style ,response, mystr as string msg1=“数据正确吗？” style=vbYesNo+vbCritical+vbDefaultButton2 response=Msgbox(msg1,style,”例4.6 提示信息”) if response=vbYes then mystr=“数据正确” else mystr=“数据错误” end if MsgBox mystr,,”例4.7” ‘MsgBox过程（语句形式） End Sub 第4行语句也可写成：style=4+16+256或style=276 其中vbCritical表示：显示图标×；vbDefaultButton2：第二个按钮是 默认值，即“否(N)”的按钮为默认按钮。