第四章Visual_Basic程序设计.pptVIP

Visual Basic程序设计 理学院 樊秋红 第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，即可产生浮雕效果 4.1数据输入输出控件 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 4.2 数据输出方法 方法是面向对象的，故使用的形式为： [对象.]方法 1、Print方法 形式：[对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 作用：在对象上输出信息 对象：窗体、图形框或打印机(Printer) ，省略对象时在窗体上输出。 Spc(n)函数：插入n个空格，允许重复使用。 4.2 数据输出方法 Tab(n)函数：左端开始右移动到n列，允许重复使用。 Tab(n)从最左第一列算起定位于第n列，若当前打印位置已超过n列，则定位于下一行的第n列。 Spc(n)从前一位置起空n个空格 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区（每14列为一个打印区）的开始位置处。 无 ；，时换行。 开始打印的位置是由对象的CurrentX和CurrentY属性决定，缺省为打印对象的左上角0，0。 4.2 数据输出方法 注意：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.2 数据输出方法 注意： String(number, character): 返回指定长度重复字符的字符串。 考虑：若把Spc(6)换成Tab(6)，效果如何？ 4.2 数据输出方法 2. 格式输出函数 Format[$](表达式,格式字符串) 使表达式的值按“格式字符串”制定的格式输出。 数值格式化输出 日期和时间格式化 字符串格式化 4.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 4.3 数据输入输出函数和过程 1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中： 提示： 提示信息