《《高级界面设计》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《高级界面设计》PPT课件.ppt（29页珍藏版）》请在三一办公上搜索。
1、2023/6/2,成都中医药大学,1,第9章 高级界面设计,9.1 添加高级控件 9.2 图像列表控件 9.3 工具栏控件 9.4 状态栏控件,9.5 通用对话框 9.6 图形控件 9.7 MDI窗体,2023/6/2,成都中医药大学,2,【目的要求】1.掌握非标准控件的添加方法；2.掌握Imagelist控件的设置方法；3.掌握工具栏、状态栏的手工设置方法；4.掌握MDI窗体的应用；5.了解VB的绘图功能。【重点】掌握MDI窗体的应用；,2023/6/2,成都中医药大学,3,右击工具箱面板，从弹出的菜单中选择【部件】菜单项，或单击【工程】菜单中的【部件】菜单项，此是时出现如图9-3的所示的【
2、部件】对话框，用鼠标单击Microsoft Windows Common Controls 6.0左边的复选框，单击【确定】按钮，部件被添加到【工具箱】面板上，如图9-4所示，共有9个控件添加到【工具箱】中。用户可将新增的控件按钮拖至【高级控件】选项卡中。,2023/6/2,成都中医药大学,4,9.2 图像列表控件(ImageList),9.2.1 Imagelist常用属性:,图像列表框控件（ImageList）用于保存许多图像，以供其他控件使用，如状态栏（StatusBar）和工具栏（ToolBar）控件。其中的各个图像可以作为ListImage对象来接受访问，或者所有的图像可作为一个Li
3、stImages集合来接受访问。,2023/6/2,成都中医药大学,5,9.2.2 ListImage对象的属性（一般了解）ListImage对象产生一个将成为ListImages集合部分的图像。其属性如表所示。,2023/6/2,成都中医药大学,6,9.2.3 ListImages集合的属性和方法,Imagelist控件的ListImages属性是一个集合对象，它具有下面的属性：,设置Imagelist控件的属性,【例9.1】建立一个应用程序，向窗体添加图像列表控件。该控件只在设计状态下可见，运行时不可见。,2023/6/2,成都中医药大学,7,9.3 工具栏控件,工具栏控件（Toolbar
4、）用来在窗体上产生具有很多按钮对象的工具栏，按钮上可以显示文字、图形或两者兼有，可用该控件生成如Word那样的工具栏。,2023/6/2,成都中医药大学,8,2023/6/2,成都中医药大学,9,9.3.2 设置工具栏控件属性,向窗体添加工具栏控件，按下列步骤操作：l 设置属性值为1，即工具栏放在窗体的顶部。l 右击工具栏控件，从弹出的菜单中选择【属性】菜单项，再单击【图像列表】列表框右边的下拉箭头，从下拉的列表中选择ImageList1。这样ImageList1控件就和工具栏控件发生了联系。l 选中【按钮】选项卡，单击【插入按钮】后，【索引】文本框中出现数字1，其他输入框也变为可用。接着在【
5、关键字】输入框输入“Key1”，【工具提示文本】输入框设为“浏览时间日期”，【图像】输入框设为1，即ImageList1控件的第一个图形作为按钮1的图形。重复上述步骤，添加四个按钮到工具栏上，并设置相应属性。l 设置完属性的用户界面。,2023/6/2,成都中医药大学,10,9.3.3 工具栏中各按钮和代码相连,添加按钮之后，还要编写相应的代码按钮才能起作用。双击工具栏控件，激活代码窗口，在ToolBar1_ButtonClick事件过程中添加如下代码：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Sel
6、ect Case Button.Index Case 1 Case 2 End SelectEnd Sub,2023/6/2,成都中医药大学,11,9.4 状态栏控件,状态栏一般位于窗体的底部，用于显示系统的一些状态，如大小写情况、日期时间等，在状态栏中可以包含文字和图像。9.4.1 状态栏控件属性和事件,2023/6/2,成都中医药大学,12,状态栏常用事件,状态栏常用事件主要有Click、DblClick、PanelClick、PanelDblClick。当单击状态栏上某一窗格时，执行PanelClick事件；当双击状态栏上某一窗格时，执行PanelDblClick事件。,2023/6/2
7、,成都中医药大学,13,9.5 通用对话框控件,1.标准控件2.通用对话框控件-ActiveX控件,9.5.2 通用对话框的使用,9.5.1 加载通用对话框控件到控件工具箱中,注意：Action属性只能在程序中设置,2023/6/2,成都中医药大学,14,9.6 图形控件,9.5.1 图形的两种生成方法,图形和图像,1.直接使用直线或形状图形控件1)直线控件2)形状控件,2023/6/2,成都中医药大学,15,1.直接放置在窗口中2.放置在图片框中,9.5.2 图形、图像的放置,2.使用绘制图形的方法,2023/6/2,成都中医药大学,16,9.6.3 图片框（PictureBox）控件,【例
8、9.4】建立一个图片浏览框。（1）启动VB，新建一个工程。（2）在窗体上添加三个命令按钮控件，一个水平滚动条控件，一个垂直滚动条控件和二个图片框控件。注意：图片框控件是一个容器类近期件,2023/6/2,成都中医药大学,17,程序代码：Private Sub Form_Load()Picture1.AutoSize=False Picture2.Width=Picture1.Width Picture2.Height=Picture1.HeightEnd SubPrivate Sub Command1_Click()Picture2.Picture=LoadPicture(App.Path+0
9、02.jpg)HScroll1.LargeChange=HScroll1.Max/10 HScroll1.SmallChange=HScroll1.Max/100 VScroll1.LargeChange=VScroll1.Max/10 VScroll1.SmallChange=VScroll1.Max/100End Sub,App.Path:当前目录,2023/6/2,成都中医药大学,18,Private Sub Command2_Click()Picture2.Picture=LoadPicture()Picture2.Width=Picture1.Width Picture2.Heigh
10、t=Picture1.HeightEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub HScroll1_Change()Picture2.Left=-HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Picture2.Top=-VScroll1.ValueEnd Sub,2023/6/2,成都中医药大学,19,9.6.4 图像(Image)控件,【例9.5】建立一个嵌入式按钮。（1）启动VB，新建一个工程。（2）在窗体上从左至右依次添加Image1、Image2和Image3三个图像
11、框控件，一个标签控件。如图所示。,2023/6/2,成都中医药大学,20,程序代码,Private Sub Form_Load()Image1.Picture=LoadPicture(App.Path+ITL_UP.bmp)Image1.Tag=up设置对象Image1的标识符为up Image2.Picture=LoadPicture(App.Path+ITL_DWN.bmp)Image2.Visible=False Image3.Picture=LoadPicture(App.Path+ITL_UP.bmp)Image3.Visible=FalseEnd Sub,2023/6/2,成都中医
12、药大学,21,Private Sub Image1_Click()If Image1.Tag=up Then Image1.Picture=Image2.Picture Label1.FontItalic=True Image1.Tag=down Else Image1.Picture=Image3.Picture Label1.FontItalic=False Image1.Tag=up End IfEnd Sub,2023/6/2,成都中医药大学,22,9.6.5 形状(Shape)控件,Shape属性,其含义如下：0 Rectangle矩形1 Square正方形2 Oval椭圆形,Fil
13、lStyle属性,含义如下：0-Solid实心1-Transprent透明2-Horizontal Line水平线3-Vertical Line垂直线,3 Circle圆形4-Rounded Rectangle圆角矩形5-Rounded Square圆角正方形,4-Upward Diagonal向上对角线5-DownWard Diag向下对角线6-Cross交叉线7-Diagonal Cross对角交叉线,2023/6/2,成都中医药大学,23,2023/6/2,成都中医药大学,24,9.6.6 线条(Line)控件,BorderStyle属性：用来指定直线的类型。0 Transparent透
14、明的，即不显示出线来1-Solid实线2-Dash虚线3-Dot点线4-Dash-Dot点划线 5-Dash-Dot-Dot双点划线6-Inside Solid内实线注意：只有当BorderWidth为1时才可以用以上7种类型的线，如果BorderWidth不为1，则上述7种类型中只有0和6有效。BorderWidth属性：设置线宽BorderColor属性：设置颜色,2023/6/2,成都中医药大学,25,【例9.7】在窗体上使用直线控件画出不同颜色、不同类型的7条线，编写一个事件过程改变它们的颜色及类型,Private Sub cmdLine_Click()For i=0 To 6 Lin
15、e1(i).BorderColor=QBColor(i)Line1(i).BorderStyle=i Next iEnd Sub,2023/6/2,成都中医药大学,26,9.7 MDI窗体,一、MDI多文档界面主要特性：1、所有子窗体均显示在MDI窗体的工作区中。用户可改变、移动窗体的大小，但被限制在MDI窗体中。2、当最小化子窗体时。它的图标将显示于MDI窗体上而不是在任务栏中。当最小化MDI窗体时。所有的子窗体也被最小化。只有MDI窗体的图标出现在任务栏中。3、当最大化一个子窗体时。它的标题与MDI窗体的标题一起显示在MDI窗体的标题栏上。4、MDI窗体和子窗体都可以有各自的菜单栏，子窗体
16、加载时覆盖MDI窗体的菜单。,2023/6/2,成都中医药大学,27,【例9.8】设计如下图所示的MDI界面。,步骤：1、在【工程】菜单下，选择【添加MDI窗体】命令，添加了一个MDI窗体，并创建如图所示的菜单。注意：一个工程文件中只能含有一个MDI 父窗体。,2、将某个正常窗体的MDIChild属性被设置为“真”（True），则该窗体将做为它所在工程文件中MDI窗体的子窗体。,2023/6/2,成都中医药大学,28,二、MDI窗体中的常用属性及事件,(1)MDIChild属性当普通窗体的MDIChildTrue时，则该窗体成为MDI窗体的子窗体。(2)Arrange方法当打开多个子窗体时，用
17、MDIForm的Arrange方法能够使子窗体（或其图标）按一定的规律排列。语法格式如下：.Arrange“参数”是一个整数，表示所使用的排列方式：0：层叠1：水平平铺2：垂直平铺3：重排最小化的子窗体图标,2023/6/2,成都中医药大学,29,(3)QueryUnload事件 QueryUnload事件是在关闭窗体或结束应用程序运行的时候发生。当关闭MDI窗体时，首先在MDI窗体上发生QueryUnload事件，然后在所有的子窗体上发生这个事件。如果所有窗体上都没有取消QueryUnload事件的操作，则先卸载（Unload）所有子窗体，再卸载MDI窗体。由于QueryUnload事件在窗体关闭之前被调用，因此在窗体卸载前可以在QueryUnload事件过程中编写代码，进行某些保存文件等操作。,
