第4章 数据的输入输出和图形控件PPT课件

Text2 = "" Text2.SetFocus End If End Sub
Text1
Text2
确定
07.12.2020
If Text2 <> "" And Not IsNumeric(Text2)
12
二、常用方法
方法是面向对象的，故使用的形式为： [对象.]方法
1.Print方法 形式： [对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 作用：在对象上输出信息 对象：窗体、图形框或打印机(Printer) ，省略对象在窗体上输出。
注意：不清除在设计时的文本和图形。
07.12.2020
16
3. Move方法
形式：[对象.]Move 左边距离[，上边距离[，宽度[，高度]]] 作用：移动窗体或控件，并可改变其大小。
对象：可以是窗体及除时钟、菜单外的所有控件
注意：只有 left 参数是必须的。但是，要指定任何其它的参数，必 须先指定出现在语法中该参数前面的全部参数; 例如：如果不先指定 left 和 top 参数，则无法指定 width 参 数。任何S1 = "请输入你的姓名" + Chr(13) + Chr(10) + "然后单击确定"
strName= InputBox(strS1， "输入框" ， ， 100，100)
当键盘输入“王晓明” 后，变量strName获得键盘输入的值。
07.12.2020
5
4.2 数据的输出
一、MsgBox函数和MsgBox过程
07.12.2020
2
当表达式的类型与变量的类型不一致时， 强制转换成左边的精度，如
iA% = 10 / 3 iA中的结果为3
注意：虽然赋值号与关系运算符等于号都 用“=”表示，VB系统会根据所处的位置自动 判断是何种意义的符号。
07.12.2020
3
二、InputBox函数：
InputBox(提示[,标题][,缺省][,x 坐标][,y坐标]) 其中：提示：提示信息； 标题：对话框标题； 缺省：输入区缺省值； 函数返回字符类型。
07.12.2020
13
Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：左端开始右移动n列，允许重复使用。 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。 无 ；，时换行。
开始打印的位置是由对象的CurrentX和CurrentX属 性决定，
第四章 数据的输入输出和图形控件
4.1 数据的输入 4.2 数据的输出 4.3 字形 4.4 图形控件及图形方法
07.12.2020
1
4.1 数据的输入
一、赋值语句
形式：[LET]变量名＝表达式 作用： 将表达式的值赋值给变量名。 一般用于给变量赋值或对控件设定 属性值。 例： sRate!=0.1 Text1.Text ＝ "欢迎使用Visual Basic 6.0 "
缺省为打印对象的左上角0，0。 注意：要使Print方法在Form _Load事件过程中起作用， 必须设置窗体的 AutoRedraw为True。
07.12.2020
14
例4.2 显示图形
Private Sub Form_Click() For i = 1 To 5 Print Tab(i); String(6 - I, "▼"); Next i
07.12.2020
11
常见错误
数据合法性检查中引起程序的死循环:
Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then
Text1 = "" Text1.SetFocus End If End Sub
Private Sub Text2_LostFocus() If Not IsNumeric(Text2) Then
End Sub
07.12.2020
10
代码-密码检验
Private Sub Command1_Click() If Text2 <> "1234" Then i = MsgBox("密码错误，重新输入吗？", vbOKCancel) If i = vbOK Then
Text2.SetFocus Text2 = "" Else End End If End If End Sub
End Sub
注意：
Spc(6); String(I, "▲")
String(number, character)
返回指定长度重复字符 的字符串。
考虑： 若把Spc(6)换成Tab(6)， 效果如何？
07.12.2020
15
2. Cls方法
形式：[对象.]Cls
作用：清除运行时在窗体或图形框中显示的文本或图形。
分析：
帐号6位，MaxLength为6，LostFocus判断数字IsNumeric函数 密码PassWordChar为“*”，MsgBox函数设置密码错对话框。
07.12.2020
9
代码-账号有效性检验
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then MsgBox "请输入数字！" Text1.SetFocus Text1 = "" End If
函数形式：变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式：MsgBox 提示[,按钮][,标题]
07.12.2020
6
按钮值如下：
07.12.2020
7
函数返回所选按钮整数值：
07.12.2020
8
例4.1 编一帐号和密码检验程序。
要求：
帐号不超过6位数字，有错，清除原内容再输入。 密码输入时在屏幕上以 “*”代替； 若密码错，显示有关信息， 选择“重试”按钮，清除原内容再输入，选择“取消”按钮， 停止运行。
07.12.2020
4
例:要在屏幕上显示图示的对话框：
相应的语句如下：
Dim strName As String * 40
strName= InputBox("请输入你的姓名" + vbCrLf + "然后单击确定" , "输 入框" )
也可以使用如下语句：
Dim strName As String * 40， strS1 As String * 40