VB6.0 MDI窗口下显示一个子窗口时如何自动关闭其他已经打开的子窗口?

davidtao0819 2009-12-23 08:27:07
RT
...全文
508 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
king06 2009-12-24
  • 打赏
  • 举报
回复
上楼是MDIForm1中代码
king06 2009-12-24
  • 打赏
  • 举报
回复

Private Sub Command1_Click()
Do While Not Me.ActiveForm Is Nothing
Unload Me.ActiveForm
Loop
Form1.Show
End Sub

Private Sub MDIForm_Load()
Form1.Show
Form2.Show
Form3.Show
End Sub
咸清 2009-12-24
  • 打赏
  • 举报
回复
如果没有简单的方法就只好挨个判断了,来个ForEach遍历试试~~
sdrczht 2009-12-24
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 asftrhgjhkjlkttttttt 的回复:]
打开新窗口前执行
Unload ActiveForm
[/Quote]

孤独剑大侠,我刚试过了,这条语句只能关闭当前有焦点的窗体,而如果同时打开几个子窗体的话,其它的仍然会显示。
楼主,我刚试了一下,代码如下,你验证一下吧,不一定太精确,你自己再调整
'主窗体上菜单单击事件,假设有5个窗体,已经打开4 个,现在打算显示第5个窗体,同时要关闭前4个窗体。
Private f5_click()
Dim frm as Form
For Each frm in Forms
if frm.Name<>MdiForm1.Name Then
Unload frm
End If
Next
Form5.Show
End Sub
孤独剑_LPZ 2009-12-23
  • 打赏
  • 举报
回复
打开新窗口前执行
Unload ActiveForm
贝隆 2009-12-23
  • 打赏
  • 举报
