可视化编程应用——Visual Basic 6.0 第二版 教学课件 作者 杜秋华 康慧芳 第9章 综 合 案 例.pptVIP

第9章 综合案例 9.1 制作摘红苹果游戏 设计一个图9-1所示的摘红苹果游戏，游戏玩法如下：游戏开始后，红苹果便会在窗体上闪现一段时间，在这段时间内，如果单击鼠标的位置刚好在红苹果出现的位置，则该红苹果就被摘了；如果单击鼠标的位置不在红苹果出现的位置，则该苹果没被摘，并且红苹果出现的位置是 不定的，另外红苹果总共只有15个， 随着时间的推移，红苹果的个数不断 减少，直到为零，游戏也便结束。在 整个过程，单击鼠标正确的次数便是 摘的红苹果个数。游戏所要实现的功 能如下，具体设计过程见教材。 ? 选择【游戏】/【开始游戏】命令或直接按F2键，便可开始游戏。 ? 选择【游戏】/【暂停】命令或直接按F3键，暂停游戏，选择【游戏】/【开始游戏】命令继续游戏。 ? 选择【游戏】/【重新开始】命令或直接按F4键，重新开始游戏。 选择【游戏】/【英雄榜】命令，察看 以前别人留下的记录，如图9-2所示， 单击“确定”按钮，返回游戏界面；单击 “重新计分”按钮，清除记录。 ? 选择【游戏】/【退出】命令，退出游戏。 ? 选择【设置】/【难度】命令，设置游戏的难度。 ? 如果破记录了，在游戏结束时，弹出图9-3所示的提示框，单击“确定”按钮，弹出图9-4所示的对话框，在文本框中输入名字，然后选择性别，单击“确定”按钮，返回游戏。 【案例小结】 在本案例中，使用Visual Basic 6.0设计了一个简单游戏，进一步熟悉了控件使用、图象处理，菜单栏设计、文件操作以及错误处理等知识，基本上综合了以前所学的大部分基础知识，主要用到以下知识： ? 控件的使用，包括常用基本控件属性（命令按钮、单选按钮、图像框、列表框、文本框、定时器等）的设置以及常用事件的添加； ? 列表框列表项添加的方法； ? 对话框的使用，主要是消息对话框的使用； ? 菜单栏设计以及菜单事件的使用； ? 文件的打开、关闭以及随机文件的读写操作； ? 实时错误的预防。 9.2 Visual Basic 6.0数据库编程 利用数据库编程建立一个用来浏览、查询的数据库系统，其浏览编辑窗口如图9-7所示，查询窗口如图9-8所示。 图9-7 浏览编辑窗口 图9-8 查询窗口 其代码如下所示： Private Sub cmdAdd_Click() Data1.Recordset.AddNew End Sub Private Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNext End Sub Private Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.Refresh End Sub Private Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified End Sub Private Sub cmdClose_Click() End End Sub Private Sub Comsel_Click() FrmSel.Show FrmEide.Hide End Sub Private Sub Data1_Error(DataErr As Integer, _ Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： _ Error$(DataErr) Response = 0 忽略错误 End Sub Private Sub Data1_Reposition() Screen.MousePointer = vbDefault On Error Resume Next 这将显示当前记录位置 为动态集和快照 Data1.Caption = 记录： _ (Data1.Recordset.AbsolutePosition + 1) 对于 Table 对象，当记录集创建后并使用下面的行时， 必须设置 Index 属性 Data1.Caption = 记录： (Data1.Recordset.RecordCount _ * (Data1.Recordset.PercentPosit