VisualBasic程序设计及应用郑丽敏VB第9章节幻灯片.pptVIP

* * * * * * * * * * * * * * * （3）代码编程 Private Sub Command1_Click() 设置错误陷阱 On Error GoTo errhandler With CommonDialog1 .Filter = 位图格式(*.bmp)|*.bmp|GIF格式(*.gif)|*.gif|JPEG格式(*.jpg)|*.jpg|所有文件(*.*)|*.* .DialogTitle = 选择图片 .ShowOpen 显示打开对话框 End With 将公共对话框选的图片文件加入图片框 Picture1.Picture = LoadPicture(CommonDialog1.FileName) Label1.Caption = Label1.Caption CommonDialog1.FileName errhandler: If Err = 32755 Then Exit Sub 选择了取消 End Sub 9.5 文件操作应用举例 （4）运行结果 如图9-29和9-30所示。 9.5 文件操作应用举例 【例9-8】设计一窗体程序。实现对学生的学号、姓名和成绩的顺序数据文件的保存、查询、修改和数据检验等功能。 9.5 文件操作应用举例 （1）界面设计与属性设置 如图9-31所示。 9.5 文件操作应用举例 （2）编程策略 数据保存：利用顺序文件添加Append方式，将输入到个文本框的数据，用Write语句写入；查询数据：因为顺序文件是按顺序管理，必须将顺序文件中数据顺序读出逐条判断是否为所查找数据，如果是要记录所在行：本例用一个文本框记载行数但运行隐藏：即Visible属性设为False，一般修改后保存用；修改时，注意要全部重新写入一次数据；数据验证：是将全部数据读到列表框中。 9.5 文件操作应用举例 （3）代码编写 Dim i As Integer, a1, a2, a3, s Dim n As Integer Private Sub Command1_Click() ‘保存数据功能 If Text1.Text = And Text2.Text = And Text3.Text = Then MsgBox 无数据输入 Else Open score.txt For Append As #1 Write #1, Trim(Text1.Text); Trim(Text2.Text); Val(Text3.Text) Close #1 Text1.Text = Text2.Text = Text3.Text = End If End Sub 9.5 文件操作应用举例 Private Sub command2_Click() ‘查询数据功能 n = 0 读出所有数据记录行数 Open score.txt For Input As #1 Do While Not EOF(1) n = n + 1 Line Input #1, s Loop Close #1 ReDim a1(n - 1), a2(n - 1), a3(n - 1) Open score.txt For Input As #1 i = 0 Do While i = n - 1 9.5 文件操作应用举例 Input #1, a1(i), a2(i), a3(i) 查找学号 If a1(i) = Text1.Text Then Text1.Text = a1(i) Text2.Text = a2(i) Text3.Text = a3(i) 暂存i值 Temp.Text = Str(i) Exit Do End If i = i + 1 Loop Close #1 End Sub Private Sub Command3_Click() ‘数据验证功能 ? i = 0 List1.Clear Open score.txt For Input As #1 Do While i = n - 1 Line Input #1, s 添到列表框 List1.AddItem s i = i + 1 Loop Close #1 End Sub Private Sub Command4_Click() ‘数据修改功能