02第4章数据输入输出.pptVIP

第4章 数据输入输出 1 数据输入输出控件 2 数据输出方法 3 数据输入输出函数和过程 4 字体、字形和颜色 5 打印机输出 1、数据输入输出控件 1. 用标签 Label输出数据 Label用于显示文本(输出)信息，不能作为输入信息的界面。 例1 显示浮雕效果的文字，实现方法：字颜色、标签位置，常见错误为使用TextBox控件代替Label控件 例1 制作步骤： 1. 在窗体上画一个Label控件，设置其caption,font的属性。 2. 复制一个label控件，注意不要形成控件数组 3. 将上面控件Label2的backstyle设置为0（透明） 4. 设置label1和label2的forecolor颜色 5. 设置两者的left,top属性值相差20，即可产生浮雕效果。 2. 用文本框 输入输出数据 文本框是一个文本编辑区域，可在该区域输入、编辑和显示正文内容。 例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 4.2 数据输出方法 方法是面向对象的，故使用的形式为： [对象.]方法 1、 Print方法 形式： [对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 作用：在对象上输出信息 对象：窗体、图形框或打印机(Printer) ，省略对象在窗体上输出。 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：左端开始右移动n列，允许重复使用。 Tab(n)从最左第一列算起定位于第n列，若当前打印位置已超过n列，则定位于下一行的第n列。 Spc(n)从前一位置起空n个空格 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。 无 ；，时换行。 开始打印的位置是由对象的CurrentX和CurrentY属性决定，缺省为打印对象的左上角0，0。 注意：Print方法在Form _Load事件过程中起作用，必须设置窗体的AutoRedraw为True。 2. 格式输出函数 例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 4.3 数据输入输出函数和过程 1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中：提示： 提示信息；标题： 对话框标题；缺省：输入区缺省值。 函数返回字符类型。 例:要在屏幕上显示如下所示的对话框： 例5 用户输入华氏温度F，将其转换为摄氏温度C。转换公式：C=5÷9×(F-32) 代码如下： Private Sub Form_Click() Dim f as long, c as long f=inputbox(“请输入华氏温度：”,”例5 华氏温度转换为摄氏温度”) c=5/9*(f-32) print “华氏温度：”;f print “摄氏温度：”;c End Sub 2. MsgBox函数和MsgBox过程 函数形式：变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式：MsgBox 提示[,按钮][,标题] 按钮值如下：