VB程序设计第7章_菜单设计
- 格式:ppt
- 大小:2.71 MB
- 文档页数:51
教案讲稿第七章常用控件[旧课复习]:复习内容:1. 一维数组求和,求平均等2. 复习列表框组合框,为控件做准备复习目的:巩固一维数组,二维数组的应用复习时长:大约5分钟[新课导入]:导入方式:通过复习列表框引入本章节的常用控件,列举常用控件在日常软件中的使用方法。
导入目的:增强学生的学习积极性导入时长:大约5分钟[新课讲授]:重点:各种常用控件(单选按钮、复选框、滚动条、计时器)难点:计时器的应用(Interval属性,Timer事件)方法:运用多媒体辅助教学,采用案例教学和任务驱动等教学法。
7.1单选按钮单选按钮又称为选项按钮(OptionButton),单选按钮一般总是作为一个按钮组来完成工作的。
单选按钮组是一组相互排斥的选项按钮,在一般情况下,在单选按钮组中一次只能选择一个选项,如果一次要选择多个单选按钮,可以使用框架控件把单选按钮分组。
单选按钮的主要属性有:1.Caption属性:单选按钮的文本内容。
2.Value属性:单选按钮是否被选中的属性。
如果将该值为True或-1,单选按钮被选中,如果将该值为False或0,单选按钮未被选中。
3.Style属性:单选按钮的外观。
该值取0时,是标准的Windows风格;取1时,是图形风格。
单选按钮的事件:Click事件:单击单选按钮时触发该事件。
1.使用单选按钮控件【例7.1】设计一个简易血型选择器,用户界面如图7-1所示,由四个单选按钮和一个命令按钮以及一个文本框组成。
选中血型后单击“选择”按钮,结果显示在文本框中。
图7-1 简易血型选择器设计步骤如下:(1)建立应用程序用户界面。
(2)编写代码编写命令按钮Commandl的Click事件代码:Private Sub Command1_Click()If Option1.Value = True Then Text1.Text = "您是O型血"If Option2.Value = True Then Text1.Text = "您是A型血"If Option3.Value = True Then Text1.Text = "您是B型血"If Option4.Value = True Then Text1.Text = "您是AB型血"End Sub7.2 复选框复选框(CheckBox)可以从多个选择中选择一个或多个选项。
实习内容:例题7-1以下程序段用来在C盘根目录下建立一个名为test.txt的顺序文件。
例题7-2某班30名同学学习成绩如表7-2所示。
建立一个名为“student.txt”的顺序文件存放该班同学的学习成绩,每条记录包括学号、姓名、高数、英语、物理、计算机刘向数据。
例题7-3对例题7-2中生成的“student.txt”文件记录进行如下处理:(1)计算每个学生的平均成绩。
(2)将平均成绩大于或等于80分的记录写入“student1.txt”文件中。
例题7-4统计例题7-3中生成的“student1.txt”文件中的记录数。
例题7-5将例题7-2生成的顺序文件“student.txt”读出,按随机方式写入随机文件“student2.txt”中。
例题7-6从随机文件“student2.txt”中读出数据,计算平均成绩,并将大于或等于80分的学生成绩写入另一个随机文件“student3.txt”中。
例题7-7以二进制模式建立一个数据文件,其中的内容是随机产生的100个大写字母。
例题7-8以二进制方式读取文件text。
Txt,并将结果显示在文本框中。
例题7-9编写一个复制文件的程序。
例题7-10编写一个加密软件,要求将源文件按“字节逐位倒排序加密法”,加密。
习题7-3把随机产生的200个4位整数存入顺序文件file1.txt中。
事件代码为:Private Sub Command1_Click()Dim a(1 To 200) As Integer, i%, n%, m%For i = 1 To 200a(i) = Int(Rnd * 9000 + 1000)Next iOpen "H:\VB实习\周晓伟\实验七\file1.txt" For Output As #1For m = 1 To 200Write #1, a(m);If m Mod 20 = 0 ThenPrint #1,End IfNext mCloseEnd Sub运行结果为:习题7-4从第三题的file1.txt文件中读出数据存入数组a中,从中挑选出所有各位和百位是偶数的数据存入数组b中,并存储到随机文件file2.txt中。
373 下列可调整图片框(PictureBox)的大小以适合图片的属性是().A) stretchB) autosizeC) pictureD) oledropmode答案 B374 图像框(Image)控件中,可缩放图片的属性是().A) autosizeB) pictureC) stretchD) oleDrawMode答案 C375 下面()对象在运行时一定不可见.A) LabelB) TimerC) TextD) Option答案 B376 下面哪些控件不会影响到界面设计效果().A) 定时器B) 文本框C) 标签D) PictureBox控件答案 A377 下面哪些控件不会影响到界面设计效果().A) LabelB) TextC) CommonDialogD) Frame答案 C378 形状控件所显示的图形不可能是().A) 圆B) 椭圆C) 圆角正方形D) 等边三角形答案 D379 选中复选框控件时,value属性的值是().A) TrueB) falseC) 0D) 1答案 D382 要将一个组合框设置为简单组合框(SimpleCombo),则应将其Style属性设置为().A) 0B) 1C) 2D) 3答案 B383 要使一个图片框控件能自动地附着在窗体的一条边上,应设置它的()属性.A) PictureB) AlignmentC) BorderD) Align答案 D384 要在窗体上显示图片,需设置窗体的()属性.A) CaptionB) IconC) PictureD) ControlBox答案 C385 一个菜单项是不是一个分隔条,由()属性决定.A) Name(名称)B) CaptionC) EnabledD) Visible答案 B386 以下()对象不具有Clear方法.A) 列表框B) 组合框C) 标签D) 图片框(PictureBox)答案 D387 以下不具有Picture属性对象是().A) 窗体B) 图片框(PictureBox)C) 图像框(Image)D) 文本框答案 D388 以下不允许用户在程序运行时输入文字的控件是().A) 标签框B) 文本框C) 下拉式组合框D) 简单组合框答案 A389 以下控件中不属于容器的是().A) Form控件B) PictureBoxC) ImageD) Frame答案 C390 引用列表框的最后一项应使用().A) List1.List(List1.ListCount-1)B) List1.List(List1.ListCount)C) List1.List(ListCount)D) List1.List(ListCount-1)答案 A391 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A) HideB) CheckedC) VisibleD) Enabled答案 C392 在VB中,下列不能作为存放对象的容器是().A) 窗体B) 框架C) 图片框(PictureBox)D) 图像框(Image)答案 D393 在程序代码中修改滚动条的value 属性时将触发滚动条的()事件.A) changeB) scrollC) dragdropD) gotfocus答案 A394 在列表框中当前被选中的列表项的序号是由下列哪个属性表示().A) ListB) IndexC) ListIndexD) TabIndex答案 C395 组合框的类型由Style属性决定,简单组合框的Style属性值应为().A) 0B) 1C) 2D) 3答案 B396 组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A) StyleB) BoderStyleC) FillStyleD) DrawStyle答案 A397 组合框控件是将()组合成一个控件.A) 列表框控件和文本框控件B) 标签控件和列表框控件C) 标签控件和文本框控件D) 复选框控件和选项按钮控件答案 A398 组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时, Style属性值应为().A) 0B) 1C) 2D) 3答案 C399 要清除已经在图片框(Picture)P1中打印的字符串而不清除其中加载的的图像,应使用语句().A) A.P1.ClsB) P1.picture=LoadPicture("")C) P1.Print ""D) P1.piture ""答案 A400 要清除组合框Combol中的所有内容,可以使用()语句.A) Combo1.ClsB) Combo1.ClearC) Combo1.DeleteD) Combo1.Remove答案 B401 用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件.A) KeyPressB) KeyDownC) ClickD) KeyUp答案 C402 用鼠标拖动滚动条中滚动框并释放,将触发滚动条的()事件.A) ScrollB) ChangeC) DragOverD) A和B答案 D403 为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval 属性值设置为().A) 5B) 500C) 300D) 5000答案 D404 当在滚动条内拖动滚块时触发()事件.A) KeyUpB) KeyPressC) ChangeD) Scroll答案 D405 设置框架的()属性值为False,其标题会变灰,框架中所有的对象均被屏蔽.A) NameB) CaptionC) EnabledD) Visible答案 C406 下列选项中不正确的是().A) 每个菜单项都是一个对象,所以也有属性和事件.B) 菜单项的属性不可以在属性窗口中设计.C) 每个菜单项都只有一个Click事件.D) 菜单编辑器中,标题可不输入,而名称必须输入答案 B407 Visual Basic 6.0中任何控件都有的属性是().A) BackColorB) CaptionC) NameD) BorderStyle答案 C408 假定有一个菜单,名为MenuItem,为了运行时使该菜单项失效,应使用的语句为().A) MenuItem.Enabled = TrueB) MenuItem.Enabled = FalseC) MenuItem.Visible = TrueD) MenuItem.Visible = False答案 B409 在修改列表框内容时,AddItem方法的作用是().A) 清除列表框中的全部内容B) 删除列表中指定的内容C) 在列表框中添加一个项目D) 在列表框中插入一行文本答案 C410 如果在窗体上已经创建了一个文本框对象Text1,可以通过()事件获得输入键值的ASCII码.A) ChangeB) LostFocusC) KeyPressD) GotFocus答案 C411 下列控件中,没有Caption属性的是().A) 框架B) 列表框C) 复选框D) 单选按钮答案 B412 复选框的Value属性为1时,表示().A) 复选框未被选中B) 复选框被选中C) 复选框内有灰色的勾D) 复选框操作错误答案 B413 在下列说法中,正确的是().A) 通过适当的设置,可以在程序运行期间让定时器显示在窗体上B) 在列表框中不能进行多项选择C) 容器内不能有容器对象D) 框架也有Click和DblClick事件答案 D414 在用菜单编辑器设计菜单时,必须输入的项有().A) 快捷键B) 标题C) 索引D) 名称答案 D415 当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件,这三个事件发生的顺序是().A) KeyPress、KeyDown 、KeyUpB) KeyDown、KeyUp、KeyPressC) KeyDown、KeyPress、KeyUpD) 没有规律答案 C416 定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A) 分B) 秒C) 毫秒D) 微秒答案 C417 将通用对话框CommandDialog1的类型设置成另存为对话框,可调用该控件的()方法.A) ShowOpenB) ShowSaveC) ShowColorD) ShowFont答案 B418 要在图片框P1中打印字符串"HowAreYou",应使用语句().A) Picture1.Print="HowAreYou"B) P1.Picture=LoadPicture("HowAreYou")C) P1.Print "HowAreYou"D) Print "HowAreYou"答案 C419 设组合框Combo1中有3个项目,则以下能删除最后一项的语句是().A) Combo1.RemoveItem TextB) Combo1.RemoveItem 2C) Combo1.RemoveItem 3D) Combo1.RemoveItem Combo1.Listcount答案 B420 下列方法中可用于列表框动态添加数据的是().A) addB) additemC) addlistD) removeitem答案 B421 将CommonDialog通用对话框的类型设置为字体对话框,可设置该控件的()属性.A) FontB) FilterC) flagsD) Action答案 D422 清除列表框的所有选项应选择下列哪种方法().A) ClearB) ClsC) ClearItemD) RemoveItem答案 A423 RGB 函数通过红.绿.蓝三基色混合产生某种颜色,其语法为RGB (红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置()属性.A) Max和MinB) Smallchange和 LargeChangeC) Scroll和ChangeD) Value答案 A424 列表框控件中的列表内容是通过()属性设置的.A) NameB) CaptionC) ListD) Text答案 C425 ()对象不能作为控件的容器.A) FormB) PictureBoxC) ShapeD) Frame答案 C426 程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是().A) MouseDownB) MouseUpC) LoadD) Click答案 C427 下列不能用commondialog 控件调用的对话框是().A) open/saveB) helpC) fontD) search答案 D428 计时器的interval属性为0时,表示().A) 计时器失效B) 相隔0秒C) 相隔0 毫秒D) 计时器的enable属性为false答案 A429 如果在图片框上使用绘图方法绘制一个实心圆,则图片框的()属性决定了该圆的颜色.A) BackColorB) ForeColorC) FillColorD) DrawStyle答案 C430 单击滚动条的滚动箭头时,产生的事件是().A) ClickB) ScrollC) ChangeD) Move答案 C431 简单组合框的style值为().A) 0B) 1C) 2D) 3答案 B432 不能通过()来删除列表框中的选项.A) List属性B) Removeltem方法C) Clear方法D) Test属性答案 D433 激活主菜单的按键是().A) F1或Ctrl键B) Ctrl键或Atl键C) F10或Ctrl键D) F10或Atl键答案 B434 图像框(Image)的何项属性设置为true时,可使图形自动调整大小,填满整个图像框().A) WidthB) PictureC) NameD) Stretch答案 D435 任何控件都具有的属性是().A) TEXTB) CAPTIONC) NAMED) FORECOLOR答案 C436 为使文本框显示滚动条,必须首先设置的属性是().A) MulitilineB) AutosizeC) AlignmentD) Scrollbars答案 A437 设置列表框选中的文本用()属性.A) selectedB) captionC) textD) list答案 D438 将通用对话框类型,设置为字体对话框,可修改该控件的()属性.A) fontB) filenameC) filterD) action答案 D439 如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值(0~None),则执行语名List1.RemoveItemList1.ListIndex的结果是().A) 删除列表框的最后一项B) 删除列表框的第一项C) 出错D) 删除列表框中的最后添加的一项答案 C440 要判断"命令按钮"是否被鼠标单击,应在"命令按钮"的事件中判断.A) ChangB) KeyDownC) ClickD) KeyPress答案 C441 文本框(Text1)中有选定的文本,执行 Text1.SelText="Hello"的结果是___.A) "Hello"将替换掉原来选定的文本B) "Hello"将插入到原来选定的文本之前C) Text1.SelLength为5D) 文本框中只有"Hello"答案 A442 框架内的所有控件是___.A) 随框架一起移动、显示、消失和屏蔽B) 不随框架一起移动、显示、消失和屏蔽C) 仅随框架一起移动仅随框架一起显示和消失D)答案 A443 下列不能打开菜单编辑器的操作是___ ___.A) 按Ctrl+EB) 单击工具栏中的"菜单编辑器"按钮C) 执行"工具"菜单中的"菜单编辑器"命令D) 按Shift + Alt + M答案 D444 Clear方法适用于() 控件.A) 图片框B) 窗体C) 复选框D) 组合框答案 D445 Cls方法可清除窗体或图片框中的信息是 .A) Picture属性设置的背景图案B) 在设计时放置的控件C) 程序运行时产生的图形和文字D) 以上方法都对答案 C446 在窗体上画一个名称为Timer1的计时器控件,要求每隔0.1秒发生一次计时器事件,则以下正确的属性设置语句是A) Timer1. Enabled =0.1B) Timer1.Interval =0.1C) Timer1. Enabled=100D) Timer1.Interval=100答案 D447 在窗体上画一个名称为Label1的标签,然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100.程序运行后,如果移动滚动框,则在标签中显示滚动条的当前值.以下能实现上述操作的程序段是A) Private Sub HScroll_Change()Label1.Caption=HScroll1.ValueEnd SubB) Private Sub HScroll_Click()Label1.Caption =HScroll1.ValueEnd SubC) Private Sub HScroll_Change()Label1.Text=HScroll.CaptionEnd SubD) Private Sub HScroll_Click()Label1. Text =HScroll.CaptionEnd Sub答案 A448 以下叙述中错误的是A) 在KeyPress事件过程中能识别键盘的按下与释放B) 在KeyPress事件过程中可以通过KeyAscii值来识别回车键C) 在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母D) 在KeyPress事件过程中, 将键盘输入的"A"和"a"视作不同的字母答案 A449 若有一菜单项(名为MenuItem),为了在运行时使该菜单项失效(变灰),应使用的语句是A) MenuItem.Enabled = TrueB) MenuItem.Visible = FalseC) MenuItem.Checked = TrueD) MenuItem.Enabled = False答案 D450 标准工具箱中的控件().A) 数目是固定不变的B) 数目可以增加或减少C) 包含了VisualBasic所有控件D) 在窗体建立对象时不一定被使用答案 B451 单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件.A) ScrollB) KeyDownC) ChangeD) Dragover答案 C452 下列对象中没有焦点属性的是().A) 命令按钮控件B) 窗口控件C) 文本框控件D) 单选框控件答案 B453 为了用键盘打开菜单和执行菜单命令,第一步应按的键是().A) 功能键F10或AltB) Shift+功能键F4C) Ctrl或功能键F8D) Ctrl+Alt答案 A454 用标准工具栏中的工具按钮不能执行的操作是().A) 添加工程B) 打印源程序C) 运行程序D) 打开工程答案 B455 下列操作中不能向工程中添加窗体的是().A) 执行"工程"菜单中的"添加窗体"命令B) 单击工具栏上的"添加窗体"按钮C) 右击窗体,在弹出菜单中选择"添加窗体"命令D) 右击工程资源管理器,在弹出菜单中选择"添加"命令,然后在下一级菜单中选择"添加窗体"命令答案 C456 当一个工程含有多个窗体时,其中的启动窗体是().A) 启动 Visual Basic 时建立的窗体B) 第一个添加的窗体C) 最后一个添加的窗体D) 在"工程属性"对话框中指定的窗体答案 D457 语句listl.removeitem 1 将删除list.listindext等于()的项目..A) 0B) 2C) 3D) 1答案 D458 若要清除列表框的所有内容,可用什么方法实现A) RemoveItemB) ClsC) ClearD) 以上均不可以答案 C459 要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是A) Timer1.Visible=FalseB) Timer1.Enabled=FalseC) Timer1.Interval=1000D) Timer1.Index=0答案 B460 要获得用户在组合框输入的内容,应利用的组合框的属性是A) ListB) SelectedC) ListIndexD) Text答案 D461 将数据项"China"添加到列表框(List1)中成为第一项应使用的语句是()。
VB课后习题解答第一、二章:1、简述VB6.0的主要特点答:方便、直观的可视化设计工具;面向对象程序设计方法;事件驱动的编程机制;易学易用的应用程序集成开发环境;结构化程序设计语言;完备的联机帮助功能;强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后,误把Windows子目录删除。
当重新安装Windows后,是否需要再次安装VB6.0?答:要重新安装的。
因为安装VB6.0时,有些VB程序被系统自动安装在Windows目录下,所以一旦删除Windows子目录,就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版,如何知道所安装的是哪个版本?答:在VB6.0的启动界面上,能显示对应的版本。
4、叙述建立一个完整应用程序的过程答:首先建立用户界面的控件对象(简称控件);然后对控件属性进行设置;再对控件事件过程及编程;保存应用程序;程序调试和运行。
5、Visual Basic 6.0有多种类型窗口,若要在设计时看到代码窗口,应怎样操作?答:选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件?若要保存该工程的所有文件,应先保存什么文件?再保存什么文件?若不这样做,系统会出现什么信息?答:涉及两个文件要保存。
先保存窗体文件(.frm),再保存工程文件(.vbp)。
若先保存工程文件,系统也会先弹出“文件另存为”对话框,要求先保存窗体文件。
7、保存文件时,若不改变目录名,则系统默认的目录是什么?答:系统默认的目录是VB988、安装Visual Basic 6.0后,帮助系统是否也已安装?答:没有。
VB6.0的帮助系统在两张光盘上,即MSDN Library,其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统?答:最方便的方法是选定要帮助的内容,然后按F1功能键,这时系统打开MSDN Library查阅器,直接显示与选定内容有关的帮助信息。
第七章菜单的设计与多文档界面7.1 菜单简介大多数Windows应用程序都有一个菜单栏,它总是处在窗体标题栏的下面,并包含一个或多个菜单标题。
单击每个菜单标题都会弹出一个下拉菜单,在下拉菜单中包含有菜单项、分隔条和子菜单标题。
有的菜单项可以直接执行,有的菜单项执行时则会弹出一个对话框。
所有的Windows应用程序都遵循以下3个约定:凡是菜单名称后有一个省略号的,均表示在单击该选项后会弹出一个相应的对话框,在用户作出相应的回答后,该项功能就以用户所给予的信息去执行。
例如,单击【打开】选项,则弹出【打开】对话框,用户可从中选择要打开的文件。
凡是菜单名称后有一个小三角的,则表示它是一个子菜单标题,子菜单标题并不能直接执行,仅仅扮演一个“容器”的角色。
当鼠标指针移动到子菜单标题上时,会自动弹出子菜单。
例如,将指针移动到【发送】选项,就会弹出子菜单。
菜单名称后不包含L述两种符号者,表明该菜单项所代表的命令可直接执行。
例如,单击【关闭】选项,则将关闭当前打开的文档。
另外,有的菜单项名称后还显示相应的键盘访问键和快捷键。
访问键允许同时按下Alt键和一个指定字符来打开一个菜单。
一旦菜单打开,通过按下访问键即可选取菜单项。
在菜单项的标题中,访问键表现为一个带下划线的字母,如【打开】命令的访问键为0.当打开【文件】菜单后,按下0键即可执行【打开】命令。
快捷键出现在相应菜单项的右边,例如,【打开】命令的快捷键是Ctrl+O,无论【文件】菜单是否打开,只要按下Ctrl+O组合键,即可执行【打开】命令。
由于所有Windows应用程序都遵循上述约定,因此,在创建菜单时,也应该遵循这些约定。
例如,如果某菜单项的执行结果是弹出一个对话框,则应该在该菜单项后加上省略符(…).此外,要使应用程序简单好用,还应该将菜单项按其功能分组。
例如,与文件有关的命令【新建】、【打开】和【另存为】都列入了【文件】菜单。
同一菜单中不同类型的选项之间还使用分隔条分隔开来。
第七章 VB高级控件Action控件教学重点:孰练掌握VB常用高级控件的属性、方法、事件及应用。
掌握公用对话框、Windows公用控件的用法。
教学难点:高级控件的主要属性、方法、事件7.1 公用对话框(Commondialog)“工程”--“部件”对话框--“Microsoft Common Dialog Control 6.0“包括:●“打开”对话框●“另存为”对话框●“颜色”对话框●“字体”对话框●“打印”对话框●“帮助”对话框公用对话框的调用可以通过Commondialog的属性和方法实现.Action属性:在代码中设置, 调用不同系统对话框如: Commondialog1.action=1 调用打开对话框ShowHelp 显示“帮助”对话框如:Commondialog1.showopen 调用打开对话框1.“打开”对话框(“另存为”对话框相似)调用“打开” 对话框: 用 ShowOpen方法, action属性如:Commondialog1.showopen 或 CommonDialog1.action=1Filename属性:设置或返回对话框中选定驱动器、目录和文件名FileTitle 属性:设置或返回对话框中选定的文件名Filter属性:设置或返回对话框中显示文件类型的过滤器。
格式:CommonDialog1.filter=“文件类型描述|类型通配符”例:CommonDialog1.filter=“文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc”Private Sub Command1_Click()' CommonDialog1.ShowOpenCommonDialog1.Action = 1Image1.Picture = LoadPicture(CommonDialog1.FileName)End SubPrivate Sub Command2_Click()Image1.Picture = NothingEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub2、“颜色”对话框Showcolor方法:调用系统颜色对话框格式: Commondialog1.showcolor ( 或 Commondialog1.action=3)Color 属性:返回用户选定的颜色格式:Commondialog1.showcolor例如:通过颜色对话框,任意选择文本框背景色和字体颜色.Private Sub Command1_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click()CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorEnd Sub3、“字体”对话框Showfont方法:调用系统字体对话框格式: Commondialog1.showfont (或Commondialog1.action=4)(将 CommonDialog对象flags属性设为3,2 或 &H3,&H2)Fontname属性:返回用户选定的字体Fontsize属性:返回用户选定的字体大小FontBold、FontItalic:返回用户选定的字体样式Private Sub Command1_Click()CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicEnd Sub4、“打印”对话框showprinter方法:调用打印机对话框如:Commondialog1.showprinter (或Commondialog1.action=5) 5、“帮助”对话框ShowHelp方法:调用windows系统帮助文件如:Commondialog1.ShowHelp首先:设置Helpfile和Helpcommand属性HelpFile属性:指定要显示的帮助文件VBcmn96.hlp HelpCommand属性:&H9 确保显示正确的帮助文件如:打开VB公用帮助对话框,代码设置:Commondialog1.helpfile=“VBcmn96.hlp”Commondialog1.helpcommand=&H9Commondialog1.ShowHelp综合题:制作下面简单图形文字编辑窗体.设置:text1的multiline、scrollbars属性设置:公共对话框Commondialog1:flags属性为&H3,HelpFile属性:VBcmn96.hlp ,HelpCommand属性:&H9Private Sub Command1_Click()CommonDialog1.ShowOpenPicture1.Picture = LoadPicture(CommonDialog1.FileName) End SubPrivate Sub Command2_Click()CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorEnd SubPrivate Sub Command3_Click()CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeEnd SubPrivate Sub Command4_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Command6_Click()CommonDialog1.ShowHelpEnd Sub。
1 用户界面设计一、菜单设计二、对话框设计三、工具栏四、综合应用本章目录2 一、菜单设计下拉式菜单弹出式菜单快捷菜单主菜单快捷菜单子菜单MenuStrip ContextMenuStrip菜单项:事件:Click需要为菜单项编写事件过程Text 分隔符 输入:- Checked :True 菜单项成选项,选定了显示“√”热键:&字符,如新建(&N)快捷键:ShortcutKeys例1 设计一个记事本程序Text Name ShortcutKeys Text Name ShortcutKeys 文件(F) 使用缺省名编辑(E) 使用缺省名新建(N) FileNew Ctrl+N 剪切(T) EditCut Ctrl+X 打开(O)…FileOpen Ctrl+O 复制(C) EditCopy Ctrl+C另存为(A)…FileSaveAs Ctrl+S 粘贴(P) EditPaste Ctrl+V分隔线使用缺省名格式(O) 使用缺省名退出(X) FileExit 字体(F) FormatFont帮助(H) 使用缺省名颜色(C) FormatColor关于(A)…AboutDilog下拉式菜单的建立过程:①在窗体上放置一个MenuStrip控件②设计菜单③设置菜单项的属性④编写菜单项的事件过程例2 为例1设计一个弹出式菜单①在窗体上放置一个ContextMenuStrip控件②设计菜单③设置菜单项的属性④建立弹出式菜单与文件框之间的关联⑤编写菜单项的事件过程一般与下拉式菜单中的菜单项共享事件过程' 修改“新建”菜单项的事件过程' 假定弹出式菜单中“新建”菜单项名称为PopFileNew Sub FileNew_Click( … ) Handles FileNew.ClickTextBox1.Text = ""TextBox1.Focus()End Sub例2 为例1设计一个弹出式菜单①在窗体上放置一个ContextMenuStrip控件②设计菜单③设置菜单项的属性④建立弹出式菜单与文件框之间的关联⑤编写菜单项的事件过程一般与下拉式菜单中的菜单项共享事件过程' 修改“新建”菜单项的事件过程' 假定弹出式菜单中“新建”菜单项名称为PopFileNewSub FileNew_Click( … ) Handles FileNew.Click, PopFileNew.Click TextBox1.Text = ""TextBox1.Focus()End Sub。
菜单程序设计一、菜单菜单的基本作用:提供人机对话,以便让使用者选择应用系统的各种功能;管理应用系统,控制各种功能模块的运行。
菜单的基本类型:弹出式菜单(如右击后)、下拉式菜单。
几个常用术语:菜单条——菜单条出现在窗体标题的下面,包含每个菜单的标题。
菜单——菜单包含命令列表或子菜单名。
菜单项——菜单中列出的每一项。
子菜单——从某个菜单项分支出来的另外的一个菜单。
具有子菜单的菜单项右边带有一个三角符号标志。
分隔条——分隔条是在菜单项之间的一条水平直线,用于修饰菜单。
弹出式菜单——弹出式菜单是另一种形式的菜单,在按下鼠标右键时出现,它是一个上下文相关的菜单。
二、菜单编辑器使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性,利用这个编辑器,可以建立下拉式菜单,最多可达6层。
启动菜单编辑器的方法有4种(先选中一个窗体,使之为活动窗体):∙使用菜单“工具”/“菜单编辑器”;∙单击工具栏中的“菜单编辑器”按钮;∙键盘快捷键CTRL+E;∙在要建立菜单的窗体上单击右键,在弹出菜单中选择“菜单编辑器”。
启动后,弹出菜单设计窗口。
菜单编辑器窗口分为三个部分:数据区、编辑区和菜单项显示区。
1、数据区用来输入或修改菜单项、设置属性。
其中:"标题"项:在提供的文本输入框中可以输入菜单名或命令名,这些名字出现在菜单之中。
输入的内容同时也显示在设计窗口下方的显示窗口中(相当于控件的Caption属性)。
如果在该栏中输入一个减号(-),则可在菜单中加入一条分隔线。
"名称"项:在文本输入框中可以为菜单名及各菜单项输入控制名。
控制名是标识符(相当于控件的Name属性),仅用于访问代码中的菜单项,它不会在菜单中出现。
菜单名和每个菜单项都是一个控件,都要为其取一个控制名。
"索引"项:当几个菜单项使用相同的名称时,把它们组成控件数组,可指定一个数字值来确定每一个菜单项在控件数组中的位置。