Visual Basic 程序设计1 (16).ppt

《Visual Basic 程序设计1 (16).ppt》由会员分享，可在线阅读，更多相关《Visual Basic 程序设计1 (16).ppt（60页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、Visual Basic 程序设计程序设计第十七讲第十七讲 2课时课时教学目标及基本要求教学目标及基本要求了解多文档界面了解多文档界面MDI的特性及应用的特性及应用掌握工具栏和状态栏的创建及应用掌握工具栏和状态栏的创建及应用使用画点的使用画点的Pset方法、画直线和矩形的方法、画直线和矩形的Line方法、画圆和椭圆的方法、画圆和椭圆的Circle方法绘制图形方法绘制图形教学重点教学重点 多文档界面多文档界面MDI的创建及应用的创建及应用工具栏的创建及应用工具栏的创建及应用状态栏的创建及应用状态栏的创建及应用图形设计的基础知识图形设计的基础知识 教学难点教学难点 工具栏、状态栏及图形的设计；工具

2、栏、状态栏及图形的设计；教学内容教学内容 多文档界面的特性多文档界面的特性创建和设计多文档界面创建和设计多文档界面使用使用MDI窗体与子窗体窗体与子窗体MDI应用程序中的菜单应用程序中的菜单多文档界面应用程序中的子窗体排列多文档界面应用程序中的子窗体排列工具栏设计工具栏设计状态栏设计状态栏设计图形设计中的坐标系统图形设计中的坐标系统图形设计中颜色的设置图形设计中颜色的设置图形处理图形处理多文档界面设计多文档界面设计多文档界面的特性多文档界面的特性 设计阶段多文档界面的特性设计阶段多文档界面的特性 运行期间运行期间MDIMDI窗体的特性窗体的特性 多文档界面设计多文档界面设计创建和设计多文档界面

3、创建和设计多文档界面 创建和设计创建和设计MDIMDI窗体窗体(1)(1)添加添加MDIMDI窗体：执行窗体：执行“工程工程”菜单中的菜单中的“添加添加MDIMDI窗体窗体”命令，会弹出命令，会弹出“添加添加MDIMDI窗体窗体”对话框，选择对话框，选择“新建新建MDIMDI窗体窗体”或或“现存现存”的的MDIMDI窗体，其名称为默认值窗体，其名称为默认值MidiForm1MidiForm1。(2)(2)设计设计MDIMDI窗体：在窗体：在MDIMDI窗体上，可以创建菜单栏、工具窗体上，可以创建菜单栏、工具栏和状态。栏和状态。多文档界面设计多文档界面设计创建和设计多文档界面创建和设计多文档界面

4、 创建和设计创建和设计MDIMDI子窗体子窗体 创建创建MDIMDI子窗体：子窗体：MDIMDI子窗体是一个子窗体是一个MDIChildMDIChild属性为属性为TrueTrue的的普通窗体。因此，要创建一个普通窗体。因此，要创建一个MDIMDI子窗体，应先创建一个子窗体，应先创建一个新的普通窗体，然后将它的新的普通窗体，然后将它的MDIChildMDIChild属性置为属性置为TrueTrue。如果。如果要创建多个子窗体，只须重复前面操作。在工程管理器窗要创建多个子窗体，只须重复前面操作。在工程管理器窗口中可以看到口中可以看到MDIMDI子窗体的图标与普通窗体的图标的不同。子窗体的图标与普

5、通窗体的图标的不同。设计设计MDIMDI子窗体：子窗体：MDIMDI子窗体运行时包含在子窗体运行时包含在MDIMDI窗体中，但窗体中，但界面设计与界面设计与MDIMDI窗体无关。通常，窗体无关。通常，MDIMDI子窗体主要用于显示子窗体主要用于显示应用程序的文档，因此，在该窗体上应有文本框或者有供应用程序的文档，因此，在该窗体上应有文本框或者有供用户输入和显示的文档（如用户输入和显示的文档（如RichTextBoxRichTextBox），也可有子窗），也可有子窗体菜单。体菜单。多文档界面设计多文档界面设计使用使用MDIMDI窗体与子窗体窗体与子窗体设置活动子窗体和活动控件设置活动子窗体和活动

