|
|
#2
xiatingyun2008-07-03 20:49
我自己按照要求做的,但完全不对,根本不能运行
这是画图程序,应该怎么改呢? Sub EditColor_Click() CommonDialog1.Action = 3 Picture2.ForeColor = CommonDialog.Color End Sub Private Sub Exit_Click() End End Sub Sub picture2_Load() drawstate = False End Sub Sub picture2_mousedown(button As Integer, shift As Integer, X As Single, Y As Single) If button = 1 Then drawstate = True PreX = X PreY = Y End If If button = 2 Then Circle (X, Y), 280 End If End Sub Sub picture2_mousemove(button As Integer, shift As Integer, X As Single, Y As Single) If drawstate = True Then Line (PreX, PreY)-(X, Y) PreX = X PreY = Y End If End Sub Sub picture2_mouseup(button As Integer, shift As Integer, X As Single, Y As Single) If button = 1 Then drawstate = False End If End Sub Sub New_Click() Picture2 = "" End Sub Sub Open_Click() CommonDialog1.Action = 1 End Sub Sub Print_Click() CommonDialog1.Action = 5 For i = 1 To CommonDialog1.Copies Printer.Print Picture2 Next i Printer.EndDoc End Sub Sub SaveAs_Click() CommonDialog1.FileName = "*.drw" CommonDialog1.DefaultExt = "drw" CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Picture2 Close #1 End Sub Private Sub Toolbar1_ButtonClick(ByVal button As MSComCtlLib.button) On Error Resume Next Select Case button.Key Case "新建" mnuFileNew_Click Case "打开" mnuFileOpen_Click Case "保存" mnuFileSave_Click Case "直线" mnuFileLine_Click Case "矩形" mnuFileRec_Click Case "椭圆" mnuFileCircle_Click End Select End Sub Private Sub mnuFileNew_Click() Picture2 = "" End Sub Private Sub mnuFileOpen_Click() On Error Resume Next Dim FileNo As Long CommonDialog1.CancelError = True CommonDialog1.Filter = "文本文件|*.txt|所有文件|*.*" CommonDialog1.InitDir = "C:\My Documents" CommonDialog1.Flags = &H200000 CommonDialog1.ShowOpen If Err.Number = 32755 Then Exit Sub FileName = CommonDialog1.FileName FileNo = FreeFile Open FileName For Input As #FileNo TextEdit.Text = StrConv(InputB(LOF(FileNo), #FileNo), vbUnicode) Close #FileNo MnuItemNum = MnuItemNum + 1 End Sub Private Sub mnuFileSave_Click() MsgBox "Save" End Sub Private Sub mnuFileLine_Click() flag = 1 End Sub Private Sub mnuFileRec_Click() flag = 2 End Sub Private Sub mnuFileCircle_Click() flag = 3 End Sub [[it] 本帖最后由 xiatingyun 于 2008-7-3 20:57 编辑 [/it]] |
1.1 设计的目的
通过对该题目的设计的操作与实践,使学生了解使用VB程序设计方法,实现面向对象程序设计的相关理论知识和设计技巧,在一定程度上提高面向对象程序设计的综合设计能力,具体掌握的基本能力有以下几方面:
了解一个资源管理器系统开发的全过程。
了解资源管理器的使用,从而分析出简化的资源管理器的使用。
熟悉一些常用控件的使用,例如文件列表、标签、文本框、按钮等。
熟悉一些常用控件的方法、事件的使用。
了解一些其它高级控件的使用。例如:文件列表,对话框的使用。
模块的使用和调用。
1.2 设计的任务
该设计的任务分为程序设计任务要求和文档任务要求两部分,在设计过程中学生完成程序设计部分是提高学生的程序实现能力,文档设计提高学生的分析和表述能力。
程序设计的任务要求:
能够浏览硬盘里的文件。
能够对文件进行复选。
能够对文件进行剪切、复制、删除等功能。
能够新建文件夹。
能够建立一个工具栏。
文档设计要求:
对系统的需求分析。
设计模块功能说明。
窗体设计的界面。
各模块的程序代码。
设计任务的总结。
1.3 设计的要求
熟悉 VB6.0 的集成环境及基本操作。
熟练掌握 IF 语句及 IF 语句的嵌套应用,掌握 Select Case 语句的使用。
熟练掌握 For…Next 语句及 Do…Loop 循环语句的使用,掌握循环结构的嵌套使用。
掌握数组的使用及用数组解决与数组有关的常用算法。
掌握函数过程及子过程的定义、调用及参数传递方法。
理解过程及变量的作用范围,理解变量的生存期。
掌握菜单的设计及文件操作。
工具栏的实现。
1.4 设计思路的提示
逻辑设计提示:
要设计一个公共模块,目的是实现公共变量和公共函数的调用。
设计一个工具栏和菜单上的工具能够一一对应。
控件设计提示:
需要一个treeview 控件帮助实现树形结构。
需要一个listview 控件帮助显示选中文件夹的结果(可以用其它的控件)。
Treeview和listview控件在添加部件中的Miscrosoft Windows Common Control 6.0(sp6) 和M iscrosoft Windows Common Control-3 6.0
在Treeview和listview的AfterLabelEdit事件里编写判断新建文件夹是否存在的。
窗体设计提示:
用toolbar控件 实现工具栏。
用Combox控件 实现地址栏。
菜单要求多级菜单。
参考窗体如下:
图1.1 资源管理器的运行
第三章 画图程序
3.1 设计的目的
本题目的课程设计为VB6.0的画图功能,程序有一定的侧重点。该设计能过提高学生对VB6.0画图功能的了解,和一些画图函数的应用,了解到VB6.0强大的画图功能,帮助学生能够灵活应用VB6.0 这个特殊功能,具体掌握的基本能力有以下几方面:
了解一个画图程序系统开发的全过程。
了解画图程序的工作状态。
熟悉一些常用控件,例如:picturebox,标签,按纽。
熟悉一些高级控件的使用,例如: 对话框。
熟悉菜单的使用,能够在菜单当中编写需要的程序。
熟悉函数调用和模块调用功能。
能够熟练得应用一些简单的画图函数。
3.2 设计的任务
该设计实现的是一个和WINDOWS自带的画图程序功能相近的程序,设计任务分为程序设计任务要求和文档任务要求两部分,在设计过程中学生完成程序设计部分是提高学生的程序实现能力,文档设计提高学生的分析和表述能力。
程序设计的任务要求:
能够画一些简单的矢量图,例如(圆形、直线、巨型)。
能够用调色板对颜色进行编辑。
能够打开一些图形、图像文件。
能够移动产生的矢量图。
能够对产生的图片进行存储。
能够实现另存为功能。
能够实现新建图片文件的功能。
能够清除画板所画的矢量图。
文档设计的任务要求:
对系统的需求分析。
设计模块功能说明。
窗体设计的界面。
各模块的程序代码。
设计任务的总结。
3.3 设计的要求
熟悉 VB6.0 的集成环境及基本操作。
熟练掌握 IF 语句及 IF 语句的嵌套应用,掌握 Select Case 语句的使用。
熟练掌握 For…Next 语句及 Do…Loop 循环语句的使用,掌握循环结构的嵌套使用。
熟练掌握画直线函数、画圆函数和画矩形函数。
鼠标移动事件要熟练地应用。
掌握函数过程及子过程的定义、调用及参数传递方法。
理解过程及变量的作用范围,理解变量的生存期。
掌握菜单的设计及文件操作。
画图工具栏的实现。
3.4 设计思路的提示
逻辑设计提示:
可以用单窗体实现该设计,需要设计一个画板能够作画。
要设计一个画图工具栏和常用工具栏。
窗体设计提示:
用Toolbar 控件实现常用工具栏和绘图工具栏。
菜单要求多级菜单。
主参考界面如下图3.1
图3.1 画图界面
打开文件的窗体设计图3.2
图3.2 保存文件
控件设计提示:
用CommonDialog 实现文件的存储。
用picturebox实现画板的功能。
程序设计提示:
使用三个类模块实现画圆、画线和画矩形。
使用菜单编程来调用一些控件和一些类模块。
文件建立提示:
如图3.3
图3.3 工程文件的界面