《高级界面设计》PPT课件.ppt

2019/12/1,成都中医药大学,1,第9章高级界面设计,9.1添加高级控件9.2图像列表控件9.3工具栏控件9.4状态栏控件,9.5通用对话框9.6图形控件9.7MDI窗体,2019/12/1,成都中医药大学,2,【目的要求】1.掌握非标准控件的添加方法；2.掌握Imagelist控件的设置方法；3.掌握工具栏、状态栏的手工设置方法；4.掌握MDI窗体的应用；5.了解VB的绘图功能。【重点】掌握MDI窗体的应用；,2019/12/1,成都中医药大学,3,9.1添加高级控件,右击工具箱面板，从弹出的菜单中选择【部件】菜单项，或单击【工程】菜单中的【部件】菜单项，此是时出现如图9-3的所示的【部件】对话框，用鼠标单击MicrosoftWindowsCommonControls6.0左边的复选框，单击【确定】按钮，部件被添加到【工具箱】面板上，如图9-4所示，共有9个控件添加到【工具箱】中。用户可将新增的控件按钮拖至【高级控件】选项卡中。,2019/12/1,成都中医药大学,4,9.2图像列表控件(ImageList),9.2.1Imagelist常用属性:,图像列表框控件（ImageList）用于保存许多图像，以供其他控件使用，如状态栏（StatusBar）和工具栏（ToolBar）控件。其中的各个图像可以作为ListImage对象来接受访问，或者所有的图像可作为一个ListImages集合来接受访问。,2019/12/1,成都中医药大学,5,9.2.2ListImage对象的属性（一般了解）ListImage对象产生一个将成为ListImages集合部分的图像。其属性如表所示。,2019/12/1,成都中医药大学,6,9.2.3ListImages集合的属性和方法,Imagelist控件的ListImages属性是一个集合对象，它具有下面的属性：,9.2.4设置Imagelist控件的属性,【例9.1】建立一个应用程序，向窗体添加图像列表控件。该控件只在设计状态下可见，运行时不可见。,2019/12/1,成都中医药大学,7,9.3工具栏控件,工具栏控件（Toolbar）用来在窗体上产生具有很多按钮对象的工具栏，按钮上可以显示文字、图形或两者兼有，可用该控件生成如Word那样的工具栏。,9.3.1工具栏控件属性和事件,2019/12/1,成都中医药大学,8,2019/12/1,成都中医药大学,9,9.3.2设置工具栏控件属性,向窗体添加工具栏控件，按下列步骤操作：l设置属性值为1，即工具栏放在窗体的顶部。l右击工具栏控件，从弹出的菜单中选择【属性】菜单项，再单击【图像列表】列表框右边的下拉箭头，从下拉的列表中选择ImageList1。这样ImageList1控件就和工具栏控件发生了联系。l选中【按钮】选项卡，单击【插入按钮】后，【索引】文本框中出现数字1，其他输入框也变为可用。接着在【关键字】输入框输入“Key1”，【工具提示文本】输入框设为“浏览时间日期”，【图像】输入框设为1，即ImageList1控件的第一个图形作为按钮1的图形。重复上述步骤，添加四个按钮到工具栏上，并设置相应属性。l设置完属性的用户界面。,2019/12/1,成都中医药大学,10,9.3.3工具栏中各按钮和代码相连,添加按钮之后，还要编写相应的代码按钮才能起作用。双击工具栏控件，激活代码窗口，在ToolBar1_ButtonClick事件过程中添加如下代码：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Case2EndSelectEndSub,2019/12/1,成都中医药大学,11,9.4状态栏控件,状态栏一般位于窗体的底部，用于显示系统的一些状态，如大小写情况、日期时间等，在状态栏中可以包含文字和图像。9.4.1状态栏控件属性和事件,2019/12/1,成都中医药大学,12,状态栏常用事件,状态栏常用事件主要有Click、DblClick、PanelClick、PanelDblClick。当单击状态栏上某一窗格时，执行PanelClick事件；当双击状态栏上某一窗格时，执行PanelDblClick事件。,2019/12/1,成都中医药大学,13,9.5通用对话框控件,1.标准控件2.通用对话框控件-ActiveX控件,9.5.2通用对话框的使用,9.5.1加载通用对话框控件到控件工具箱中,注意：Action属性只能在程序中设置,2019/12/1,成都中医药大学,14,9.6图形控件,9.5.1图形的两种生成方法,图形和图像,1.直接使用直线或形状图形控件1)直线控件2)形状控件,2019/12/1,成都中医药大学,15,1.直接放置在窗口中2.放置在图片框中,9.5.2图形、图像的放置,2.使用绘制图形的方法,2019/12/1,成都中医药大学,16,9.6.3图片框（PictureBox）控件,【例9.4】建立一个图片浏览框。（1）启动VB，新建一个工程。（2）在窗体上添加三个命令按钮控件，一个水平滚动条控件，一个垂直滚动条控件和二个图片框控件。注意：图片框控件是一个容器类近期件,2019/12/1,成都中医药大学,17,程序代码：PrivateSubForm_Load()Picture1.AutoSize=FalsePicture2.Width=Picture1.WidthPicture2.Height=Picture1.HeightEndSubPrivateSubCommand1_Click()Picture2.Picture=LoadPicture(App.Path+002.jpg)HScroll1.LargeChange=HScroll1.Max/10HScroll1.SmallChange=HScroll1.Max/100VScroll1.LargeChange=VScroll1.Max/10VScroll1.SmallChange=VScroll1.Max/100EndSub,App.Path:当前目录,2019/12/1,成都中医药大学,18,PrivateSubCommand2_Click()Picture2.Picture=LoadPicture()Picture2.Width=Picture1.WidthPicture2.Height=Picture1.HeightEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubHScroll1_Change()Picture2.Left=-HScroll1.ValueEndSubPrivateSubVScroll1_Change()Picture2.Top=-VScroll1.ValueEndSub,2019/12/1,成都中医药大学,19,9.6.4图像(Image)控件,【例9.5】建立一个嵌入式按钮。（1）启动VB，新建一个工程。（2）在窗体上从左至右依次添加Image1、Image2和Image3三个图像框控件，一个标签控件。如图所示。,2019/12/1,成都中医药大学,20,程序代码,PrivateSubForm_Load()Image1.Picture=LoadPicture(App.Path+ITL_UP.bmp)Image1.Tag=up设置对象Image1的标识符为upImage2.Picture=LoadPicture(App.Path+ITL_DWN.bmp)Image2.Visible=FalseImage3.Picture=LoadPicture(App.Path+ITL_UP.bmp)Image3.Visible=FalseEndSub,2019/12/1,成都中医药大学,21,PrivateSubImage1_Click()IfImage1.Tag=upThenImage1.Picture=Image2.PictureLabel1.FontItalic=TrueImage1.Tag=downElseImage1.Picture=Image3.PictureLabel1.FontItalic=FalseImage1.Tag=upEndIfEndSub,2019/12/1,成都中医药大学,22,9.6.5形状(Shape)控件,Shape属性,其含义如下：0Rectangle矩形1Square正方形2Oval椭圆形,FillStyle属性,含义如下：0-Solid实心1-Transprent透明2-HorizontalLine水平线3-VerticalLine垂直线,3Circle圆形4-RoundedRectangle圆角矩形5-RoundedSquare圆角正方形,4-UpwardDiagonal向上对角线5-DownWardDiag向下对角线6-Cross交叉线7-DiagonalCross对角交叉线,2019/12/1,成都中医药大学,23,2019/12/1,成都中医药大学,24,9.6.6线条(Line)控件,BorderStyle属性：用来指定直线的类型。0Transparent透明的，即不显示出线来1-Solid实线2-Dash虚线3-Dot点线4-Dash-Dot点划线5-Dash-Dot-Dot双点划线6-InsideSolid内实线注意：只有当BorderWidth为1时才可以用以上7种类型的线，如果BorderWidth不为1，则上述7种类型中只有0和6有效。BorderWidth属性：设置线宽BorderColor属性：设置颜色,2019/12/1,成都中医药大学,25,【例9.7】在窗体上使用直线控件画出不同颜色、不同类型的7条线，编写一个事件过程改变它们的颜色及类型,PrivateSubcmdLine_Click()Fori=0To6Line1(i).BorderColor=QBColor(i)Line1(i).BorderStyle=iNextiEndSub,2019/12/1,成都中医药大学,26,9.7MDI窗体,一、MDI多文档界面主要特性：1、所有子窗体均显示在MDI窗体的工作区中。用户可改变、移动窗体的大小，但被限制在MDI窗体中。2、当最小化子窗体时。它的图标将显示于MDI窗体上而不是在任务栏中。当最小化MDI窗体时。所有的子窗体也被最小化。只有MDI窗体的图标出现在任务栏中。3、当最大化一个子窗体时。它的标题与MDI窗体的标题一起显示在MDI窗体的标题栏上。4、MDI窗体和子窗体都可以有各自的菜单栏，子窗体加载时覆盖MDI窗体的菜单。,2019/12/1,成都中医药大学,27,【例9.8】设计如下图所示的MDI界面。,步骤：1、在【工程】菜单下，选择【添加MDI窗体】命令，添加了一个MDI窗体，并创建如图所示的菜单。注意：一个工程文件中只能含有一个MDI父窗体。,2、将某个正常窗体的MDIChild属性被设置为“真”（True），则该窗体将做为它所在工程文件中MDI窗体的子窗体。,2019/12/1,成都中医药大学,28,二、MDI窗体中的常用属性及事件,(1)MDIChild属性当普通窗体的MDIChildTrue时，则该窗体成为MDI窗体的子窗体。(2)Arrange方法当打开多个子窗体时，用MDIForm的Arrange方法能够使子窗体（或其图标）按一定的规律排列。语法格式如下：.Arrange“参数”是一个整数，表示所使用的排列方式：0：层叠1：水平平铺2：垂直平铺3：重排最小化的子窗