VisualBasic程序设计及应用郑丽敏VB第9章课件教学.pptVIP

* * * * * 解： （1）界面设计 如图9-27所示。 （2）设置属性 如图9-28所示。 9.5 文件操作应用举例 （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）界面