6、控件 在在NewClientNewClient子过程中的语句子过程中的语句 MDIForm1.ActiveForm.Text1.Text=name+MDIForm1.ActiveForm.Text1.Text=name+vbCrLfvbCrLf 即表示为即表示为MDIForm1MDIForm1父窗体中最后一个获得焦点的子窗体的父窗体中最后一个获得焦点的子窗体的文本框设置文本框设置TextText属性值。属性值。同样，当在一个窗体上显示的控件不止一个时，可以通过同样，当在一个窗体上显示的控件不止一个时，可以通过ActiveControlActiveControl属性得到或指定哪一个控件为得到焦点

7、的控属性得到或指定哪一个控件为得到焦点的控件。当访问件。当访问ActiveFormActiveForm属性时，至少应有一个属性时，至少应有一个MDIMDI子窗口被子窗口被加载或可见，否则会返回一个错误。加载或可见，否则会返回一个错误。多文档界面设计多文档界面设计使用使用MDIMDI窗体与子窗体窗体与子窗体保存子窗体中文档的内容保存子窗体中文档的内容 在决定退出在决定退出MDIMDI应用程序时，必须保存文档内容。因应用程序时，必须保存文档内容。因而必须时刻记录自上次保存以来窗体中的数据是否而必须时刻记录自上次保存以来窗体中的数据是否有改变。此功能可通过在子窗体中声明一个公共变有改变。此功能可通过

8、在子窗体中声明一个公共变量来实现，例如：量来实现，例如：Public Public FLChangeFLChange AS Boolean AS Boolean这样窗体中的这样窗体中的RichTextBox1RichTextBox1控件的控件的TextText属性每一次属性每一次改变时，改变时，ChangeChange事件就会将事件就会将FLChangeFLChange设置为设置为TureTure，表示自上次保存以来表示自上次保存以来RichTextBox1RichTextBox1的内容已经改变，的内容已经改变，即即 Private Sub RichTextBox1_Change()Priva

9、te Sub RichTextBox1_Change()FLChangeFLChange=True=True End Sub End Sub多文档界面设计多文档界面设计相反，用户每次保存子窗体的内容时，就必须将相反，用户每次保存子窗体的内容时，就必须将FLChange 设置设置为为False，以指示，以指示RichTextBox1内容不再须要保存。内容不再须要保存。Sub Msave_Click()FileSaveProc 调用保存调用保存RichTextBox1内容到文件内容到文件 FLChange=False 设置状态变量设置状态变量 End Sub Public Sub FileSave

10、Proc()MDIForm1.ActiveForm.RichTextBox1.SaveFile D:TSGLTT.txt,rtfText 将控件中的文档保存在将控件中的文档保存在D盘的盘的TSGL子目录的子目录的TT.txt文件中文件中 End Sub多文档界面设计多文档界面设计同样，当关闭当前活动子窗体时，应该判断同样，当关闭当前活动子窗体时，应该判断FLChangeFLChange的状的状态，来决定是否存盘态，来决定是否存盘 Private Sub Private Sub MClose_ClickMClose_Click()()if if FLChangeFLChange Then The

11、n FileSaveProcFileSaveProc End Sub End Sub多文档界面设计多文档界面设计使用使用MDIMDI窗体与子窗体窗体与子窗体用用QueryUnloadQueryUnload卸载卸载MDIMDI窗体窗体为为了避免随着父窗体的关闭而使所有的子窗体结束，了避免随着父窗体的关闭而使所有的子窗体结束，造成子窗体内容的丢失，造成子窗体内容的丢失，VBVB提供了提供了QueryUnloadQueryUnload事件。事件。当当MDIMDI窗体被卸载时，窗体被卸载时，QueryUnloadQueryUnload事件首先为事件首先为MDIMDI窗窗体调用，然后再为每一个打开的子窗

