第一篇:VB6.0程序设计教案_第51、52课时
第51、52课时
上课时间:2014年 5月 21日 备课时间:2014年 5月 18日
4.5 创建简单选课系统
【教学目标】
1、掌握列表框控件的应用;
2、掌握组合框控件的应用;
3、掌握复选框按钮控件的应用。【教学重点】
列表框控件和组合框控件的应用 【教学难点】
对Split函数的理解和应用 【教具】
多媒体、计算机 【教学过程】
一、复习
1、命令按钮控件的常用属性和常用事件?
二、导入
上一章讨论了Visual Basic中学习了单选按钮控件、框架控件以及复选框按钮控件的应用。本节课我们来通过制作小程序,学习列表框控件和组合框控件的应用。
三、自主学习
1、列表框控件
列表框(ListBox)控件用于显示项目列表,从其中可以选择一项或多项。如果项目总数超过了可显示的项目,就自动在列表框控件上添加滚动条。
列表框控件的常用属性如下:
1)List:返回或设置控件的列表框部分的项目。该属性值是一个字符串数组,数组的每个元素都是一个列表框项目,列表框控经·件在设计时可以通过属性窗口来设置。
2)ListCount:返回控件的列表部分项目的个数。
3)ListIndex:返回或设置控件中当前选择项目的索引,在设计时不可用。当选定列表的第一项时,ListIndex属性值为0,如果未选定项目,则ListIndex属性值是1,ListCount属性包含项目数,其值总是比最大的ListIndex值大1。
4)SelCount:返回在列表框控件中被选中项的数量。
5)Selected:返回或设置在列表框中的一个项的选择状态。该属性是一个布尔值数组,其项数与List属性相同。在设计时是不可用的。
6)Sorted:指定控件的元素是否自动按字母表顺序排序。
7)Style:指定列表框的样式。如果该属性值为0,则呈现为标准列表框;如果属性值为1,则呈现为复选框式列表框,每一个文本项的边上都有一个复选框,可以选择多项。
列表框控件的常用方法如下:
1)AddItem:用于将项目添加到列表框控件,语法格式如下: oList.AddItem item, index 其中oList表示列表框控件;参数Item为字符串表达式,用来指定添加到该列表框的项目;参数Index为整数,用来指定新项目在该列表框中的位置。对于列表框控件的首项,index为0。
如果所给出的Index值有效,则Item将防止在oList中相应的位置。如果省略index,则当Sorted属性设置为True时,item将添加到恰当的排序位置,当Sorted属性设置为False时,item将添加到列表框的结尾。
2)RemoveItem:从列表框控件中删除一项,语法格式如下: oList.RemoveItem index 其中oList表示列表框控件;参数index是一个整数,表示要删除的项在列表框中的位置。对于列表框中的首项,index为0。
2、组合框控件
组合框(ComboBox)控件将文本框控件和列表框控件的特性结合在一起,即可以在控件的文本框部分输入信息,也可以在控件的列表框部分选择一项。组合框控件的常用属性如下。
1)Style:用于设置组合框控件的样式。如果该属性值为0(默认值),则呈现为下拉式组合框,包括一个下拉式列表和一个文本框,可以从列表选择或在文本框中输入。如果该属性为1,则得到一个简单组合框,包括一个文本框和一个不能下拉的列表,可以从列表中选择或在文本框中输入。如果该属性值为2,则呈现为下拉式列表,这种样式仅允许从下拉式列表中选择。
2)Text:对于Style属性设置为0的下拉组合框或Style属性设置为1的简单组合框,返回或设置编辑域中的文本;对于Style属性设置为2的下拉列表框,返回在列表框中选择的项目,返回值总与表达式List(ListIndex)的返回值相同。
为了添加或删除组合框控件中的项目,需要使用AddItem或RemoveItem方法。利用List、ListCount和ListIndex属性可以实现对组合框中项目的访问。也可以在设计时使用List属性将项目添加到列表中。
3、Split函数
使用Split函数可以将一个字符串拆分为一个下标从0开始的一维数组,其中包含指定数量的子字符串。调用格式如下:
Split(Expression, Delimiter, Limit, Compare)其中参数Expression为必选项,是一个Single表达式,包含子字符串和分隔符;其他参数均为可选项。
Delimiter是用于标识子字符串的界限的任何单个字符。如果省略了Delimiter,则假定空白字符(“”)为分隔符。
Limit指定输入字符串应拆分到的子字符串的最大数量,默认值-1,指示在Delimiter字符串的每个匹配项处都拆分输入字符串。
Compare为一个数值,指示计算子字符串时使用的比较模式。若该参数为0,则执行二进制比较,即区分大小写字母;若该参数为1,则执行文本比较,即不区分大小写字母。
Split函数返回一个String数组。如果Expression为零长度字符串(“”),则Split返回包含零长度字符串的单个元素数组。如果Delimiter为零长度字符串,或它不在Expression中的任何位置出现,则Split将返回包含整个Expression字符串的单个元素数组。默认情况下,或Limit等于-1时,Split函数将在分隔符字符串的每个匹配项处拆分输入字符串,并以数组形式返回子字符串。当Limit参数大于0时,Split函数在分隔符的第一个Limit-1匹配项处拆分此字符串,并返回带有结果子字符串的数组。例如Split(“a:b:c”,”:”)返回的数组包含三个元素:“a”、“b”、“c”;而Split(“a:b:c”,2)返回的数组包含两个元素:“a”和“b:c”。
当Split函数在一行中遇到连个分隔符时,或在字符串的开头或结尾遇到分隔符时,会将它们解释为围绕空字符串(“”)。例如,Split(“XX”,“X”)返回的数组包含三个空字符串:一个在字符串开头和第一个“X”之间,第二个在两个“X”字符串之间,第三个在最后一个“X”和字符串结尾之间。
四、合作探究
编程设计:
创建一个简单的选课系统,当从组合框中选择不同专业时,通过列表框列出相关的课程,可以从中选择所需的课程,并允许添加或删除课程;当选择了一些课程并单击“确定”按钮后,通过另一个窗体列出选课结果。
设计步骤:
1、在Visual Basic集成开发环境中新建一个EXE工程,并把窗体文件和工程文件分别命名并保存。
2、利用属性窗口对窗体Form1的以下属性进行设置。将其Caption属性设置为“选课系统”。将其BorderStyle属性设置为1-Fixed Dialog。
3、在窗体FORM1依次添加以下控件。
1)标签lb1Major,将其Caption属性设置为“专业(&M):”
2)在工具箱中单击ComboBox图标,并在窗体上绘制一个组合框控件,然后将其命名为cboMajor。
3)标签lb1Course,将其Caption属性设置为“可选课程(&A):” 4)在工具箱中单击ListBox图标,并在窗体上绘制一个列表框控件,然后将其命名为1stCouse。
5)命令按钮cmdAdd,将其Caption属性设置为“>”。6)命令按钮cmdRemove,将其Caption属性设置为“<”。7)标签lb1SelectedCoourse,将其Caption属性设置为“已选课程(&S):” 8)列表框1stSelectedCourse。
9)命令按钮cmdOK,将其Caption属性设置为“确定”,Defaule属性设置为“True”。
10)命令按钮cmdCancel,将其Caption属性设置为“取消”,Cancel属性设置为True。
4、在窗体Form1的代码窗口中编写以下事件过程。
Private smajor As String, scourse1 As striing, scourse2 As String, scourse3 As String Private amajor()As String, acourse1()As String, acourse2()As String, acourse3()As String Sub listfill(ByVal oname As Control, aitem()As String)For i = 0 To UBound(aitem)oname.AddItem aitem(i)Next End Sub Private Sub cbomajor_click()lstcourse.Clear Select Case cbomajor.ListIndex Case 0 listfill lstcourse, acourse1 Case 1 listfill lstcourse, acourse2 Case 2 listfill lstcourse, acourse3 End Select End Sub Private Sub cmdadd_click()If lstcourse.ListCount > 0 And lstcourse.ListIndex <>-1 Then lstselectedcourse.AddItem lstcourse.List(lstcourse.ListIndex)lstcourse.renmoveitem lstcourse.ListIndex End If End Sub Private Sub cmdcancel_click()Unload Me End Sub Private Sub cmdok_click()Me.Hide form2.Show End Sub Private Sub cmdremove_click()If lstselectedcourse.ListCount > 0 And lstselectedcourse.ListIndex <>-1 Then lstcourse.addiem lstselectedcourse.List(lstselectedcourse.ListIndex)1 stselectedcourse.RemoveItem lstselectedcourse.ListIndex End If End Sub Private Sub Form_Load()smajor = “计算机软件,多媒体技术应用,计算机网络技术” scourse1 = “计算机操作与使用,计算机网络技术与应用,基于过程的程序设计,网页制作,数据库应用开发,桌面应用程序开发,软件开发实训” scourse2 = “计算机操作与使用,美术设计,多媒体技术应用,计算机图形图像处理,二维动画制作,三维动画制作,音频视频编辑处理,平面设计,影视制作,多媒体制作” scourse3 = “计算机操作与使用,计算机组装与维修,操作系统与网络服务器管理,计算机网络技术与应用,网络布线与小型局域网搭建,网页制作,中小型网站建设与管理” amajor = Split(smajor, “,”)listfill cbomajor, amajor cbomajor.Text = cbomajor.List(0)acourse1 = Split(scourse1, “,”)acourse2 = Split(scourse2, “,”)acourse3 = Split(scourse3, “,”)listfill lstcourse, acourse1 End Sub Private Sub lstcourse_dblclick()cmdadd_click End Sub Private Sub lstselectedcourse_dblclick()cmdremove_cllick End Sub
5、在当前工程中添加窗体Form2,并在该窗体上添加以下控件。1)标签lb1Resule,将其Caption属性清空。
2)文本框txtResult,将其MultiLine属性设置为True,ScrollBars属性设置为3.3)命令按钮cmdClose,将其Caption属性设置为“关闭”。
6、在窗体Form2的代码窗口中编写以下事件过程。Private Sub cmdclose_click()Unload Me End Sub Private Sub form_activate()Dim i As Integer, sresult As String lb1result = “你选择了” & Form1.cbomajor.Text & “专业。” & vbCrLf & “选择了以下课程:” For i = 0 To Form1.lstselectedcourse.ListCount-1 sresult = sresult & Form1.lstselectedcourse.List(i)& vbCrLf Next txtresult.Text = sresult Unload Form1 End Sub
7、按F5运行程序。
8、从“专业”下拉列表框中选择一个专业,此时“可选课程”列表框包含的项目将随之发生变化。在“可选课程”列表框中单击一门课程并单击“>”按钮或者双击要选择的课程,可使其进入“已选课程”列表框。若要从“已选课程”类表框中移除某门课程,可在该列表框中单击该课程并单击“<”按钮或者双击该课程。单击“确定”按钮,此时将显示另一个窗体并给出选课结果。
五、课堂小结
本节课主要通过设计小程序,学习了学习列表框控件和组合框控件的应用。
第二篇:VB6.0程序设计教案_第61、62课时
5.3 制作变换的图形
上课时间:2014年 6月 5日 备课时间:2014年 6月 2日
【教学目标】
1、掌握Line控件的常用属性;
2、掌握Shape控件的常用属性 【教学重点】
Line控件的常用属性和Shape控件的常用属性 【教学难点】
Line控件和Shape控件的应用 【教具】
多媒体、计算机 【教学过程】
一、复习
1、circle语句的用法?
二、导入
上一节讨论了Visual Basic中学习了circle语句的用法。本节课我们来通过制作小程序,学习Line控件的常用属性和Shape控件的常用属性。
三、自主学习
1、Line控件
Line控件是图形控件,它显示水平线、垂直线或者对角线。
在设计时,可以使用Line控件在窗体上绘制线。在运行时,除了使用Line方法外,还可以使用Line控件,或者使用后者代替前者。即使AutoRedraw属性设置为False,Line控件绘制的线也仍会保留在窗体上。可以在窗体、图像框和框架中显示Line控件。运行时不能使用Move方法移动Line控件,但是可以通过改变X1、X2、Y1和Y2属性来移动它或者调整它的大小。
Line控件的常用属性如下。
(1)BorderColor:返回或设置对象的边框颜色。(2)BorderStyle:返回或设置对象的边框样式。BorderStyle属性有以下设置值:0表示透明,1(默认值)表示实线,2表示虚线,3表示点线,4表示点画线,5表示双点画线,6表示内收实线。(3)BorderWidth:返回或设置控件边框的宽度。
(4)X1、X2、Y1、Y2:返回或设置Line控件的起始点(X1,Y1)和终止点(X2,Y2)的坐标。水平坐标是X1和X2;垂直坐标是Y1和Y2。设置BorderStyle属性的效果取决于BorderWidth属性的设置。如果BorderWidth不是1而BorderStyle不是0或6,则将BorderStyle设置成1。
2、Shape控件
Shape控件是图形控件,可以用于显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形。
除了BorderColor、BorderStyle和BorderWidth外,Shape形状控件还具有以下属性。
1)Shpae:用于设置所显示的形状,该属性有6个可选值:0表示矩形,1表示正方形,2表示椭圆,3表示圆,4表示圆角矩形,5表示圆角正方形。
2)FillColor:用来设置形状控件的填充颜色。
3)FillStyle:设置填充效果。FillStyle属性有以下设置值:0表示实心,1表示透明,2表示水平线,3表示垂直线,4表示左上对角线,5表示右下对角线,6表示交叉线,7表示对角交叉线。
可以在容器中绘制Shape控件,但是不能把该控件当做容器。设置BorderStyle属性产生的效果取决于BorderStyle属性的设置。如果BorderWidth不是1,并且BorderStyle不是0或者6,则将BorderStyle设置成1。
四、合作探究
编程设计:
在本任务中创建一个应用程序,运行时每单击一次按钮,会出现一个不同的图形,并用不同的颜色、效果填充。设计步骤:
1、在Visual Basic集成开发环境中新建一个EXE工程,并把窗体文件和工程文件分别命名并保存。
2、将窗体Form1的Caption属性分别设置为“变换的图形”。
3、在窗体Form1上添加Line控件Line1、Shape控件Shape1、命令按钮Command1和Command2,将两个命令按钮的Caption属性分别设置为“演示”和“结束”。
4、在窗体Form1的代码窗口中编写以下事件过程。Private sub command1_click()Static i As Integer, j As Integer Dim r As Integer, g As Integer, b As Integer Randomize r = Int(Rnd * 256)g = Int(Rnd * 256)b = Int(Rnd * 256)If j <= 7 Then shape1.FillStyle = i End If shape1.FillColor = RGB(r, g, b)shape1.BorderColor = RGB(r, g, b)line1.BorderColor = RGB(r, g, b)shape1.Shape = 0 i = i + 1 If i > 5 Then i = 1 End If shape1.Shape = i line1.BorderWidth = i End Sub Private Sub command2_click()Unload Me End Sub
5、按F5运行程序。
6、每单击一次“演示”按钮,变换一次图形,并用不同的颜色、效果填充。
五、课堂小结
本节课主要通过设计小程序,学习了Line控件的常用属性和Shape控件的常用属性。
第三篇:VB6.0程序设计教案_第35、36课时[模版]
第35、36课时
上课时间:2014年4月17日 备课时间:2014年 4月 14日
【课题】
3.4 制作简单绘图程序
【教学目标】
1、熟悉窗体的MouseDown事件、MouseUp事件和MouseMove事件的使用方法;
2、掌握窗体的LINE方法的应用 【教学重点】
MouseDown事件、MouseUp事件和MouseMove事件的使用方法 【教学难点】
窗体的LINE方法的应用 【教具】
多媒体、计算机 【教学过程】
一、复习
1、窗体的Keydown、Keyup和Keypress事件的用法?
二、导入
上一章讨论了Visual Basic中窗体的Keydown、Keyup和Keypress事件的用法。本节课我们来学习窗体的MouseDown事件、MouseUp事件和MouseMove事件的使用方法。
三、自主学习
1.窗体的MouseDown、MouseUp和MouseMove 事件
窗体的MouseDown 事件和 MouseUp 事件是当按下(MouseDown)或者释放(MouseUp)鼠标按钮时发生的事件。语法格式如下:
Private sub from_MouseDown(button as Integher , shift as integer , x as Single, y as single)Private sub from_mouseup(button as integer , shift as integer , x as single, Y as single)MouseMove 事件是当鼠标指针在屏幕上移动时发生的事件。当鼠标指针处在窗体和控件的边框内时,窗体和控件均能识别 MouseMove 事件。语法格式如下:
Private Sub From MouseMove(button As Integer , shift As Integer , x As Single , y As Single)在上述鼠标事件过程中,参数 button 返回一个整数,用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)哪个鼠标键引起的。Button 参数的值可以是 1、2和4,分别应于左按键、右按键及中间按键。
参数shift 返回一个整数,在button 参数指定的按键被按下或者被释放的情况下,该整数对应于Shift、Ctrl和Alt键的状态。Shift的值分别等于1、2和4,分别代表Shift、Ctrl和Alt键被按下,shift参数指示这些键的状态。这些键也可以组合按下,例如,Ctrl键和Alt键都被按下,则shift的值就是6。
参数x和y返回一个指定鼠标指针当前位置的数。
MouseDown 事件和MouseUp事件过程不同于Click事件和DbClick事件,鼠标事件被用来识别和响应各种鼠标状态,并把这些状态看做独立的事件。在按下鼠标按键并释放时,Click事件只能把此过程识别为一个单一的操作——单击操作,而MouseDown 和MouseUp事件能够区分出鼠标的左、右和中间按键。也可以使用Shift、Ctrl和Alt等键编写用于鼠标加键盘组合操作的代码。这是CLICK事件和DblClick事件做不到的。
MouseDown事件是3种鼠标事件中最常使用的事件。例如:在运行时可用它调整控件在窗体上的位置,也可用它实现某些图形效果,按下鼠标按键时就可触发此事件。在本任务中,就是使用MouseDown事件和Line方法来实现绘图。
关于MouseMove事件,当指针移过屏幕时要调用多少次MouseMove事件?或者换个说法,指针由屏幕顶端移动到底端时将经过多少个位置?并不是对鼠标经过的每个像素,Visual Basic都会生成MouseMove事件。操作环境每秒生成有限多个鼠标消息。
为了看到实际上有多少次识别MouseMove事件,可用下述代码使应用程序在每次识别MouseMove事件之处都绘制一个小圆圈。Private sub form_mousemove(button as integer,shift as integer,x as single, y as single)Line –(x,y)Circle(x,y),100 End sub 通过测试可以知道,指针移动越快,在任意两点之间所能识别的MouseMove事件越少。如果众多圆圈挤在一起,则表明鼠标在此位置移动缓慢。应用程序能够迅速识别大量的MouseMove事件。
可见,一个MouseMove事件过程不应去做那些需要大量计算的工作。
2、窗体的Line方法
窗体的Line方法用于在窗体上画直线和矩形,语法格式如下: 窗体名.Line(x1,y1)-(x2,y2)其中参数(x1,y1)是可选的,其数值类型为single,指定直线或矩形的起始坐标。如果省略,线起始于由CurrentX和CurrentY指示的位置。
参数(x2,y2)是必需的,其数值类型为Single,指定直线或矩形的终点坐标。
画连接的线时,前一条线的终点就是后一条线的起点。线的宽度取决于DrawWidth属性值。在背景上画线和矩形的方法取决于DrawMode属性值和DrawStyle属性值。执行Line方法时,CurrentX属性和CurrentY 属性被参数设置为终点。这个方法不能用于With„EndWith语句块。
四、合作探究
编程设计:创建一个键盘测试程序。程序运行后,当在键盘上按下任一个键时,在窗体上显示出该键的代码和相应的字符并显示SHIFT、CTRL和ALT键的状态,当按“ESC”键时,退出程序。
设计步骤:
1、在Visual Basic集成开发环境中新建一个EXE工程,并把窗体文件和工程文件分别命名并保存。
2、把窗体Form1调整到所需的大小,并将其Caption属性值设置为“简单绘图程序”。
3、在窗体Form1的代码窗口中编写以下代码。'声明窗体级变量,用于保存鼠标指针位置
Private mouseBx, mouseEx, mouseBy, mouseEy As Integer '用于判断受否开始画线 Private NYcrw As Boolean Private Sub Form_Load()'程序运行清除窗体上的内容 Form1.Cls '将画线状态设为“否” NYcrw = False End Sub '按下鼠标按钮时执行以下事件过程
Private Sub form_mousedown(button As Integer, shift As Integer, x As Single, y As Single)'按下鼠标左键开始连续画线 If button = 1 Then mouseBx = x mouseBy = y NYcrw = True End If '按下鼠标右键画直线 If button = 2 Then forml.Line-(x, y)'直线的起点由currentx 和currenty决定 End If End Sub '在窗体上移动鼠标时执行以下事件过程
Private Sub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)'当画线状态为true时,开始连续画线 If NYcrw = True Then Form1.Line(mouseBx, mouseBy)-(x, y)mouseBx = x mouseBy = y End If End Sub '释放鼠标按钮时执行以下事件过程
Private Sub form_mouseup(botton As Integer, shift As Integer, x As Single, y As Single)NYcrw = flase End Sub
4、保存所有文件。
5、按F5运行程序。
6、通过拖动鼠标左键连续画线,释放鼠标左键时停止画线。单击鼠标右键,画一条从上次画图位置出发的线段。
五、课堂小结
本节课主要通过设计小程序,熟悉了窗体的MouseDown事件、MouseUp事件和MouseMove事件,又学习了窗体的LINE方法。
第四篇:VB6.0程序设计教案_第31、32课时
第31、32课时
上课时间:2014年4月10日 备课时间:2014年 4月 7日
【课题】
3.2 保持窗体上的标签文本居中
【教学目标】
1、了解窗体的ScaleHeight属性和ScaleWidth属性的用法
2、了解窗体的Resize事件和Unload事件的用法 【德育目标】
培养学生勇于探索未知世界,积极主动学习的思想,将来为祖国的科技发展做出贡献。【教学重点】
上述两种属性和事件的应用 【教学难点】
对事件的理解 【教具】
多媒体、计算机 【教学过程】
一、复习
1、窗体的Load事件和Click事件的格式?
二、导入
上一章讨论了Visual Basic中的窗体的常用属性以及两个事件的用法。本节课我们来学习窗体的属性和事件的应用。
三、自主学习
1、窗体的ScaleHeight属性和ScaleWidth属性
窗体的ScaleHeight属性和ScaleWidth属性分别用来返回窗体内部的宽度和高度。这连个属性在设计时是不可用的,并且在运行时是只读的。
窗体的ScaleHeight属性和ScaleWidth属性给出了窗体的内部尺寸,不包括边框厚度及菜单或标题等高度。而窗体的尺寸则由Width属性和Height属性决定。
窗体时控件的容器,控件在窗体上的坐标是用其Top属性和Left属性定义的。Width属性和Height属性决定了控件的宽度和高度。
2、窗体的Resize和Unload事件
1)Resize:当窗体第1次显示或窗体的外观尺寸被改变时发生,语法格式如下:
Private Sub Form_Resize()2)Unload:当窗体从内存中卸载时发生。当船体被加载时,它的所有控件的内容均被重新初始化。当使用控件菜单中的关闭命令、关闭按钮或Unload语句关闭该窗体时,此事件被触发。语法格式如下:
Private Sub Form_Unload(cancel As Integer)其中参数Cancel为整数,用来确定窗体是否卸载。如果Cancel为0,则窗体被卸载。将Cancel设置为任意一个非零值可防止窗体被删除。
通常将参数Cancel设置为任意一个非零值可防止窗体被删除,但不能阻止其他事件,诸如从Windows环境中退出等。可以用QuryUnload事件阻止从Windows操作系统中退出。在窗体被卸载时,可以用Unload事件过程来确认窗体是否被卸载或用来指定想要发生的操作。
四、合作探究
编程设计:利用响应窗体Resize事件来改变标签Label的顶点坐标和宽度的值,从而实现当改变窗体大小时,标签文本始终出现在窗体中央。当退出程序时,通过响应窗体Unload事件,提示确认关闭程序。
设计步骤:
1、在Visual Basic集成开发环境中新建一个EXE工程,并把窗体文件和工程文件分别命名并保存。
2、把窗体Form1调整到所需的大小,并将其Caption属性值设置为“保持窗体上的标签文本居中”。
3、在工具箱单击Label图标,在窗体Form1上拖动鼠标以添加标签控件Label1,然后在属性窗口中将标签Label1的Caption属性值设置为“欢迎使用Visual Basic 6.0”,并设置Font属性,把AutoSize属性设置为True。
4、在窗体Form1的代码窗口中编写以下代码。Private Sub Form_Resize()label1.Left = Int(Form1.ScaleWidth / 2)Int(label1.Height / 2)End Sub
Private Sub Form_Unload(Cancel As Integer)Dim a As Integer a = MsgBox(“是否要关闭程序?”, vbQuestion + vbYesNo, “信息提示”)If a = vbNo Then Cancel = 1 End If End Sub
5、保存所有文件。
6、按F5运行程序。
7、当改变窗体大小时,文字信息一直保持在窗口中央。关闭窗口时,弹出对话框,单击“是”按钮,则退出程;单击“否”按钮,则返回程序。
五、课堂小结
本节课主要通过设计小程序,熟悉了窗体的scaleheight属性和scalewidth属性,以及窗体的resize事件和unload事件。
第五篇:VB6.0程序设计教案_第41、42课时
第41、42课时
上课时间:2014年4月25日 备课时间:2014年 4月 22日
3.7 创建多文档界面应用程序
【教学目标】
1、掌握创建MDI窗体的方法;
2、掌握创建快速显示窗体的方法。【教学重点】
MDI窗体和子窗体的创建 【教学难点】
创建快速显示窗体 【教具】
多媒体、计算机 【教学过程】
一、复习
1、CommandDialog控件的常用方法和属性?
二、导入
上一章讨论了Visual Basic中CommandDialog控件的常用方法和属性。本节课我们来学习创建MDI窗体和子窗体的方法。
三、自主学习
1、多文档界面(MDI)应用程序 MDI应用程序具有以下特性。
1)所有子窗体均显示在MDI窗体的工作空间内。像其他窗体一样,用户能移动子窗体和改变子窗体的大小,不过,它们被限制于这一工作空间内。
2)当最小化一个子窗体时,它的图标将显示在MDI窗体上而不是在任务栏中。当最小化MDI窗体时,此MDI窗体及其所有子窗体将由一个图标来代表。当还原MDI窗体时,MDI窗体及其所有子窗体将按最小化之前的状态显示出来。
3)当最大化一个子窗体时,它的标题会与MDI窗体的标题组合在一起并显示于MDI窗体的标题栏上。MDI窗体拥有一些普通窗口所没有的属性,包括:
1)AutoShowChildren:通过设置该属性,子窗体可以在窗体加载时自动显示或自动隐藏。
2)ActiveForm:该属性表示MDI窗体中的活动子窗体。创建MDI应用程序的步骤如下:
1)从“工程”菜单中选择“添加MDI窗体”命令。
2)创建应用程序的子窗体。要创建一个MDI子窗体,可先创建一个新窗体(或者打开一个存在的窗体),然后把它的MDIChild属性设为True。
3)设计时使用MDI子窗体。在设计时,子窗体不限制在MDI窗体区域之内。可以添加控件、设置属性、编写代码及设置子窗体功能,就像在其他Vsiual Basic窗体中做的那样。
注意:
一个应用程序只能有一个MDI窗体。如果工程已经有了一个MDI窗体,则该“工程”菜单上的“添加MDI窗体”命令不可使用。
2、快速显示窗体
快速显示窗体一般作为程序的封面使用,这种窗口一般没有命令按钮,没有标题栏。当出现快速显示窗体时,按任意键或用鼠标单击窗口,它就会被卸载并调用应用程序主窗体。
制作快速显示窗体时,在工程中新建一个窗体,将窗体的BorderStyle属性设置为3,ControlBox属性设置为False,Caption属性设置为空字符串,并在该窗体中添加一些标签和图片。此外,还必须通过设置工程属性,把快速显示窗体设置为应用程序的启动对象。
四、合作探究
编程设计:
在本任务中创建一个应用程序,当启动该应用程序时首先出现一个快速显示窗体;当该窗体消失后出现一个多文档界面窗体,其中包含两个子窗体。
设计步骤:
1、在Visual Basic集成开发环境中新建一个EXE工程,并把窗体文件和工程文件分别命名并保存。
2、把窗体Form1调整到所需的大小,并将其Caption属性值设置为“MDI子窗体之一”,MDIChild属性值设置为True,使该窗体称为一个MDI子窗体。
3、通过以下操作添加MDI窗体。
1)从“工程”菜单中选择“添加MDI窗体”命令。
2)弹出“添加MDI窗体”对话框,在“新建”选项卡中选择“MDI窗体”,单击“打开”按钮。
3)将新添加的MDI窗体文件命名,并保存。将该MDI窗体的Caption属性值设置为“MDI窗体”。
4、添加另一个MDI子窗体。
5、从“工程”菜单中选择“添加窗体”命令,弹出“添加窗体”对话框,从“新建”选项卡中选择“展开屏幕”选项,然后单击“打开”按钮,新添加的窗体名称为frmSplash,将窗体文件命名为frmSplash.frm,并保存,此窗体中包含一些控件。
6、在属性窗口中,对窗体frmSplash上得控件进行设置。
7、设置应用程序的启动对象。
8、打开窗体的frmSplash的代码窗口,对已有的程序进行修改,代码属下: Private sub form_keypress(keyascii as integer)Unload me Mdiform1.show End sub Private sub form_load()Lblversion.caption= “版本” & app.major & “.” & app.minor & “.”& app.revision Lvlproductname.caption = app.title End sub Private sub frame1_click()Unload me Mdiform1.show End sub
8、在窗体MDIForm1的代码窗口中编写以下事件过程。Private sub mdiform_activate()Form1.show Form2.show End sub
9、保存所有文件。
10、按F5运行程序。
11、当出现快速显示窗体时,按任意键或用鼠标单击该窗口,该窗口被隐藏。出现一个多文档界面窗体,气宗包含连个子窗体。关闭MDI窗体时,子窗体随之关闭。
五、课堂小结
本节课主要通过设计小程序,创建MDI窗体的方法和创建快速显示窗体的方法。