- 1、本文档共62页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
课程研究与设计学习课件.ppt
Visual Basic程序设计; 课程设计安排;服务器的访问;课程设计题目;要 求(选题);要 求(提交);文件命名方式;要 求(设计);平时成绩:50分,包括考勤情况、上机情况、纪律情况等。凡有上机不到、玩游戏、上网聊天等情况发生,每发现一次,扣当事人5~10分。表现好者可全得50分。
报告成绩:50分。
凡指导教师认定的雷同设计均为零分。;补充知识讲解;1 通用对话框
2 菜单设计
3 多重窗体和多文档界面 ;1 通用对话框(CommonDialog);1.文件对话框(打开、保存)需设置的属性; 属性
FileName:包含路径;
FileTitle:不包含路径。
Filter:例如,
Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.*
FilterIndex:决定在文件类型列表框中显示第几组类型的文件。
InitDir:初始化路径。; 代码书写样例:; 4.“字体”对话框 ; 5. “打印”对话框
属性
FromPage:起始页号;
ToPage:终止页号;
Copies:打印份数。
如果打印驱动程序不支持多份打印,该属性有可能始终返回 1。
6. “帮助”对话框
帮助文件需要用其他的工具制作,如Microsoft Windows Help Compiler。
属性
HelpCommand:在线Help帮助类型;
HelpFile:Help文件的路径及其名称;
HelpKey:在帮助窗口显示由该帮助关键字指定的帮助信息。
例8-5 “帮助”对话框的使用。 ;2 菜单的设计;一、菜单编辑器的使用
工具/菜单编辑器(Ctrl+E);
窗体上快显菜单/菜单编辑器。;3 多重窗体和多文档窗体;3. 设置启动窗体; 5. 窗体方法
(1)Show方法:显示一个窗体(当窗体没有Load,自动Load)
[窗体名称].Show [模式]
0 - Modal:关闭才能对其他窗体进行操作。
1 - Modeless,可以对其他窗体进行操作。
(2) Hide方法:隐藏窗体,没有Unload删除
[窗体名称.] Hide
6. 不同窗体间数据的存取
(1)存取控件的属性
另一窗体名.控件名.属性
(2)存取变量的值
另一窗体名.全局变量名
例8-8 输入学生五门课程的成绩,计算总分及平均分并显示。;二、 多文档界面(MDI)
1. 创建和设计MDI窗体及其子窗体
(1) 创建和设计MDI窗体
创建: “工程/添加MDI窗体”命令;(2) 创建和设计MDI子窗体
创建: MDI子窗体是一个MDIChild属性为True的普通窗体。
要创建多个子窗体,通过窗体类来实现:
Public Sub FileNewProc()
Dim NewDoc As New frmMDIChild
No = No + 1
NewDoc.Caption = no No
NewDoc.Show
End Sub
设计:可有菜单栏,但必须有文本框。
例:创建一个多文档窗体;2. MDI窗体与子窗体的交互
(1)活动子窗体和活动控件
MDI窗体的两个属性:ActiveForm 和ActiveContro。l
例:将子窗体的文本框中所选文本复制到剪贴板上。
ClipBoard.SetText frmMDI.ActiveForm.ActiveControl.SelText
(2)显示MDI窗体及其子窗体
显示任何窗体的方法为show,还有有关规则:
加载子窗体时,其父窗体会自动加载并显示;反之则无。
MDI窗体有AutoShowChildren属性,决定是否自动显示子窗体。
(3)维护子窗体的状态信息
(4)用QueryUnload卸载MDI窗体 ;文 件;1 驱动器、目录和文件列表框; 1. 驱动器列表框
Drive属性:
[对象.]Drive [= drive]
Change事件:
重新设置Drive属性引发Change事件
2. 目录列表框
Path属性 :
[对象.]Path [= pathname]
Change事件:
重新设置Path 属性引发Change事件;3.
文档评论(0)