- 1
- 0
- 约2.52万字
- 约 127页
- 2017-01-07 发布于广东
- 举报
* * * * * 解: (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)界面
您可能关注的文档
- VisualBasic程序设计基础李群先第11章课件教学.ppt
- VisualBasic程序设计基础李群先第12章课件教学.ppt
- VisualBasic程序设计基础吴绍根陈建潮14103VisualBasic程序设计基础课件教学.ppt
- VisualBasic程序设计及应用郑丽敏VB第1章课件教学.ppt
- VisualBasic程序设计及应用郑丽敏VB第2章课件教学.ppt
- VisualBasic程序设计及应用郑丽敏VB第3章课件教学.ppt
- VisualBasic程序设计及应用郑丽敏VB第4章课件教学.ppt
- VisualBasic程序设计及应用郑丽敏VB第5章课件教学.ppt
- VisualBasic程序设计及应用郑丽敏VB第6章课件教学.ppt
- VisualBasic程序设计及应用郑丽敏VB第10章课件教学.ppt
原创力文档

文档评论(0)