回复
帮顶
VB窗体控件大小随窗体大小变化自動調整 有窗体变化后,如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦,下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。 在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小,如: Private Sub Form_Resize() Dim H, i As Integer On Error Resume Next Resize_ALL Me 'Me是窗体名,Form1,Form2等等都可以 End Sub 在模块中添加以下代码: Public Type ctrObj Name As String Index As Long Parrent As String Top As Long Left As Long Height As Long Width As Long ScaleHeight As Long ScaleWidth As Long End Type Private FormRecord() As ctrObj Private ControlRecord() As ctrObj Private bRunning As Boolean Private MaxForm As Long Private MaxControl As Long Private Const WM_NCLBUTTONDOWN = &HA1 Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function ReleaseCapture Lib "USER32" () As Long Function ActualPos(plLeft As Long) As Long If plLeft < 0 Then ActualPos = plLeft + 75000 Else ActualPos = plLeft End If End Function Function FindForm(pfrmIn As Form) As Long Dim i As Long FindForm = -1 If MaxForm > 0 Then For i = 0 To (MaxForm - 1) If FormRecord(i).Name = pfrmIn.Name Then FindForm = i Exit Function End If Next i End If End Function Function AddForm(pfrmIn As Form) As Long Dim FormControl As Control Dim i As Long ReDim Preserve FormRecord(MaxForm + 1) FormRecord(MaxForm).Name = pfrmIn.Name FormRecord(MaxForm).Top = pfrmIn.Top FormRecord(MaxForm).Left = pfrmIn.Left FormRecord(MaxForm).Height = pfrmIn.Height FormRecord(MaxForm).Width = pfrmIn.Width FormRecord(MaxForm).ScaleHeight = pfrmIn.ScaleHeight FormRecord(MaxForm).ScaleWidth = pfrmIn.ScaleWidth AddForm = MaxForm MaxForm = MaxForm + 1 For Each FormControl In pfrmIn i = FindControl(FormControl, pfrmIn.Name) If i < 0 Then i = AddControl(FormControl, pfrmIn.Name) End If Next FormControl End Function Function FindControl(inControl As Control, inName As String) As Long Dim i As Long FindControl = -1 For i = 0 To (MaxControl - 1) If ControlRecord(i).Parrent = inName Then If ControlRecord(i).Name = inControl.Name Then On Error Resume Next If ControlRecord(i).Index = inControl.Index Then FindControl = i Exit Function End If On Error GoTo 0 End If End If Next i End Function Function AddControl(inControl As Control, inName As String) As Long ReDim Preserve ControlRecord(MaxControl + 1) On Error Resume Next ControlRecord(MaxControl).Name = inControl.Name ControlRecord(MaxControl).Index = inControl.Index ControlRecord(MaxControl).Parrent = inName If TypeOf inControl Is Line Then ControlRecord(MaxControl).Top = inControl.Y1 ControlRecord(MaxControl).Left = ActualPos(inControl.X1) ControlRecord(MaxControl).Height = inControl.Y2 ControlRecord(MaxControl).Width = ActualPos(inControl.X2) Else ControlRecord(MaxControl).Top = inControl.Top ControlRecord(MaxControl).Left = ActualPos(inControl.Left) ControlRecord(MaxControl).Height = inControl.Height ControlRecord(MaxControl).Width = inControl.Width End If inControl.IntegralHeight = False On Error GoTo 0 AddControl = MaxControl MaxControl = MaxControl + 1 End Function Function PerWidth(pfrmIn As Form) As Long Dim i As Long i = FindForm(pfrmIn) If i < 0 Then i = AddForm(pfrmIn) End If PerWidth = (pfrmIn.ScaleWidth * 100) \ FormRecord(i).ScaleWidth End Function Function PerHeight(pfrmIn As Form) As Double Dim i As Long i = FindForm(pfrmIn) If i < 0 Then i = AddForm(pfrmIn) End If PerHeight = (pfrmIn.ScaleHeight * 100) \ FormRecord(i).ScaleHeight End Function Public Sub ResizeControl(inControl As Control, pfrmIn As Form) On Error Resume Next Dim i As Long Dim widthfactor As Single, heightfactor As Single Dim minFactor As Single Dim yRatio, xRatio, lTop, lLeft, lWidth, lHeight As Long yRatio = PerHeight(pfrmIn) xRatio = PerWidth(pfrmIn) i = FindControl(inControl, pfrmIn.Name) If inControl.Left < 0 Then lLeft = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000) Else lLeft = CLng((ControlRecord(i).Left * xRatio) \ 100) End If lTop = CLng((ControlRecord(i).Top * yRatio) \ 100) lWidth = CLng((ControlRecord(i).Width * xRatio) \ 100) lHeight = CLng((ControlRecord(i).Height * yRatio) \ 100) If TypeOf inControl Is Line Then If inControl.X1 < 0 Then inControl.X1 = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000) Else inControl.X1 = CLng((ControlRecord(i).Left * xRatio) \ 100) End If inControl.Y1 = CLng((ControlRecord(i).Top * yRatio) \ 100) If inControl.X2 < 0 Then inControl.X2 = CLng(((ControlRecord(i).Width * xRatio) \ 100) - 75000) Else inControl.X2 = CLng((ControlRecord(i).Width * xRatio) \ 100) End If inControl.Y2 = CLng((ControlRecord(i).Height * yRatio) \ 100) Else inControl.Move lLeft, lTop, lWidth, lHeight inControl.Move lLeft, lTop, lWidth inControl.Move lLeft, lTop End If End Sub Public Sub ResizeForm(pfrmIn As Form) Dim FormControl As Control Dim isVisible As Boolean Dim StartX, StartY, MaxX, MaxY As Long Dim bNew As Boolean If Not bRunning Then bRunning = True If FindForm(pfrmIn) < 0 Then bNew = True Else bNew = False End If If pfrmIn.Top < 30000 Then isVisible = pfrmIn.Visible On Error Resume Next If Not pfrmIn.MDIChild Then On Error GoTo 0 ' ' pfrmIn.Visible = False Else If bNew Then StartY = pfrmIn.Height StartX = pfrmIn.Width On Error Resume Next For Each FormControl In pfrmIn If FormControl.Left + FormControl.Width + 200 > MaxX Then MaxX = FormControl.Left + FormControl.Width + 200 End If If FormControl.Top + FormControl.Height + 500 > MaxY Then MaxY = FormControl.Top + FormControl.Height + 500 End If If FormControl.X1 + 200 > MaxX Then MaxX = FormControl.X1 + 200 End If If FormControl.Y1 + 500 > MaxY Then MaxY = FormControl.Y1 + 500 End If If FormControl.X2 + 200 > MaxX Then MaxX = FormControl.X2 + 200 End If If FormControl.Y2 + 500 > MaxY Then MaxY = FormControl.Y2 + 500 End If Next FormControl On Error GoTo 0 pfrmIn.Height = MaxY pfrmIn.Width = MaxX End If On Error GoTo 0 End If For Each FormControl In pfrmIn ResizeControl FormControl, pfrmIn Next FormControl On Error Resume Next If Not pfrmIn.MDIChild Then On Error GoTo 0 pfrmIn.Visible = isVisible Else If bNew Then pfrmIn.Height = StartY pfrmIn.Width = StartX For Each FormControl In pfrmIn ResizeControl FormControl, pfrmIn Next FormControl End If End If On Error GoTo 0 End If bRunning = False End If End Sub Public Sub SaveFormPosition(pfrmIn As Form) Dim i As Long If MaxForm > 0 Then For i = 0 To (MaxForm - 1) If FormRecord(i).Name = pfrmIn.Name Then FormRecord(i).Top = pfrmIn.Top FormRecord(i).Left = pfrmIn.Left FormRecord(i).Height = pfrmIn.Height FormRecord(i).Width = pfrmIn.Width Exit Sub End If Next i AddForm (pfrmIn) End If End Sub Public Sub RestoreFormPosition(pfrmIn As Form) Dim i As Long If MaxForm > 0 Then For i = 0 To (MaxForm - 1) If FormRecord(i).Name = pfrmIn.Name Then If FormRecord(i).Top < 0 Then pfrmIn.WindowState = 2 ElseIf FormRecord(i).Top < 30000 Then pfrmIn.WindowState = 0 pfrmIn.Move FormRecord(i).Left, FormRecord(i).Top, FormRecord(i).Width, FormRecord(i).Height Else pfrmIn.WindowState = 1 End If Exit Sub End If Next i End If End Sub Public Sub Resize_ALL(Form_Name As Form) Dim OBJ As Object For Each OBJ In Form_Name ResizeControl OBJ, Form_Name Next OBJ End Sub Public Sub DragForm(frm As Form) On Local Error Resume Next Call ReleaseCapture Call SendMessage(frm.hwnd, WM_NCLBUTTONDOWN, 2, 0) End Sub
中文名: VB程序设计及应用 作者: 李淑华图书分类: 软件 资源格式: PDF 版本: 文字版 出版社: 高等教育出版社书号: 7-04-014767-X发行间: 2004年04月 地区: 大陆 语言: 简体中文 简介: 内容简介: 本书是新世纪高职高专教改项目成果教材,由教育部高职高专教育专业教学改革试点院校编写。全书共分 17 章。主要介绍了 VisualBasic6.0 系统的基础知识,程序设计的常用函数、程序设计语句、数组,简单介绍了面向对象程序设计的基本概念,详细介绍了基本控件、对话框、图形、菜单等设计方法,多文档界面、工具栏、状态栏的程序设计方法,数据库、对象的链接和嵌入、多媒体控件以及常用的 ActiveX 控件的应用,最后介绍了打字练习、画板、学生成绩管理系统等应用程序实例。本书配有大量的实例和测试题,并配有 CAI课件、电教案。本书由浅入深、通俗易懂,适用于高等职业学校、高等专科学校、成人高校、示范性软件职业技术学院、本科院校使用,还适用于本科院校举办的二级职业技术学院、教育学院以及民办高校使用,也可供参加全国高等学校计算机考试二级 VisualBasic语言程序设计的考生学习参考,同也适应各类工作人员学习参考。 内容截图: 目录: 第1章 VisualBasic概述 1.1 VisualBasic6.0 1.1.1 VB的发展 1.1.2 VB6.0版本简介 1.1.3 VB的特点 1.2 VB的集成开发环境 1.2.1 启动 VB集成开发环境 1.2.2 用户界面 1.3 各种窗口简介 1.3.1 窗体窗口 1.3.2 工程资源管理器窗口 1.3.3 工具箱窗口 1.3.4 属性窗口 1.3.5 代码窗口 1.3.6 调色板窗口 1.3.7 窗体布局窗口 1.3.8 立即窗口 1.3.9 对象浏览器窗口 习题9 第2章 VB基本概念与操作 2.1 可视化编程基础 2.2 VB应用程序的开发步骤 2.2.1 创建或打开新工程 2.2.2 建立用户界面 2.2.3 设计用户界面 2.2.4 添加程序代码 2.2.5 运行调试程序 2.2.6 保存文件 2.2.7 生成可执行文件 2.3 修改和定制窗体 2.3.1 选择控件 2.3.2 控件的操作 2.4 工程的管理 2.4.1 工程的组成 2.4.2 习题 第 3章 VB程序设计的基础 3.1 命名规则和语法规则 3.1.1 命名规则 3.1.2 语句及语法规则 3.2 数据类型 3.2.1 基本数据类型 3.2.2 用户自定义类型 3.3 常量与变量 3.3.1 常量 3.3.2 变量 3.3.3 变量的作用域 3.3.4 变量作用域的关系 3.4 常用函数 3.4.1 内部函数 3.4.2 字符串函数 3.5 运算符和表达式 3.5.1 算术运算符与算术表达式 3.5.2 关系运算符与关系表达式 3.5.3 逻辑运算符与逻辑表达式 习题 第 4章 数据的输出与输入 4.1 数据的输出 4.1.1 Print方法 4.1.2 与 Print有关的函数 4.1.3 Cls方法 4.2 数据输入函数 InputBox 4.3 MsgBox函数和 MsgBox语句 4.3.1 MsgBox函数 4.3.2 MsgBox语句 实训 习题 第 5章 VB程序设计语句 5.1 赋值语句 5.2 条件语句 5.2.1 分支结构 5.2.2 情况语句 5.3 循环语句 5.3.1 For循环 5.3.2 Do循环 5.3.3 多重循环 5.3.4 GoTo语句 5.3.5 End语句 5.3.6 应用举例 习题一 5.4 数组 5.4.1 数组的概念 5.4.2 静态数组的定义 5.4.3 数组下标界的测试函数 5.4.4 动态数组的定义 5.4.5 数组的清除和重新定义 5.4.6 数组的基本操作 5.4.7 数组应用举例 5.5 控件数组 5.5.1 控件数组的概念 5.5.2 控件数组的建立 习题二 5.6 过程 5.6.1 过程的定义 5.6.2 过程的调用 5.6.3 退出过程 5.6.4 SubMain过程 5.7 函数 5.7.1 函数的定义 5.7.2 函数的调用 5.7.3 退出函数语句 实训 习题三 第6章 窗体 6.1 对象的基本属性 6.1.1 属性的分类 6.1.2 对象的基本属性 6.2 窗体的属性、事件和方法 6.2.1 窗体的常用属性 6.2.2 窗体的常用事件 6.2.3 窗体的常用方法 6.2.4 控件的常用事件 6.2.5 LoadPicture函数 6.3 多窗体 6.3.1 加载窗体 6.3.2 显示窗体 6.3.3 隐藏窗体 6.3.4 卸载窗体 6.3.5 建立多窗体 6.4 鼠标事件与键盘事件 6.4.1 鼠标事件 6.4.2 键盘事件 实训 习题 第 7章 常用控件的使用 7.1 标签框与文本框 7.1.1 标签框 7.1.2 文本框 7.2 命令按钮与计器 7.2.1 命令按钮 7.2.2 计器 7.3 单选按钮与复选框 7.3.1 单选按钮 7.3.2 复选框 7.4 框架与滚动条 7.4.1 框架 7.4.2 滚动条 7.5 列表框与组合框 7.5.1 列表框 7.5.2 组合框 7.6 图片框与图像框 7.6.1 图片框 7.6.2 图像框 7.7 设计简单的动画 实训 习题 第 8章 对话框程序设计 8.1 概述 8.1.1 对话框的分类 8.1.2 对话框的特点 8.2 通用对话框 8.2.1 通用对话框控件 8.2.2 通用对话框的属性与方 8.3 通用对话框的使用 8.3.1 打开(Open)对话框 8.3.2 另存为(SaveAs)对话框 8.3.3 颜色(Color)对话框 8.3.4 字体(Font)对话框 8.3.5 打印(Printer)对话框 8.3.6 帮助(Help)对话框 8.4 自定义对话框 8.4.1 自定义对话框的外观 8.4.2 自定义对话框的规则 实训 习题 第9章 图形操作 9.1 图形操作基础 9.1.1 标准坐标系统 9.1.2 自行定义坐标系 9.2 绘图属性 9.2.1 当前坐标 9.2.2 线宽 9.2.3 线型样式 9.2.4 填充 9.2.5 颜色函数 9.3 图形控件1 9.3.1 直线控件 9.3.2 形状控件 9.4 图形方法 9.4.1 PSet方法 9.4.2 Line方法 9.4.3 Circle方法 9.5 画图应用 实训 第10章 菜单程序设计 10.1 概述 10.1.1 下拉菜单 10.1.2 弹出式菜单 10.1.3 设计菜单的步骤 0.1.4 菜单编辑器 10.2 下拉菜单的设计 10.3 菜单项的控制 10.3.1 有效性控制 10.3.2 菜单项标记 10.3.3 菜单项的增减 10.4 弹出式菜单 实训 习题 第 11章 文件 11.1 文件系统控件 11.1.1 驱动器列表框 11.1.2 目录列表框 11.1.3 文件列表框 11.2 文件基本操作 11.3 文件概述 11.3.1 文件结构 11.3.2 文件分类 11.3.3 文件的打开关闭 11.3.4 文件操作语句和函数 11.4 顺序文件 11.4.1 顺序文件的写操作 11.4.2 顺序文件的读操作 11.5 随机文件 11.5.1 随机文件的打开关闭 11.5.2 随机文件的写操作 11.5.3 随机文件的读操作 实训 习题 第 12章 界面设计 12.1 多文档界面 12.1.1 多文档界面的特性 12.1.2 创建和设计 MDI窗体 12.1.3 创建和设计 MDI窗体 12.1.4 MDI窗体与窗体的交互 12.1.5 MDI应用程序的菜单 12.1.6 应用 MDI窗体注意事项 12.2 图像列表框、工具栏和状态栏 12.2.1 图像列表框 12.2.2 工具栏 12.2.3 状态栏 12.3 高级文本框控件 12.4 应用程序向导 12.4.1 生成多文档编辑器 12.4.2 生成WWW浏览器 12.4.3 生成资源管理器 实训 第13章 VisualBasic与数据库 13.1 数据库概念 13.2 数据库管理器 13.3 数据控件 13.3.1 数据控件属性 13.3.2 数据网格控件 13.3.3 数据控件的事件 13.3.4 数据控件的常用方法 13.3.5 记录集的属性与方法 13.3.6 数据库记录的增删改操作 13.4 结构化查询语言(SQL) 13.4.1 SQL的常用命令 13.4.2 Select语句格式与功能 13.4.3 使用SQL 13.5 ADO数据控件 13.5.1 ADO对象模型 13.5.2 ADO控件的常用属性 13.5.3 ADO控件连接数据库 13.5.4 ADO控件上新增绑定控件 13.5.5 数据窗体向导 实训 第14章 对象的链接与嵌入 14.1 OLE控件概述 14.1.1 使用OLE控件 14.1.2 对象链接与嵌入的区别 14.2 OLE控件常用属性与方法 14.2.1 OLE控件的属性 14.2.2 编辑OLE对象 实训 第15章 多媒体 15.1 多媒体控件 15.1.1 多媒体控件的常用属性 15.1.2 多媒体控件的常用事件 15.2 多媒体控件的使用 15.2.1 利用多媒体控件播放CD 15.2.2 利用多媒体控件播放VCD 15.2.3 利用多媒体控件播放有声的 AVI文件 实训 第 16章 常用 ActiveX控件应用 16.1 滑块控件 16.2 日历控件 16.2.1 日历控件的常用属性 16.2.2 日历控件的常用方法 16.3 动画控件 16.3.1 动画控件的常用属性 16.3.2 动画控件的常用方法 16.4 进程条控件 16.4.1 进程条控件的常用属性 16.4.2 进程条控件的常用事件 16.5 浏览器控件 16.5.1 浏览器控件的常用属性 16.5.2 浏览器控件的常用方法 16.6 多选项卡控件 16.6.1 多选项卡控件的常用属性 16.6.2 多选项卡控件的常用事件 16.7 综合应用 16.7.1 状态栏控件和形状控件 16.7.2 多媒体控件和滑块控件 实训 第 17章 综合应用 17.1 打字系统的设计 17.1.1 打字系统的主要功能 17.1.2 打字系统的程序设计 17.2 画板系统的设计 17.2.1 画板系统的主要功能 17.2.2 画板系统的程序设计 17.3 学生档案管理系统的设计 17.3.1 系统结构图 17.3.2 数据库的建立 17.3.3 主窗体的设计 实训 参考文献
课程名称:可视化程序设计(VB) 一、课程的性质和任务 VISUAL BASIC程序设计是一门理论与实践相结合,偏重于应用的课程。其主要课程内容包括VB程序设计语言概述,VB集成开发环境简介,面向对象程序设计方法简介,VB语法基础(基础语法、程序结构、数组、程序和函数等),各种常用控件的使用,以及在图形、文件操作和数据库应用等方面的基本应用方法,掌握程序调试方法,为今后进一步从事计算机应用和开发提供一定的基础。 二、教学目的和要求 教学目的:通过VB程序设计语言的学习,要求一是学会掌握一门计算机程序设计高级语言;掌握 Win32应用程序设计的方法和技巧;掌握程序设计的基本思想,结合实践教学培养和提高应用计算机解决实际问题的能力。 三、教学要求 掌握VB程序设计语言的基础语法和常用控件的基本使用方法,了解程序设计的一般方法和原理;掌握VB语言提供的事件编程机制,以及在Windows界面设计(窗口、控件)应用;以及的掌握VB语言在图形、文件操作和数据库应用等方面的基本应用方法;掌握程序调试方法,学会应用计算机通过程序解决实际问题。。 三、课程的主要内容 第一章 VISUAL BASIC概述 4学(2课讲授+2课上机) (一) 基本要求 了解VB语言的发展和版本等内容;掌握VB语言的特点;熟悉掌握VB集成开发环境的组成结构及基本操作;认识VB工程的组成。 (二) 重点与难点 (1) VB集成开发环境; (2) VB工程的创建。 (三) 教学内容 (1) VB语言简介; (2) VB集成开发环境; (3) VB工程创建。 第二章 简单的VB程序设计 12学(4课讲授+8课上机) (一) 基本要求 掌握结构化程序设计和面向对象程序设计基本思想,掌握类概念,以及对象的建立与编辑、对象的属性、事件和方法;掌握建立简单应用的方法,掌握窗口和基本控件的基本属性和用法,以及VB的管理和环境的设置。 (二) 重点与难点 (1) 面向对象程序设计的基本概念; (2) 窗口和基本控件的基本属性和用法; (3) 工程管理。 (三) 教学内容 (1) 程序设计方法的发展; (2) 对象的概念; (3) 建立简单的应用程序; (4) 窗口与基本控件; (5) 工程管理; (6) 安装光盘的制作; (7) 获得帮助。 第三章 VB基本语言12学(6课讲授+6课上机) (一) 基本要求 掌握VB基本语言、数据类型、常量、变量、常用内部函数、运算符、表达式的概念;掌握基本语句(赋值、用户交互函数和过程,选择结构、循序结构);掌握数组(静态数组、动态数组)的概念、基本操作、应用,以及控件数组。 (二) 重点与难点 (1) 基本语句、选择结构、循环结构; (2) 数组。 (三) 教学内容 (1) 数据类型; (2) 常量与变量; (3) 基本语句; (4) 内部函数; (5) 运算符; (6) 表达式; (7) 选择结构; (8) 循环结构; (9) 数组; (10) 控件数组。 第四章 Visual Basic常用控件与窗体 12学(4课讲授+6课上机) (一) 基本要求 掌握VB的常用控件和窗体使用,包括常用控件、钟、菜单设计、通用对话框、多重窗体、高级控件、鼠标器、键盘。掌握Windows窗口程序设计的基本能力。 (二) 重点与难点 (1) 菜单设计和多重窗体的使用。 (2) 钟和鼠标器、通用对话框 (三) 教学内容 (1) 常用控件; (2) 钟; (3) 菜单设计; (4) 对话框; (5) 多重窗体; (6) 高级控件; (7) 鼠标器; (8) 键盘; 第五章 Visual Basic文件处理 4学(2课讲授+2课上机) (一) 基本要求: 掌握文件的基本概念,文本文件、二进制文件;熟悉VB提供的驱动器、目录和文件列表框控件的使用;掌握文件建立、关闭、读写的基本语句,以及文件的顺序和随机两种访问方式。了解文件操作的常用语句。 (二) 重点与难点 (1) 文件的基本概念,文本文件、二进制文件; (2) 文件建立、关闭、读写的基本语句 。 (三) 教学内容 (1) 文件的基本概念 (2) 驱动器、目录和文件列表框 (3) 文件的读写语句 (4) 顺序文件与随机文件 (5) 二进制文件 (6) 常用的文件操作语句 第六章 图形操作4学(2课讲授+2课上机) (一) 基本要求 掌握图形操作的基本概念,包括坐标系及其变换;掌握线形、线宽、填充图案等基本属性;掌握Picture Box和Image两种控件;掌握图形绘制语句;了解图像处理和简单动画设计技术。 (二) 重点与难点 (1) 线形、线宽、填充图案等基本属性; (2) 图形绘制语句; (三) 教学内容 (1) 图形操作的
中文名: Visual Basic 6大学教程 原名: Visual Basic 6 How to Program 作者: Harvey M. Deitel译者: 于伟 王刚 资源格式: PDF 版本: 扫描版 出版社: 电工业出版社书号: 7505381377发行间: 2003年01月 地区: 大陆 语言: 简体中文 简介: 内容简介    本书深入浅出地介绍了Visual Basic 6语言的基本概念和编程技术,包括对象、属性、方法、语句、函数、结构等基本问题,以及面向对象编程、数据库管理和网络编程等高级课题。全书共分为21章,系统地讨论了Visual Basic 6的编程技巧及应用,并且提供了大量实用和有趣的实例和习题。读者通过学习本书,可以在较短间内掌握基本的和最新的程序设计技术。本书所配的“多媒体教室”光盘更是独具特色,通过交互式环境,使学习过程更加生动有趣。 目 录 第1章 计算机的概念 1 1.1 简介 1 1.2 什么是计算机 2 1.3 计算机的组成 2 1.4 操作系统的变革 3 1.5 个人计算、分布式计算与客户/服务器计算 3 1.6 机器语言、汇编语言和高级语言 4 1.7 Visual Basic的历史 5 1.8 其他高级语言 5 1.9 结构化编程 6 1.10 什么是Visual Basic 6 1.11 关于Visual Basic和本书的一般性提示 7 1.12 本书概览 7 小结 12 自测练习 14 自测练习答案 15 练习 15 第2章 集成开发环境 17 2.1 简介 17 2.2 集成开发环境综述 17 2.3 Project窗口 19 2.4 工具箱 20 2.5 Form Layout窗口 21 2.6 Properties窗口 21 2.7 菜单栏和工具栏 22 2.8 一个简单的程序:显示一行文本 22 小结 28 自测练习 31 自测练习答案 32 练习 33 第3章 Visual Basic 编程入门 35 3.1 简介 35 3.2 可视化编程和事件驱动编程 35 3.3 一个简单程序:在窗体上打印一行文本 36 3.4 另一个简单的程序:整数相加 40 3.5 内存的概念 44 3.6 算术运算 45 3.7 运算符的优先级 46 3.8 进行判断:比较运算符 48 小结 53 自测练习 55 自测练习答案 57 练习 59 第4章 控制结构(一) 62 4.1 简介 62 4.2 算法 62 4.3 伪代码 63 4.4 介绍控制结构 63 4.5 If/Then 选择结构 65 4.6 If/Then/Else选择结构 66 4.7 While/Wend循环结构 69 4.8 Do While/Loop循环结构 70 4.9 Do Until/Loop循环结构 70 4.10 构造算法:示例1(计数器控制循环) 71 4.11 自顶向下、分步求解的算法:示例2(标志控制循环) 73 4.12 自顶向下、分步求解的算法:示例3(嵌套控制结构) 78 小结 82 自测练习 84 自测练习答案 85 练习 87 第5章 控制结构(二) 92 5.1 简介 92 5.2 计数器控制循环的基础知识 92 5.3 For/Next 循环结构 93 5.4 使用For/Next循环结构的例 96 5.5 Select Case多项选择结构 100 5.6 Do/Loop While循环结构 105 5.7 Do/Loop Until循环结构 106 5.8 Exit Do和Exit For语句 108 5.9 Boolean数据类型 109 5.10 常量变量 111 5.11 逻辑运算符 112 5.12 结构化编程总结 114 5.13 Visual Basic数据类型 119 小结 120 自测练习 120 自测练习答案 122 练习 123 第6章 过程与函数过程 128 6.1 简介 128 6.2 窗体模块 128 6.3 Sub过程 129 6.4 Function 过程 134 6.5 按值调用与按引用调用 137 6.6 Exit Sub 和Exit Function 141 6.7 存储类 143 6.8 作用域规则 145 6.9 生成随机数 147 6.10 范例:一个机会游戏 153 6.11 递归与阶乘函数 157 6.12 另一个递归例:Fibonacci序列 160 6.13 递归与迭代 162 6.14 可选参数 163 6.15 命名参数 164 6.16 Visual Baisc 数学函数 166 6.17 代码模块 167 小结 169 自测练习 171 自测练习答案 173 练习 174 第7章 数组 182 7.1 简介 182 7.2 数组 182 7.3 声明数组 183 7.4 使用数组的例 184 7.5 给过程传递数组 190 7.6 数组排序 193 7.7 查找数组:线性查找和二分查找 196 7.8 多维数组 201 7.9 控件数组 203 7.10 动态数组 205 7.11 变长参数表:ParamArray 211 7.12 Array函数 212 小结 213 自测练习 214 自测练习答案 214 练习 215 第8章 字符串、日期和间 224 8.1 简介 224 8.2 字符与字符串基础知识 224 8.3 String数据类型 225 8.4 利用 & 和 + 连接字符串 225 8.5 比较字符串 226 8.6 Like运算符 229 8.7 操作字符串中的单个字符:Mid$ 230 8.8 Left$、 Right$和InStr 232 8.9 使用InStr和 InStrRev函数在字符串里搜索字符串 234 8.10 LTrim$、RTrim$和Trim$ 235 8.11 String$和 Space$ 236 8.12 使用Replace 函数替换字符串 237 8.13 使用StrReverse函数反转字符串 237 8.14 转换字符串的大小写 238 8.15 转换函数 239 8.15.1 Asc 和Chr$ 239 8.15.2 IsNumeric、 Val 和Str$ 240 8.15.3 Hex$和Oct$ 241 8.15.4 类型转换函数 241 8.16 格式化字符串 243 8.16.1 Format$ 函数和命名数字化格式 243 8.16.2 Format$函数和用户定义数字化格式 245 8.16.3 FormatNumber函数 249 8.16.4 FormatCurrency函数 251 8.16.5 FormatPercent函数 253 8.17 处理日期和间 254 8.18 格式化日期和间 262 8.19 String数组 267 8.19.1 模拟洗牌与发牌 269 小结 272 自测练习 274 自测练习答案 274 练习 275 特殊小节:高级字符串操作练习 278 特殊小节:关于字符串操作的工程 280 第9章 图形 281 9.1 简介 281 9.2 坐标系 281 9.3 绘图方法 283 9.4 绘图属性 289 9.5 Line控件和Shape控件 292 9.6 颜色 294 9.7 图像 301 9.8 Printer对象 303 小结 304 自测练习 305 自测练习答案 305 练习 305 第10章 基本图形用户界面 307 10.1 简介 307 10.2 控件 307 10.3 TextBox控件 309 10.4 MaskEdit控件 311 10.5 ComboBox控件 314 10.6 ListBox控件 318 10.7 滚动条 322 10.8 Slider控件 324 10.9 菜单 325 10.10 弹出菜单 328 10.11 MsgBox函数 329 小结 333 自测练习 335 自测练习答案 335 练习 335 特殊小节:建立自己的计算机 337 第11章 高级图形用户界面 344 11.1 简介 344 11.2 多文档界面(MDI) 344 11.3 多窗体 352 11.4 模板窗体 356 11.5 RichTextBox 控件 360 11.6 UpDown 控件 364 11.7 ImageList 控件 367 11.8 ImageCombo 控件 370 11.9 FlatScrollBar 控件(专业版和企业版) 373 11.10 机器代码编译(专业版和企业版) 375 小结 376 自测题 378 自测练习答案 378 练习 379 第12章 鼠标和键盘 382 12.1 简介 382 12.2 改变鼠标指针的形状 382 12.3 鼠标事件 384 12.4 鼠标键 387 12.5 Shift、Ctrl和Alt键 389 12.6 拖放 391 12.7 键盘事件 396 12.8 KeyPreview属性 399 小结 400 自测练习 401 自测练习答案 402 练习 402 第13章 错误处理与调试 404 13.1 简介 404 13.2 何使用错误处理 405 13.3 简单的错误处理例:除数为0 405 13.4 嵌套的On Error语句 407 13.5 Err对象 409 13.6 Resume语句 411 13.7 错误处理程序和调用堆栈 414 13.8 重新引发错误 418 13.9 中断模式、Immediate窗口和Debug对象 420 13.10 防止程序错误的第一步 422 13.11 调试策略 422 13.12 调试器 424 13.12.1 Debug菜单和工具栏 424 13.12.2 Locals窗口 428 13.12.3 Watch窗口 429 13.12.4 Call Stack 窗口 430 13.13 调试器和错误处理程序 431 小结 431 自测练习 434 自测练习答案 434 练习 434 第14章 顺序文件处理 435 14.1 简介 435 14.2 DirListBox、FileListBox、DriveListBox控件 435 14.3 数据分层 438 14.4 文件系统对象 440 14.5 建立一个顺序存取文件 450 14.6 从顺序文件内读取数据 454 14.7 更新顺序存取文件 457 小结 458 自测练习 459 自测练习答案 460 练习 460 第15章 记录和随机存取文件 462 15.1 简介 462 15.2 随机存取文件 462 15.3 记录用户自定义类型 463 15.3.1 用户自定义类型的定义 463 15.3.2 操作用户自定义类型的成员 464 15.4 建立随机存取文件 465 15.5 向随机存取文件写入数据 469 15.6 从随机存取文件中按顺序读取数据 471 15.7 从随机存取文件中随机读取数据 474 15.8 范例:事务处理程序 477 小结 482 自测练习 483 自测练习答案 484 练习 484 第16章 面向对象编程 487 16.1 简介 487 16.2 数据抽象与信息隐藏 488 16.3 利用类实现一个间抽象数据类型 489 16.4 类成员 493 16.5 合成:将对象作为其他类的实例变量 499 16.6 简介面向对象编程 503 16.7 带有部件的软件工程 506 16.8 类型域和 Select Case语句 506 16.9 多态性 507 16.10 Visual Basic接口 507 16.11 多态性举例 508 16.12 范例:IShape、CPoint、CCircle 509 16.13 范例:使用多态的支付系统 512 16.14 范例:图形的多态处理 518 16.15 利用接口继承和指派模拟实现继承 522 16.16 Object Browser 527 16.17 事件和类 528 小结 530 自测练习 532 自测练习答案 532 练习 532 第17章 ActiveX 536 17.1 简介 536 17.2 部件、COM和DCOM 536 17.3 ActiveX 控件类型 540 17.4 ActiveX 控件的生存期和事件 541 17.5 UserControl对象 542 17.6 创建包含构造控件的ActiveX控件 542 17.7 ActiveX 控件举例:Clock控件 549 17.8 ActiveX控件界面向导 554 17.9 属性页和属性页向导(Property Page Wizard) 563 17.10 ActiveX DLL 567 17.11 ActiveX EXE 570 17.12 Friend访问 575 小结 577 自测练习 579 自测练习答案 580 练习 580 第18章 数据库管理 582 18.1 简介 582 18.2 数据库系统 582 18.2.1 数据库系统的优点 582 18.2.2 数据独立 583 18.2.3 数据库语言 583 18.2.4 分布式数据库 583 18.3 关系数据库模型 583 18.3.1 关系数据库 584 18.4 介绍Microsoft ADO Data Control 6.0 585 和Microsoft DataGrid Control 6.0 18.5 关系数据库概览:Biblio.mdb数据库 588 18.6 结构化查询语言 590 18.6.1 基本的SELECT查询 591 18.6.2 WHERE从句 591 18.6.3 ORDER BY从句 592 18.6.4 使用INNER JOIN 从多个表中合并数据 593 18.6.5 Biblio.mdb中的全标题查询 593 18.7 再次讨论ADO数据控件和DataGrid控件 595 18.8 Hierarchical FlexGrid控件 597 18.9 DataList和DataCombo控件 598 18.9.1 范例:使用DataList和DataCombo控件 598 18.9.2 使用BoundColumn属性 602 18.10 使用Data Environment Designer 604 18.11 Recordset的其他程序化功能 607 18.12 事务处理 607 小结 608 自测练习 609 自测练习答案 610 练习 610 参考文献 611 第19章 网络、Internet和WWW 612 19.1 简介 612 19.2 Visual Basic Internet控件 613 19.3 WebBrowser控件 613 19.4 Internet Transfer控件 617 19.4.1 超文本传输协议(HTTP)连接 617 19.4.2 文件传输协议(FTP)连接 619 19.5 Internet Transfer控件的其他属性、方法和事件 621 19.6 Winsock控件 622 19.6.1 建立一个简单的服务器(使用TCP协议) 622 19.6.2 建立一个简单的客户(使用TCP协议) 624 19.7 范例:使用Winsock控件的客户/服务器交互 625 19.7.1 一个简单的基于TCP的服务器 625 19.7.2 一个简单的基于TCP的客户 627 19.7.3 客户/服务器交互的输出 630 19.8 Winsock控件和基于UDP的客户/服务器计算 631 19.8.1 一个简单的基于UDP的服务器 632 19.8.2 一个简单的基于UDP的客户 633 19.8.3 客户/服务器交互的输出 635 19.9 Winsock 控件的其他属性、方法和事件 636 19.10 Visual Basic Script(VBScript):综述 636 小结 645 自测练习 648 自测练习答案 648 练习 649 第20章 多媒体:图像、动画和音频 651 20.1 简介 651 20.2 Microsoft Agent 控件 652 20.3 多媒体MCI控件 658 20.3.1 多媒体MCI控件形成的CD播放器 660 20.3.2 一个多媒体MCI控件AVI文件播放器 661 20.4 Animation 控件 663 20.5 RealAudio ActiveX控件库 665 20.6 Marquee控件库 667 20.7 Microsoft ActiveMovie 控件 670 小结 672 自测练习 674 自测练习答案 674 练习 674 第21章 数据结构、集合和词典 676 21.1 简介 676 21.2 Variant类型 676 21.3 自引用类 677 21.4 动态内存分配 678 21.5 链表 679 21.6 堆栈 688 21.7 队列 691 21.8 树 693 21.9 Collection对象 699 21.10 Dictionary对象 701 小结 705 自测练习 706 自测练习答案 707 练习 707 附录A 运算符优先级表 713 附录B ANSI字符集 714 附录C Internet和WWW上的Visual Basic资源 715 附录D 数值系统 722

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