12、体调用。由于体调用，然后再为每一个打开的子窗体调用。由于QueryUnloadQueryUnload事件在窗体卸载之前被调用，因此可以事件在窗体卸载之前被调用，因此可以在窗体卸载前给用户一个保存子窗体内容的机会。在窗体卸载前给用户一个保存子窗体内容的机会。多文档界面设计多文档界面设计下面是下面是QueryUnloadQueryUnload事件的实例：事件的实例：Private Sub Private Sub Form_QueryUnloadForm_QueryUnload(Cancel As Integer,(Cancel As Integer,UnloadModeUnloadMode As

13、Integer)As Integer)Dim Dim MsgMsg 声明变量声明变量 If If UnloadModeUnloadMode 0 Then 0 Then 如果正在退出应用程序如果正在退出应用程序 MsgMsg=你真想退出应用程序吗你真想退出应用程序吗?FileSaveProcFileSaveProc 调用保存数据的过程调用保存数据的过程 FileSaveProcElseFileSaveProcElse 如果正在关闭窗体如果正在关闭窗体 MsgMsg=你真想关闭窗体吗你真想关闭窗体吗?End If End If 如果用户单击如果用户单击NoNo按钮，则停止按钮，则停止QueryUn

14、loadQueryUnload。If If MsgBox(MsgMsgBox(Msg,VbQuestionVbQuestion+VbYesNoVbYesNo,Me.CaptionMe.Caption)=VbNoVbNo Then Cancel=True Then Cancel=TrueEnd SubEnd Sub多文档界面设计多文档界面设计MDIMDI应用程序中的菜单应用程序中的菜单 在在MDIMDI应应用用程程序序中中，菜菜单单可可以以建建立立在在父父窗窗体体上上，也也可可以以建建立立在在子子窗窗体体上上，也也可可以以分分别别建建立立。每每个个子子窗窗体体的的菜菜单单在在MDIMDI父父窗窗

15、体体上上显显示示，而而不不是是在在子子窗窗体体显显示示。当当一一个个子子窗窗体体为为活活动动窗窗（即即有有焦焦点点）时时，如如果果该该子子窗窗体体的的有有菜菜单单，则则该该菜菜单单将将取取代代MDIMDI窗窗体体菜菜单单条条上上的的菜菜单单。如如果果没没有有可可见见的的子子窗窗体体，或或者者有有焦焦点点的的子子窗窗体体没没有有菜菜单单，则则显显示示MDIMDI父窗体的菜单。父窗体的菜单。多文档界面设计多文档界面设计MDIMDI应用程序中的菜单应用程序中的菜单 通过把某个菜单的通过把某个菜单的WindowListWindowList属性设置为属性设置为TrueTrue，可以用可以用MDIMDI窗

16、体或子窗体上的任何菜单显示已打窗体或子窗体上的任何菜单显示已打开的子窗体的列表。设置开的子窗体的列表。设置WindowListWindowList属性的步骤属性的步骤如下所述。如下所述。选择要显示菜单的窗体（父窗体或子窗体），执行选择要显示菜单的窗体（父窗体或子窗体），执行“工具工具”菜单中的菜单中的“菜单编辑器菜单编辑器”命令，打开命令，打开“菜单编菜单编辑器辑器”窗口。窗口。在菜单项显示区中，选择要将窗体列表显示在其中的在菜单项显示区中，选择要将窗体列表显示在其中的菜单，如菜单，如“用户用户”菜单。菜单。选择选择“显示窗口列表显示窗口列表”（WindowListWindowList）复选框

17、。）复选框。多文档界面设计多文档界面设计多文档界面应用程序中的子窗体排列多文档界面应用程序中的子窗体排列 如果需要在如果需要在“窗口窗口”菜单中出现菜单中出现“层叠层叠”、“平铺平铺”和和“排列图标排列图标”等命令，用于重新排列等命令，用于重新排列子窗体，可通过调用子窗体，可通过调用MDIMDI窗体的窗体的ArrangeArrange方法来方法来实现。实现。ArrangeArrange方法语法为方法语法为 MDIMDI窗体对象窗体对象.Arrange.Arrange排列方式排列方式多文档界面设计多文档界面设计多文档界面应用程序中的子窗体排列多文档界面应用程序中的子窗体排列 排列方式可以使用排列

18、方式可以使用VBVB常数或常数值，其排列方式参常数或常数值，其排列方式参数设置值见表数设置值见表13-113-1。表13-1Arrange方法的方式设置值常常 数数值值描描 述述常常 数数值值描描 述述VbCascade0 层叠所有非最层叠所有非最小化小化MDI子窗体子窗体VbTileVertical2垂直平铺所有垂直平铺所有非最小化非最小化MDI子窗体子窗体VbTileHorizontal1水平平铺所有非水平平铺所有非最小化最小化MDI子窗子窗体体VbArrangeIcons3重排最小化重排最小化 MDI 子窗体的子窗体的图标图标多文档界面设计多文档界面设计多文档界面应用程序中的子窗体排列多

19、文档界面应用程序中的子窗体排列 ArrangeArrange方法用以重排方法用以重排MDIFormMDIForm对象中的窗口或对象中的窗口或图标，例如：某工程的图标，例如：某工程的“窗口窗口”菜单下即为排菜单下即为排列窗口的命令，其中列窗口的命令，其中“垂直排列垂直排列”单击事件为单击事件为 Private Sub Private Sub Varrange_ClickVarrange_Click()()MDIForm1.Arrange 2 MDIForm1.Arrange 2 End Sub End Sub 其中，其中，“2”2”为排列方式参数。为排列方式参数。工具栏设计工具栏设计制作工具栏的

20、两种方法制作工具栏的两种方法手工制作：利用图形框和命令按钮，这种方法手工制作：利用图形框和命令按钮，这种方法比较烦琐。比较烦琐。通过通过ToolBarToolBar、ImageListImageList控件制作。控件制作。工具栏设计工具栏设计创建工具栏的步骤创建工具栏的步骤 添加添加MSCOMCTL.OCXMSCOMCTL.OCX文件，用鼠标右键单击工具箱，文件，用鼠标右键单击工具箱，选择快捷菜单中的选择快捷菜单中的“部件部件”命令，在图命令，在图13-213-2所示所示的的“控件控件”选项卡中选择选项卡中选择“Microsoft Windows Microsoft Windows Commo

21、n Controls6.0”Common Controls6.0”，然后单击，然后单击“确定确定”按钮，按钮，则在图则在图13-313-3所示的工具箱中就会出现所示的工具箱中就会出现ToolBarToolBar控件控件和和ImageListImageList控件。控件。创建创建ImageListImageList控件作为要使用的图形集合。控件作为要使用的图形集合。创建创建ToolBarToolBar控件，并将控件，并将ToolBarToolBar控件与控件与ImageListImageList控件相关联，创建控件相关联，创建ButtonButton对象。并在对象。并在ImageListImag

22、eList控控件中添加图像。件中添加图像。在在ButtonClickButtonClick事件中添加代码。事件中添加代码。工具栏设计工具栏设计 图13-2 部件对话框 图13-3 工具箱 工具栏设计工具栏设计在在ImageListImageList控件中添加图像控件中添加图像创建创建ImageListImageList控件控件ImageListImageList控件的作用像图像的储藏室，控件的作用像图像的储藏室，ImageListImageList控控件不能独立使用，它需要件不能独立使用，它需要ToolbarToolbar控件（比如控件（比如ListVewListVew、ToolBarTool

23、Bar、TabStripTabStrip、HeaderHeader、IMAGEcOMBOIMAGEcOMBO和和TreeViewTreeView控件）来显示所存储的图像。控件）来显示所存储的图像。ImageListImageList控件的控件的ListImageListImage属性是对象的集合，该集属性是对象的集合，该集合中的每个对象可存放图像文件，合中的每个对象可存放图像文件，ImageListImageList控件不控件不能独立使用，只是作为一个便于向其他控件提供图像能独立使用，只是作为一个便于向其他控件提供图像的资料中心。如工具栏控件（的资料中心。如工具栏控件（ToolBarToolB

24、ar）中的图像就）中的图像就是从是从ImageListImageList控件中获取的。控件中获取的。工具栏设计工具栏设计在在ImageListImageList控件中添加图像控件中添加图像在在ImageListImageList控件中添加图像控件中添加图像在在ToolBarToolBar控件上添加控件上添加ImageListImageList控件（如控件（如ImageList1ImageList1控控件）后，用右键单击件）后，用右键单击ImageList1ImageList1控件，在弹出的快捷菜控件，在弹出的快捷菜单中选择单中选择“属性属性”命令，打开图命令，打开图13-413-4所示所示“属

25、性页属性页”对对话框，选择其中的话框，选择其中的“图像图像”选项卡，在选项卡，在“图像图像”选项卡选项卡中插入图片。一旦中插入图片。一旦ImageListImageList关联到其他控件，就不能再关联到其他控件，就不能再删除或插入图片。删除或插入图片。工具栏设计工具栏设计图13-4 ImageList 控件属性页之“图像”选项卡工具栏设计工具栏设计将将ToolBarToolBar控件与控件与ImageListImageList控件相关联控件相关联 创建一个创建一个ToolBarToolBar控件控件ToolBar1ToolBar1。用鼠标右键单击用鼠标右键单击ToolBarToolBar控件出

26、现弹出式菜单，控件出现弹出式菜单，选择选择“属性属性”命令，则出现命令，则出现“属性页属性页”，如图，如图13-513-5所示。所示。工具栏设计工具栏设计 图13-5 ToolBar控件“属性页”工具栏设计工具栏设计将将ToolBarToolBar控件与控件与ImageListImageList控件相关联控件相关联 在在“属性页属性页”的的“通用通用”选项卡的选项卡的“图像列表图像列表”中，单击下拉箭头，选择中，单击下拉箭头，选择“ImageList1”ImageList1”。将将“属性页属性页”切换到切换到“按钮按钮”选项卡，创建按选项卡，创建按钮（钮（ButtonButton）对象，如图）

27、对象，如图13-613-6所示。单击所示。单击“插入插入按钮按钮”来添加新来添加新“Button”Button”，设置标题、关键字、，设置标题、关键字、式样及工具提示文本等属性值，设置图像属性为式样及工具提示文本等属性值，设置图像属性为ImageListImageList控件中图像的索引。例如，控件中图像的索引。例如，“借书借书”按钮与按钮与ImageList2ImageList2中的第六个图像对应，则图中的第六个图像对应，则图13-613-6中的中的“图像图像”属性设置值为属性设置值为6 6。重复创建其他按钮，创建的工具栏如图重复创建其他按钮，创建的工具栏如图13-713-7所所示。示。工具

28、栏设计工具栏设计图13-6 Toolbar控件“按钮”选项卡图13-7 创建的工具栏实例工具栏设计工具栏设计响应响应ToolbarToolbar控件的事件控件的事件 ToolbarToolbar控控件件的的主主要要事事件件有有ButtonClickButtonClick事事件件（对对应应按按钮钮样样式式0-20-2）和和ButtonMenuClickButtonMenuClick事事件件（对对应应按按钮钮样样式式5 5）。由由于于工工具具栏栏上上的的按按钮钮为为控控件件数数组组，故故既既可可以以用用索索引引（IndexIndex属属性性），也也可可以以用用关关键键字字（KeyKey属属性性）来

29、来识识别别按按钮钮，但但要要注注意意用用户户可可用用“自自定定义义工工具具栏栏”对对话话框框重重新新安安排排按按钮钮对对象象，IndexIndex属属性性值值可可能能并并不不一一定定总总指指示示按按钮钮的的位位置置。因因此此，最最好好的的方方法法是是用用KeyKey属属性性值值识识别别按钮对象。按钮对象。工具栏设计工具栏设计响应响应ToolbarToolbar控件的事件控件的事件 下列的下列的ButtonClickButtonClick 事件代码就用到按钮对象事件代码就用到按钮对象的的Key Key 属性（假设在属性（假设在Form1Form1窗体上增添了通用对窗体上增添了通用对话框控件话框控

30、件CommonDialog1CommonDialog1）。）。工具栏设计工具栏设计Private Sub Toolbar1_ButtonClick(ByVal Button As Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.ButtonMSComctlLib.Button)Select Case Select Case Button.KeyButton.Key Case Case TNewTNew Form1.CommonDialog1.ShowNew Form1.CommonDialog1.ShowNew Case

31、 Case TOpenTOpen Form1.CommonDialog1.ShowOpen Form1.CommonDialog1.ShowOpen End SelectEnd Select End Sub End Sub工具栏设计工具栏设计响应响应ToolbarToolbar控件的事件控件的事件 ButtonMenuClickButtonMenuClick事件的语法格式类似为：事件的语法格式类似为：Private Sub Toolbar1_ButtonMenuClick(ByVal Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenuBu

32、ttonMenu As As MSComctlLib.ButtonMenuMSComctlLib.ButtonMenu)End Sub End Sub状态栏设计状态栏设计StatusBarStatusBar控件控件StatusBarStatusBar控件就是一个窗体，该窗体通常放在控件就是一个窗体，该窗体通常放在父窗体的底部，或通过其父窗体的底部，或通过其AlignAlign属性设置其出现属性设置其出现的位置。通过的位置。通过StatusBarStatusBar控件，应用程序能显示控件，应用程序能显示各种状态数据。各种状态数据。StatusBarStatusBar控件由面板（控件由面板（Pan

33、elPanel）对象组成，一个对象组成，一个StatusBarStatusBar控件最多可以有控件最多可以有1616个个PanelPanel对象，每一个对象，每一个PanelPanel对象都可包含文本和对象都可包含文本和/或图片。可以控制每个或图片。可以控制每个PanelPanel对象的外观属性，对象的外观属性，包括包括WidthWidth、AlignmentAlignment（文本和图片的）和（文本和图片的）和BevelBevel（文本显示的样式）。还可以使用（文本显示的样式）。还可以使用StyleStyle属属性值中的一个自动地显示公共数据。性值中的一个自动地显示公共数据。状态栏设计状态栏

34、设计状态栏的建立状态栏的建立在在默默认认情情况况下下，StatusBarStatusBar控控件件也也不不会会出出现现在在工工具具箱箱中中，为为了了使使用用StatusBarStatusBar控控件件，应应首首先先打打开开“部部件件”对对话话框框，选选中中“Microsoft Microsoft Windows Windows Common Common Controls6.0”Controls6.0”，将将控控件件添添加加到到VirsualVirsual BasicBasic工具箱中，如图工具箱中，如图13-313-3所示。所示。在在设设计计时时，在在窗窗体体上上增增加加StatusBar1

35、StatusBar1控控件件后后，用用鼠鼠标标右右键键单单击击StatusBar1StatusBar1控控件件，选选择择快快捷捷菜菜单单中中的的“属属性性”命命令令，打打开开状状态态栏栏的的“属属性性页页”对对话话框框，如如图图13-813-8所所示示。选选择择其其属属性性页页的的“窗窗格格”选选项项卡卡，如如图图13-913-9所所示示，并并进进行行必必要要的的设设置置，以以建立面板并定制它们的外观。建立面板并定制它们的外观。状态栏设计状态栏设计图13-8 状态栏属性 图13-9 状态栏“窗格”选项卡 状态栏设计状态栏设计状态栏的建立状态栏的建立在属性页的在属性页的“窗格窗格”选项卡中，单击

36、选项卡中，单击“插入窗插入窗格格”按钮，就可以在状态栏中添加新的窗格了，按钮，就可以在状态栏中添加新的窗格了，但最多只能分成但最多只能分成1616个窗格，并设置各窗格的文个窗格，并设置各窗格的文本、宽度、对齐及斜面等属性。此外，能使用本、宽度、对齐及斜面等属性。此外，能使用样式属性的样式属性的7 7个值自动显示公共数据，比如日期、个值自动显示公共数据，比如日期、时间及键盘状态等，具体状态栏的时间及键盘状态等，具体状态栏的StyleStyle属性见属性见表表13-213-2，还可以在程序代码中设置属性窗格的，还可以在程序代码中设置属性窗格的属性。属性。状态栏设计状态栏设计表13-2状态栏的Sty

37、le属性常常 数数值值描描 述述sbrTextsbrText0 0（缺省）文本和（缺省）文本和/或位图。用或位图。用 Text Text 属性设置文本属性设置文本sbrCapssbrCaps1 1Caps LockCaps Lock键。当激活键。当激活Caps LockCaps Lock时，用黑体显示字母时，用黑体显示字母CAPSCAPS，反之，当停用，反之，当停用Caps LockCaps Lock时，显时，显示暗淡的字母示暗淡的字母SbrNumSbrNum2 2Number LockNumber Lock。当激活数字锁定键时，用黑体显示字母。当激活数字锁定键时，用黑体显示字母NUMNUM，

38、反之，当停用数字锁定键时，显，反之，当停用数字锁定键时，显示暗淡的字母示暗淡的字母SbrInsSbrIns3 3Insert Insert 键。当激活插入键时，用黑体显示字母键。当激活插入键时，用黑体显示字母INSINS。反之，当停用插入键时，显示暗淡的字。反之，当停用插入键时，显示暗淡的字母母SbrScrlSbrScrl4 4Scroll Lock Scroll Lock 键。当激活滚动锁定时，用黑体显示字母键。当激活滚动锁定时，用黑体显示字母SCRLSCRL，反之，当停用滚动键时，显示，反之，当停用滚动键时，显示暗淡的字母暗淡的字母SbrTimeSbrTime5 5TimeTime。以系统

39、格式显示当前时间。以系统格式显示当前时间SbrDateSbrDate6 6DateDate。以系统格式显示当前日期。以系统格式显示当前日期SbrKanaSbrKana7 7KanaKana。当激活滚动锁定时，用黑体显示字母。当激活滚动锁定时，用黑体显示字母 KANAKANA。反之，当滚动锁定停用时，显示暗淡的。反之，当滚动锁定停用时，显示暗淡的字母字母状态栏设计状态栏设计状态栏的建立状态栏的建立图图13-1013-10所示是一个设计好的状态栏实例效果所示是一个设计好的状态栏实例效果图，其状态栏设置了图，其状态栏设置了8 8个窗格。个窗格。图13-10 设计好的状态栏，包括8个面板 图形设计图形

40、设计坐标系统坐标系统 设置坐标刻度设置坐标刻度 在在Visual BasicVisual Basic坐标系统中有坐标系统中有3 3种刻度，它们分别是：种刻度，它们分别是：缺省刻度、标注刻度和自定义刻度。在大多数情况缺省刻度、标注刻度和自定义刻度。在大多数情况下，采用缺省的刻度作为坐标系统。这时坐标刻度下，采用缺省的刻度作为坐标系统。这时坐标刻度单位是缇（单位是缇（TwipTwip，567567缇缇1 1厘米），基点位置在容厘米），基点位置在容器对象的左上角，即基点坐标为（器对象的左上角，即基点坐标为（0,00,0）。）。图形设计图形设计当须要采用系统提供的其他标准刻度单位时，可以通过当须要采用

41、系统提供的其他标准刻度单位时，可以通过设置设置ScaleModeScaleMode属性来获得。其属性设置值及其作用见表属性来获得。其属性设置值及其作用见表13-313-3。表13-3ScaleMode属性设置值及其作用ScaleModeScaleMode设置值设置值功功 能能 描描 述述0 0UserUser用户定义。若用户直接设置了用户定义。若用户直接设置了ScaleWidthScaleWidth、ScaleHeightScaleHeight、ScaleTopScaleTop或或ScaleLeftScaleLeft的值，则的值，则ScaleModeScaleMode属性自动设为属性自动设为0

42、 01 1TwipTwip缇。这是缺省刻度，即缇。这是缺省刻度，即14401440缇缇1 1英寸英寸2 2PointerPointer磅。磅。7272磅磅1 1英寸英寸3 3PixelPixel像素。像素是监视器或打印机分辨率的最小单位。每英寸里像素像素。像素是监视器或打印机分辨率的最小单位。每英寸里像素的数目由设备的分辨率决定的数目由设备的分辨率决定4 4CharacterCharacter字符。在打印时，一个字符有字符。在打印时，一个字符有1/61/6英寸高、英寸高、1/121/12英寸宽英寸宽5 5InchInch英寸英寸6 6MillimeterMillimeter毫米毫米7 7Cen

43、timeterCentimeter厘米厘米图形设计图形设计从表从表13-313-3中知道，除了中知道，除了0 0和和3 3外，其他所有模式都是打印长度单位。外，其他所有模式都是打印长度单位。例如，一个对象长为例如，一个对象长为1010个单位，当个单位，当ScaleModeScaleMode属性值设为属性值设为6 6时，打时，打印时就是印时就是1010毫米长。其他设置类似，同样在程序代码中可以使用毫米长。其他设置类似，同样在程序代码中可以使用如下语句形式。如下语句形式。ScaleModeScaleMode7 7 设置窗体的刻度单位为厘米设置窗体的刻度单位为厘米 Picture1.ScaleMod

44、ePicture1.ScaleMode3 3 设置设置Picture1Picture1的刻度单位为像素的刻度单位为像素设置设置ScaleModeScaleMode属性值后，属性值后，Visual BasicVisual Basic会重定义会重定义ScaleWidthScaleWidth和和ScaleHeightScaleHeight，使它们与新刻度保持一致，然后，自动将，使它们与新刻度保持一致，然后，自动将ScaleTopScaleTop和和ScaleLeftScaleLeft设置为设置为0 0。图形设计图形设计如果直接设置了如果直接设置了ScaleWidthScaleWidth、ScaleH

45、eightScaleHeight、ScaleTopScaleTop和和ScaleLeftScaleLeft的值，将自动使的值，将自动使ScaleModeScaleMode的值设为的值设为0 0，例如：，例如：ScaleLeftScaleLeft=100=100 ScaleTopScaleTop=100=100 Picture1.ScaleLeft Picture1.ScaleLeft200200 Picture1.ScaleTop=100 Picture1.ScaleTop=100图形设计图形设计坐标系统坐标系统 刻度的转换刻度的转换 如果要将一种刻度模式转换为另一种刻度模式，就可如果要将一种

46、刻度模式转换为另一种刻度模式，就可以使用以使用ScaleXScaleX和和ScaleYScaleY方法来实现。这些方法的语法方法来实现。这些方法的语法格式为格式为:Object.ScaleX(value,fromScale,toScaleObject.ScaleX(value,fromScale,toScale)Object.ScaleY(value,fromScale,toScaleObject.ScaleY(value,fromScale,toScale)其中，其中，ObjectObject可以是窗体、图片框或可以是窗体、图片框或PrinterPrinter对象。对象。图形设计图形设计坐标

47、系统坐标系统 ScaleScale方法方法ScaleScale方法用于窗体、图片框或方法用于窗体、图片框或PrinterPrinter对象设置新对象设置新坐标系。其语法格式为坐标系。其语法格式为:Object.Scale (Object.Scale (x x1,1,y y1)1)(x x2,2,y y2)2)图形设计图形设计坐标系统坐标系统 设置当前坐标设置当前坐标Current Current X X和和Current Current Y Y属性是用于设置当前水平坐属性是用于设置当前水平坐标和垂直坐标，即下一次打印或绘图的起点坐标。标和垂直坐标，即下一次打印或绘图的起点坐标。例如：将当前坐标

48、设置为原点的位置。例如：将当前坐标设置为原点的位置。Form1.Scale(100,100)-(200,200)Form1.Scale(100,100)-(200,200)Form1.Current Form1.CurrentX X=100=100 Form1.Current Form1.CurrentY Y=100=100图形设计图形设计颜色的设置颜色的设置REGREG函数函数REGREG函数用于在运行时指定颜色值。其语法格式为函数用于在运行时指定颜色值。其语法格式为:REG REG（红，绿，蓝）（红，绿，蓝）图形设计图形设计颜色的设置颜色的设置 QBColorQBColor函数函数 QBC

49、olorQBColor函数是用来表示对应颜色值的函数是用来表示对应颜色值的RGBRGB颜色码。颜色码。其语法格式为其语法格式为:QBColorQBColor（颜色参数）（颜色参数）图形设计图形设计颜色的设置颜色的设置 颜色属性颜色属性 BackColorBackColor属性：设置背景颜色。属性：设置背景颜色。ForeColorForeColor属性：设置前景颜色，前景色是指图形方属性：设置前景颜色，前景色是指图形方法或法或PrintPrint方法使用的颜色。方法使用的颜色。BorderColorBorderColor属性：设置边框颜色，可以用于属性：设置边框颜色，可以用于ShapeShape

50、控件。控件。FillColorFillColor属性：设置填充颜色，用于属性：设置填充颜色，用于CircleCircle方法创方法创建的圆或直线（建的圆或直线（LineLine）方法创建的方框及）方法创建的方框及ShapeShape控件控件形成图形的内部填充颜色。形成图形的内部填充颜色。图形设计图形设计颜色的设置颜色的设置 使用内部常数来设置颜色使用内部常数来设置颜色表13-6常用颜色值常数颜颜 色色 常常 数数 十六十六进进制数制数颜颜 色色颜颜 色色 常常 数数 十六十六进进制数制数颜颜 色色vbBlackvbBlack&H0&H0黑黑 色色vbBluevbBlue&HFF0000&HFF