vb界面设计
第2章 VB界面设计
Visual Basic程序设计
10
2.1 对象常用的公共属性
4. Font属性 设置对象中显示的字体属性，可在“属性”窗口 中设置字体的大小、颜色等。 如：…… 如果需要在程序运行时改变对象的字体，可以在 代码中写，如： Label1.FontSize=30 …… 见教材P18，例2-1
Visual Basic程序设计
当对象为窗体时，屏幕就是容器
Visual Basic程序设计
32
3. Print方法
将文本输出到指定窗体、图片框控件、打印机、立 即窗口（称为Debug对象，作为调试之用）等上。
格式： [对象.]Print[[Spc(n)|Tab(n)][输出内容1 [,|;] 输 出内容2 [,|;]输出内容3 [,|;] ……
ht Width
Visual Basic程序设计
14
2.1 对象常用的公共属性
8. Left、Top属性 设置对象相对其所在容器的位置。 什么是容器？ 容器是用来存放对象的。对象所在容器左上角为 坐标原点，向右为X轴正方向，向下为Y轴正方向。
Top
Left Width
Heig ht
Visual Basic程序设计
Visual Basic程序设计
2.2.1 窗体常用属性
2. ControlBox属性 设置窗体是否有控制菜单框，默认为值True。设置 为False时 ,将不显示窗体的最大化,最小化,以及关闭 按钮。如图2.10
Visual Basic程序设计
21
2.2.1 窗体常用属性
3. MaxButton和MinButton属性 指定在运行时在窗体标题栏右边的最大化和最小 化按钮是否可用，默认值为True，可用。设置为 False时 ,不可用。 注意：只有当ControlBox属性值为True时，这 两个属性才起作用。
VB界面设计
VB界面设计现在越来越多的软件都有了很Cool的2D造型，什么×××× XP啦，×××× 2002之类的，看来争夺软件霸权的地位，2D界面是必不可少的，有很多人认为Visual Basic语言的先天不足导致它不能够很灵活的改变界面，让俺们来看看究竟吧。
如果大家用过《Windows优化大师》，肯定会被它的界面所倾倒，其实利用ActiveSkin 就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧。
首先新建一个EXE工程，再在窗体上拖几个Label控件，看看Label 的强大功能吧，原理就是利用Label来模拟一个按钮，但是首先要将Label控件的属性要调一下，Name：LblBtn，BorderStyle: 1，Appearance: 0，Alignment: 2，这样一个按钮的雏形就已经出来了，如果工程量很大，可以将多个Label控件的Name 属性设为一样的，对于按钮的识别就要靠识别Index属性了，为了方便起见，在进入到代码编辑窗口，输入以下代码：Private Const LBL_BACK_COLOR ＝&HE0E0E0 ’正常时Label控件的背景色Private Const LBL_WHEN_MOUSE_MOVE ＝&HC0C0C0 ’鼠标移动时Label的背景色Private Const LBL_WHEN_MOUSE_DOWN ＝&H808080 ’鼠标按下时Label的背景色再在Form的Load事件中输入以下内容Private Sub Form_Load（）Dim Count As IntegerFor Count ＝0 To 3 ’请将此出的3换成你的LblBtn数量的个数－1LblBtn（Count）.BackColor＝LBL_BACK_COLOR ’初始化LblBtn的背景Next CountEnd Sub然后再在LblBtn的MouseMove和MouseDown事件中来搞定剩余部分：Private Sub LblBtn_MouseDown（Index As Integer，Button As Integer，Shift As Integer，X As Single，Y As Single）’当鼠标按在LblBtn上时LblBtn（Index）.BackColor ＝LBL_WHEN_MOUSE_DOWN ’临时改变LblBtn背景颜色End SubPrivate Sub LblBtn_MouseMove（Index As Integer，Button As Integer，Shift As Integer，X As Single，Y As Single）’鼠标在LblBtn上面移动时触发该事件Dim Count As IntegerDoEvents ’暂时将系统控制权教给系统If Button T hen Exit Sub ’如果按钮被按下就退出该过程For Count ＝0 To 3If Count <> Index Then ’如果按下的不是其它按钮LblBtn（Index）.BackColor ＝LBL_BACK_COLOR ’将背景设为正常ElseLblBtn（Index）.BackColor ＝LBL_WHEN_MOUSE_MOVE ’将背景设为鼠标移动的背景End IfNext CountEnd SubPrivate Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）Dim Count As IntegerDoEventsFor Count＝0 To 3LblBtn（Count）.BackColor＝LBL_BACKCOLOR ’恢复背景Next CountEnd本来利用Windows的消息系统来完成这一“艰巨”的任务最简单，可问题就来了，Label 控件没有窗口句柄怎么办？可是此问题与题无关，写了会有骗稿费之：）OK，Label控件就讲到这里，在来说说TextBox控件，各位看关恐怕看惯了白颜色的背景，那么就换换颜色以养养俺们那和绵羊一样的眼睛（为什么说绵羊？俺也不知道），可是VB提供的RGB函数弄出来的颜色不是怎么好看，这里俺来教大家一个小Tip，RGB函数的Red，Green，Blue这三个参数若一样，则产生的颜色是灰度，当然越接近白颜色越好，但也不能让各位看不出来，俺建议TextBox的背景为RGB（235，235，235），各位还是实战一下，将一个TextBox拖到窗体上，属性设置如下Appearance 0BorderStyle 1MutilLine True千万不要设置ScrollBars属性，否则会影响效果在Form的Load事件中初始化TextBoxDim bkColor As LongPrivate Sub Form_Load（）bkColor＝RGB（235，235，235）Text1.BackColor＝bkColorEnd Sub在Form和Text1的MouseMove事件中:Private Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）Text1.BorderStyle ＝0End SubPrivate Sub Text1_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）DoEventsText1.BorderStyle ＝1End Sub在按下F5试试是不是很Cool?可能各位看关玩过石器时代，一定会对里面的TextBox的效果感到很爽，VB还不是可以做到，有焦点的控件可以使用SetFocus方法来为其设置焦点，可是一个窗体上如果控件太多了，一个一个的用SetFocus是不是太傻了?这一节的主角就是－－－－－－－－API函数，首先声明:Private Type POINTAPIx As Longy As LongEnd TypePrivate Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" （lpPoint As POINTAPI）As LongPrivate Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" （ByVal xPoint As Long，ByVal yPoint As Long）As LongPrivate Declare Function SetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long）As Long但是这里的SetFocus会和控件的SetFocus会搞混淆，改改吧，Private Declare Function nSetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long）As Long只要Alias指向的接口是对的前面的函数名称简直就是摆设，在建立一个过程:Public Function sSetFocus（）As LongDim CPos As POINTAPI，Successfull As Boolean，hWnd As LongDoEventsSuccessfull ＝GetCursorPos（CPos）If Not Successfull Then Exit Sub ’如果未成功则退出该过程hWnd＝WindowFromPoint（CPos.x，CPos.y）sSetFocus=nSetFocus(hWnd)End Sub在窗体上放一个Timer控件，Interval 属性设为100，就是0.1秒，在Timer1控件的Timer 事件中填入sSetFocus，在运行一下看看，效果怎么样?可是有的先生小姐要问了，TextBox难道就不能用ScrollBar吗?非也非也，选工程－>部件－>Microsoft Windows Common Controls－2 6.0 （SP3）就是你的答案，至于卷动TextBox 就去研究SendMessage函数吧，否则又有骗稿费之嫌，如果想作绿色软件，不想用控件，可以用俺前面讲到的Label控件，利用字体Webdings 来模拟ScrollBar，需要注意的是，如果模拟ScrollBar，上下左右箭头分别是5，6，3，4，别忘了把字体设为Webdings再来讲讲窗体的美化，其实将BorderStyle属性设为0就是很好的2D美化;）可是，这样一来，问题又来了，怎么办?凡事都要请API来帮忙，这里需要两个API，一下是该API 的声明:Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" （）As Long 注释：这个API是用来解下鼠标的追踪器，关于他的过多用法以及详细介绍可以写信向俺咨询，还有Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" （ByVal hwnd As Long，ByVal wMsg As Long，ByVal wParam As Long，lParam As Any）As Long’这个该不要俺多介绍了吧Public Const HTCAPTION ＝2 ’代表窗体的标题区Public Const WM_NCLBUTTONDOWN ＝&HA1 ’表示非工作区左键按下原理很简单，卸下鼠标追踪器后向Form发送一个移动窗体的消息，其实做到这一点的方法很多，但俺个人认为这一种最简单，添加一个过程:Public Sub MoveForm（hWnd As Long）DoEventsReleaseCaptureSendMessage hWnd，WM_NCLBUTTONDOWN，HTCAPTION，0&End Sub在Form的MouseMove事件中:Private Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）If Button＝vbLeftButt on Then MoveForm hWnd’如果按下鼠标左键就移动窗体End Sub台下的这位小姐又纳闷了，可是光秃秃的窗体没有了标题栏也不好看，俺要向这为小姐推荐俺的东东－ActiveX控件，ToolSign，需要的人可以写信给俺联系，该控件需要在代码编辑区域内添加一下代码:’一下声明是用在ToolSign的AutoQuit属性的Public Const EXIT_FORCE ＝2 ’注意，在VB中运行的时候如果选用此退出方式，VB也会退出Public Const EXIT_MESSAGE ＝1 ’由操作系统发送关闭消息Public Const EXIT_CUSTOM ＝Not （EXIT_FORCE Or EXIT_MESSAGE）’自定义将其注册后在部件栏中把e－Dogkid Studio Tools Sign打钩，添加到工具箱中，双击加入到窗体中，在Form的Load事件中添加一下初始化代码:Private Sub Form_Load（）With Sign1.AutoQuit ＝EXIT_CUSTOM.ParentsHWND ＝hWnd ’填了此属性可以直接用ToolSign来移动窗体而不需要前面的代码End WithEnd SubSign1的Click事件Private Sub Sign1_Click（）End ’关闭程序End Sub在Form的Resize事件中添加一下代码:Private Sub Form_Resize（）Sign1.Width ＝WidthEnd Sub如果想让窗体可以改变大小，可以修改一下属性Caption ""BorderStyle 2或5ControlBox False实际情况如图不知道各位看关见过爆炸试的窗体没有?，没有见过可以从俺要另外一个俺自己的ActiveX DLL，我的那个东东其实是给我的Software作运行库的，各位若不嫌弃，可以用用，注册后在工程－>引用－>e－Dogkid Runtime Library然后在窗体Load事件中输入:Private Sub Form_Load(）Dim System As e_Dogkid_Runtime_Library.SystemSet System ＝New e_Dogkid_Runtime_Library.SystemShowSystem.BoomIt hDC，60，Width，Height，Left，TopSet System ＝NothingEnd Sub。
vb界面设计
vb界面设计界面设计☆本章学习内容用户界面是一个应用程序最重要的部分，它是最直接的现实世界。
对用户而言，界面就是应用程序，它们感觉不到幕后正在执行的代码。
不论花多少时间和精力来编制和优化代码，应用程序的可用性仍然依赖于界面。
8.1 多文档界面、8.2 工具栏和状态栏、8.3 RichTextBox控件、8.4 应用程序向导8.1 多文档界面下一节多文档界面是指，一个应用程序，它提供一个桌面上的父窗口，而该窗口包含有其他该应用程序中打开的子窗口。
当该父窗口最小化或关闭时，它所包含的所有子窗口都最小化或关闭。
多文档界面 (MDI) 允许创建在单个容器窗体中包含多个窗体的应用程序。
象 Microsoft Excel 与 Microsoft Word for Windows 这样的应用程序就具有多文档界面。
MDI 应用程序允许用户同时显示多个文档，每个文档显示在它自己的窗口中。
文档或子窗口被包含在父窗口中，父窗口为应用程序中所有的子窗口提供工作空间。
例如：Microsoft Excel 允许创建并显示不同样式的多文档窗口。
每个子窗口都被限制在 Excel 父窗口的区域之内。
当最小化 Excel 时，所有的文档窗口也被最小化，只有父窗口的图标显示在任务栏中。
子窗体就是 MDIChild 属性设置为 True 的普通窗体。
一个应用程序可以包含许多相似或者不同样式的 MDI 子窗体。
在运行时，子窗体显示在 MDI 父窗体工作空间之内（其区域在父窗体边框以内及标题与菜单栏之下）。
当子窗体最小化时，它的图标显示在 MDI 窗体的工作空间之内，而不是在任务栏中，如图 8.1 所示。
图 8.1 显示在 MDI 窗体工作空间之内的子窗体注意一个应用程序也可以包括标准的、不是包含在 MDI 窗体之内的非MDI 窗体。
MDI 应用程序中标准窗体的典型用法是显示模式的对话框。
MDI窗体相似于具有一个限制条件的普通窗体。
除非控件具有 Align 属性（如 PictureBox 控件）或者具有不可见界面（如 Timer 控件），否则不能将控件直接放置在 MDI 窗体上。
可视化程序设计VB题目应用程序界面设计
可视化程序设计VB题目应用程序界面设计在当今数字化的时代，应用程序的界面设计对于用户体验和程序的易用性至关重要。
可视化程序设计语言 VB（Visual Basic）为我们提供了强大的工具和功能，使得创建吸引人且功能强大的应用程序界面变得相对容易。
首先，让我们来了解一下应用程序界面设计的重要性。
一个好的界面设计能够吸引用户的注意力，提高用户的操作效率，减少错误，并增强用户对应用程序的满意度。
它就像是应用程序的“门面”，直接影响着用户对整个程序的第一印象。
在 VB 中，设计应用程序界面的第一步是规划布局。
我们需要根据应用程序的功能和用户需求，确定各个控件的位置和大小。
例如，如果是一个数据输入的界面，我们可能会将文本框、下拉列表和按钮等控件合理地排列，以便用户能够方便地进行操作。
控件的选择也是界面设计中的关键环节。
VB 提供了丰富的控件，如按钮（Button）、文本框（TextBox）、标签（Label）、列表框（ListBox）、组合框（ComboBox）等等。
每个控件都有其特定的用途和特点。
比如，按钮用于触发特定的操作，文本框用于用户输入文本，标签用于显示静态的提示信息。
在布局和选择控件之后，我们还需要考虑界面的颜色和字体搭配。
颜色的选择要符合应用程序的主题和功能，避免使用过于刺眼或难以区分的颜色组合。
字体的大小、样式和颜色也要清晰可读，以确保用户能够轻松获取信息。
接下来，让我们通过一个具体的例子来看看如何在 VB 中实现一个简单的应用程序界面设计。
假设我们要创建一个学生成绩管理系统的登录界面。
我们首先在 VB 的窗体上放置两个文本框，分别用于输入用户名和密码。
然后，放置一个登录按钮和一个取消按钮。
为了增加界面的美观性，我们可以在背景上添加一个合适的图片或者使用一种柔和的背景颜色。
对于文本框，我们可以设置其边框样式、输入限制等属性。
比如，密码文本框可以设置为只显示星号来保护用户输入的密码。
登录按钮可以设置为突出显示的颜色，以吸引用户点击。
vb用户界面设计实验报告（共9篇）
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。
A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。
VB程序界面设计
VB程序界面设计VB是一种基于事件驱动的编程语言，常用于开发Windows应用程序的用户界面。
程序界面设计对于VB程序的用户体验至关重要，好的界面设计可以提升用户的使用体验，提高程序的易用性和功能性。
下面将详细介绍VB程序界面设计的要点和原则。
1.界面布局要合理：VB程序的界面布局应该符合逻辑顺序，使用户可以轻松找到需要的功能和信息。
主要功能模块应该被置于窗口的显眼位置，并按照重要性进行排列。
相似的功能应该归类在一起，方便用户查找。
2.界面元素要直观：VB程序的界面元素，如按钮、文本框、下拉框等控件，应该具有直观的视觉效果，使用户可以直观地了解其功能和用途。
按钮应该有明确的标识，文本框和下拉框应该有默认值或提示文本，以提供相关的信息。
3.功能导航要清晰：VB程序的界面应该提供清晰明了的功能导航，使用户可以方便地找到需要的功能。
一般可以通过菜单栏、工具栏或导航栏来实现功能导航。
菜单栏提供了一级功能导航，工具栏提供了常用功能的快速访问，导航栏提供了程序的整体结构和主要功能。
4.输入反馈要及时：VB程序的界面应该能够及时地给出用户的输入反馈，以提高用户的操作效率和体验。
例如，在用户点击按钮之后，界面应该立即给出相应的反馈，如弹出提示框或改变按钮的状态。
5.错误提示要友好：VB程序的界面应该给出友好的错误提示，帮助用户识别和纠正操作错误。
错误提示信息应该明确、简洁，并且给出相应的解决方案。
例如，当用户输入不合法时，界面可以弹出一个提示框，告诉用户输入不合法，并提供相应的解决方式。
6.界面美观要素：VB程序的界面应该注重美观，以提高用户对程序的好感度和使用欲望。
界面元素的颜色、样式应该协调一致，避免刺眼的颜色和过分复杂的样式。
同时，界面的排版和字体的选择也应该考虑到用户的视觉感受，使界面整体看起来舒适、清晰。
7.简化操作要点：VB程序的界面应尽可能地简化用户的操作步骤，以提高用户的使用效率和舒适度。
可以采用一些技术手段，如自动填充、自动补全、批量操作等，来简化用户的重复操作或冗长操作。
VB程序设计—— 9 界面设计
注意
弹出式菜单用于有子菜单的命令
工具栏制作
工具栏由一系列按钮组成，每个按钮对应一个 常用的菜单命令
制作方法
利用图片框制作
添加图片框（picturebox） 添加按钮 设置控件属性
style=1 picture
编写代码
Toolbar制作
添加Toolbar
用鼠标右键单击工具箱，从弹出的“部件”打开对 话框，选择“Microsoft Windows Common controls 6.0” 选择Toolbar
事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) button.index=? End Sub
多重窗体
工程中添加窗体 设置启动窗体 保存窗体
多重窗体的方法
Load <窗体名来自>-----加载窗体 Unload <窗体名称>-----卸载窗体 Show hide
标志 :表示弹出的位置和触发的键 flag=0 ,弹出菜单对鼠标左键反应 flag=1 ,弹出菜单对鼠标左、右键反应 flag=2 , PopupMenu只能用于mousedown事件
Private Sub Form_Load() edit.Visible = False End Sub Private Sub Form_MouseUp(Button As Integer, Shift _ As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu edit End If End Sub
基于VB语言的人机交互界面设计与开发
基于VB语言的人机交互界面设计与开发Visual Basic（VB）是一种由微软公司开发的事件驱动编程语言和集成开发环境。
它是一种易学易用的编程语言，被广泛应用于Windows平台下的软件开发中。
在人机交互界面设计与开发领域，VB 语言具有独特的优势和应用场景。
本文将探讨基于VB语言的人机交互界面设计与开发，包括其特点、优势、应用范围以及实际案例分析。
VB语言在人机交互界面设计中的特点VB语言作为一种事件驱动编程语言，具有以下特点：易学易用：VB语言采用直观的图形化用户界面设计工具，使得开发者可以通过拖拽控件、设置属性等简单操作快速构建界面。
丰富的控件库：VB提供了丰富的控件库，包括按钮、文本框、标签等常用控件，以及数据表格、图表等高级控件，满足不同界面设计需求。
事件驱动：VB采用事件驱动模型，开发者可以通过编写事件处理程序响应用户操作，实现交互功能。
支持第三方组件：VB支持第三方组件的集成，开发者可以借助各种组件扩展界面功能。
VB语言在人机交互界面设计中的优势基于VB语言进行人机交互界面设计具有诸多优势：快速开发：借助VB的图形化界面设计工具和丰富的控件库，开发者可以快速构建出美观、功能完善的界面。
易维护：VB代码结构清晰简洁，易于维护和修改，降低了软件维护成本。
跨平台兼容：VB语言广泛应用于Windows平台，保证了软件在不同Windows系统上的兼容性。
丰富的资源支持：VB拥有庞大的开发者社区和资源库，开发者可以获取到大量的教程、示例代码和解决方案。
VB语言在人机交互界面设计中的应用范围基于VB语言的人机交互界面设计在各个领域都有广泛应用，包括但不限于：企业管理系统：利用VB快速构建企业管理系统的前端界面，实现员工管理、数据统计等功能。
教育培训软件：开发教育培训软件时，利用VB设计直观友好的用户界面，提升用户体验。
医疗健康领域：设计医疗设备监控界面、病历管理系统等应用程序。
工业自动化：开发工业自动化设备的监控与控制界面，实现设备远程操作。
第10章-VB多文档界面与工具栏设计
☆☆ 第10章多文档界面与工具栏设计
17
2．常用格式化属性
格式化属性，可对该控件中选中的任何部分的文本使用不同的格式
分类
属性
值类型
说明
选中文本 字体、字号
字型
SelText SelStart SelLength SelFontName SelFontSize SelBold SelItalic SelUnderline SelStrikethru
End Sub
☆☆ 第10章多文档界面与工具栏设计
4
10.1 多文档界面设计
10.1.2 显示MDI窗体及其子窗体
显示任何窗体的方法为show,还有有关规则： （1）加载子窗体时，其父窗体会自动加载并显示；反之 则无。 （2）MDI窗体子窗体
1．创建 MDI 应用程序的菜单
2．多文档界面中的“窗口”菜单
☆☆ 第10章多文档界面与工具栏设计
6
10.1 多文档界面设计
(1) 显示打开的多个文档窗口 要在某个菜单上显示所有打开的子窗体标题，只需利用
菜单编辑器将该菜单的WindowList属性设置为True。 (2).排列窗口 利用Arrange方法进行层叠、平铺和排列图标。 形式： MDI窗体对象.Arrange 排列方式
MDI子窗体 标准窗体 MDI窗体
☆☆ 第10章多文档界面与工具栏设计
2
10.1.1 创建多文档界面应用程序
1．创建MDI窗体 用户要建立一个MDI窗体，可以选择“工程”菜单中的
“添加MDI窗体”命令，会弹出“添加MDI窗体”对话框， 选择“新建MDI窗体”或“现存”的MDI窗体，再选择“打 开”按钮。
VB程序界面设计
VB程序界面设计在VB程序界面设计过程中，以下是一些关键因素需要考虑的：1.界面布局：合理的布局能够使用户能够快速找到所需功能和信息，常见的布局方式包括居中对齐、流式布局等。
同时，还需要考虑窗口的大小和比例，以适应不同的屏幕分辨率和显示设备。
2.控件选择：VB提供了丰富的控件库，包括文本框、按钮、列表框等。
在设计时，需要选择合适的控件来展示和输入数据，以及实现程序功能。
同时，还可以通过自定义控件的方式，使界面更加独特和专业。
3.颜色和图标：合适的颜色和图标能够提升界面的美观度和易用性。
可以选择符合应用主题和风格的配色方案，并使用统一的图标和按钮样式，使用户更容易理解和识别功能。
4.文字和字体：程序中的文字需要清晰、易读，并且与界面风格统一、合适的字体和字号能够提高用户的阅读体验，同时需要注意文字的布局和对齐，以及特殊符号的使用。
5.状态提示：通过合适的状态提示能够提高用户交互的响应性和准确性。
例如，在长时间操作时，通过进度条或提示窗口显示操作进度，提醒用户等待。
另外，对于错误信息和警告信息，需要使用可视化的方式提示用户，并提供相关的解决方案。
6.功能导航：对于复杂的程序，需要提供易用的导航方式，以帮助用户快速切换功能。
可以设计菜单栏、工具栏或侧边栏等方式，同时可以使用快捷键和功能提高用户的操作效率。
7.帮助文档：在程序界面中提供帮助功能，帮助用户理解和使用程序。
可以编写用户手册、FAQ等文档，并提供功能。
另外，还可以在界面中添加工具提示等方式，对控件的功能和用法进行说明。
8.响应式设计：随着移动设备的普及，响应式设计是不可忽视的重要方面。
可以通过自适应布局和媒体查询等技术，实现在不同终端和屏幕尺寸下的自动适应。
总之，在VB程序界面设计过程中，需要从用户的角度出发，关注用户需求，并结合开发技术和界面设计原则，创造出易用、美观和功能强大的用户界面。
通过合理的布局、控件选择、颜色和图标等设计手段，提升用户的操作体验和工作效率，从而提高程序的易用性和用户满意度。
西安财经学院 VB 实验七用户界面设计
（3）设计一个如图A7.6所示的应用程序。当选择选项卡中不同选项后可以对文本框内两个数字进行相应的运算，结果在窗体右边的标签内显示。文本框中数字值可以通过单击箭头进行改变，每次单击可以改变量是2。
Next i
If Check2.Value = 1 Then Sum = Sum - Min
If Check1.Value = 1 Then Sum = Sum - Max
Select Case Index
Case 0
Picture1.Print Sum
Case 1
Picture1.Print Sum / 5
menitalic.Checked = False
End If
End Sub
Private Sub mensize_Click(Index As Integer)
Select Case Index
Case 0
Text1.Foked = True
mensize(1).Checked = False
Label1(i).Top = Label1(i - 1).Top + Label1(i).Height + 100
Label1(i).Caption = "第" & i + 1 & "个成绩"
Label1(i).Visible = True
Next i
End Sub
Private Sub Option1_Click(Index As Integer)
vb设计界面-窗体
Load事件
触发条件：当窗体被装载I时nit（ia窗lize体加载到内存即将显示的时候 也就是说这时候窗体还没有真正显示出来）Load事件被触发。
窗体的Initialize事件发生在Load事件之前。
Unload事件
触发条件：当窗体从屏幕上删除时，将触发Unload事件。
Print"100>50"，100>50 在窗体Forml显示：100>5 True，用1到14列显示字符串， 当字符串长度小于14时用空格填充，从第15列开始显示布尔 值。
Print方法
如果Print末尾加有分号，下一个Print输出的内容将紧跟在当 前Print输出内容的后面
例如： Forml.Print"面向对象"； Forml.Print"程序设计"
Visual Basic的设计界面
窗体 控件
标签 文本框 列表框和组合框 滚动条和定时器 菜单的设计
窗体的设计
什么是窗体
是所有控件的容器 是应用程序与用户交互的窗口 是应用程序对应的矩形区域
主窗体
通常工程创建的第一个默认窗体为主窗体， 它是应用程序运行时第一个显示的对象
窗体
窗体是一块“画布”，在其上面可以直观的 建立应用程序。同时在程序设计时，它又是 一个“工作台”。
Move方法
left、top、width、height四个参数中只有left参数 是必不可少的。
其余三个参数如果省略了某个参数，则该参数后面的所 有参数都必须一同省略。
没有被指定的参数将保持不变。
Move方法应用实例
简单VB程序的设计
浅谈VB程序界面设计
程序 的界面时所必须遵循 的标 准，这在很大 程度 上减 轻 了
程序设 计者的负担 。使他们能够把主要精 力放在 问题 的求 解和实现上 ． ＶＢ （ ｉ ａ Ｂ ｓ ）的 出现 ，更 加简化 了Ｗｉｄ ｗｓ Ｖｓ ｌ ａｉ ｕ ｃ ｎ ｏ 程
面进行具体设 计．在此过程 中要考虑完成 系统功能需 要用 到 哪些控件 ，这些 控件之 间的关系 以及它 们的相关性 和重
变 化，或者 系统 能够提供错误 的恢 复指 导．
二、界面设计的初步规划
在 设计用户 界面之前 ，最好 先参 照Ｍｉ ｏｏｔ 其 他 ｃ ｓｆ或 ｒ
的公司一些应用程序 ．在这个 过程中，我们会发现许 多通 用 的东西 ，比如 ：工具栏 、状态条 、工具提示 以及标 准对
话框 ．
提 供信 息 反馈 ．对 操 作人 员 的重 要操 作要 有 信 息 反 馈 ．尤其是对不常用 操作和至关重 要 的操作 ，系统应该提
一
、
前言
开 、存 盘、另存等设 置快捷 键 ，另 外还应为这 些常用操作
用户界面是一应用程序最重要 的部分 ，对大 多数用 户
设 鬣快 捷工具栏 ．使用 操作具有捷 径 ，不仅会提 高用户 的 工作效率 。还使得界面在 功能实现上简 洁和高效．
提 供简单 的错误处 理．系统要 有错误处理 的功能 ．在 出现 错误时 ，系统应 该能检测 出错 误，并且提 供简单和容
反，同时也最容易修改和避免．例如，在菜单和联机帮助 中必须使用相同的术语，对话框必须具有相同的风格．
常用操作要有捷径 ．常用操作 的使用频度较 大，所 以 就 该减 少操作序列 的长度 ．例 如，为文件 的常用 操作如打
“ 帮助 菜单放在最前，便会降低应用程序的可用性．子
VB菜单、工具栏、菜单栏设计
03 提供足够的自定义选项，以满足不同用户的个性 化需求。
优化界面布局和交互方式
01
合理安排界面元素的位置和大小，使其符合用户的视觉习惯。
02
简化操作流程，减少不必要的步骤和点击次数。
提供清晰的视觉反馈，如按钮点击效果、动态加载指示等，以
03
03
菜单栏设计
菜单栏的布局
水平布局
将菜单项水平排列，适合于较长的菜单项名称。
垂直布局
将菜单项垂直排列，适合于较短的菜单项名称。
分组布局
将相关联的菜单项分组，便于用户快速找到所需功能。
菜单栏的设计原则
简洁明了
菜单项名称应简短、清晰，避免使用过于专 业的术语。
层次分明
菜单项应按照功能分类，形成清晰的层次结 构。
VB菜单、工具栏、菜 单栏设计
目录
• VB菜单设计 • 工具栏设计 • 菜单栏设计 • VB界面设计中的注意事项 • VB界面设计实例分析
01
VB菜单设计
菜单的类型
下拉菜单
下拉菜单是常见的菜单类型，用户点击菜单 项后，会弹出下拉列表供用户选择。
弹出菜单
弹出菜单通常在用户右键点击时出现，提供 一些常用的功能或操作。
02
工具栏设计
工具栏的种类
主工具栏
包含常用命令的综合性工具栏，方便 用户快速访问常用功能。
自定义工具栏
用户可以根据自己的需求创建自定义 工具栏，添加或删除按钮，以适应特 定工作流程。
浮动工具栏
可移动到屏幕任意位置的工具栏，方 便用户在不同区域使用。
停靠工具栏
可以自动停靠在窗体边缘的工具栏， 便于用户快速访问常用命令。
vb界面设计练习题（含答案）
vb界⾯设计练习题（含答案）1．在⽤菜单编辑器设计菜单时，必须输⼊的项有________。
A）标题B）快捷键C）索引D）名称2．在下列关于菜单的说法中，错误的是________。
A）每个菜单项与其他控件⼀样也有⾃⼰的属性和事件B）除了Click事件之外，菜单项还能响应其他如DblClick等事件C）菜单项的快捷键不能任意设置D）程序运⾏时，若菜单项的Enabled属性为False，则该菜单项变成灰⾊3．在下列关于对话框的叙述中，错误的是________。
A）CommanDialog1.ShowFont 显⽰字体对话框B）在打开对话框中，⽤户选择的⽂件名可以经FileTile属性返回C）在打开对话框中，⽤户选择的⽂件名及路径可以经FileName属性返回D）通⽤对话框中可以制作和显⽰帮助对话框4．菜单的热键指使⽤Alt键和菜单标题中的⼀个字符来打开菜单，建⽴热键的⽅法是在菜单标题的某个字符前加上⼀个________字符。
A）% B）$ C）& D）#5．要将通⽤对话框CommanDialog1设置成不同的对话框，应通过________属性来设置。
A）Name B）Action C）TagD）Left6．关于多重窗体的叙述中，正确的是________。
A）作为启动对象的Main⼦过程只能放在窗体模块内B）如果启动对象是Main⼦过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载哪⼀个窗体C）没有启动窗体，程序不能运⾏D）以上都不对7．在VB中，除了可以指定某个窗体作为启动对象外，还可以指定________作为启动对象。
A）事件B）Main ⼦过程C）对象D）菜单8．以下语句正确的是________。
A）CommonDialog1.Filter = All Files|*.*|Picture(*.bmp)|*.bmpB）CommonDialog1.Filter="All Files"|"*.*"|"Picture(*.bmp)"|"*.bmp"C）CommonDialog1.Filter="All Files|*.*|Picture(*.bmp)|*.bmp"D）CommonDialog1.Filter={All Files|*.*|Picture(*.bmp)|*.bmp}9．如果Form1是启动窗体，并且Form1的load事件过程中有Form2.Show，则程序启动后________。
vb程序设计登陆界面代码详例
vb程序设计登陆界面代码详例Imports System.Data.SqlClientPublic Class frmMagementMain'Inherits System.Windows.Forms.FormDim constr As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)" '定义一个变量，连接字符串Dim sqlstr As String = "select * from manid" '定义一个变量，SQL语句Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象Dim myReader As SqlDataReader '定义一个变量，阅读器Dim i As Integer = 0Dim userIDsys() As ArrayPrivate Sub frmMagementMain_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadmycon.Open() '打开这个联接myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器myReader.Read()Dim k As Integer = 0While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项k = k + 1'MsgBox(myReader.Item(1))End WhileMsgBox(k)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click' Visual Basic 2005' Declare a new TextBox.Dim TextBox2 As New TextBox' Set the location below the first TextBoxTextBox2.Left = 102TextBox2.Top = 242' Add the TextBox to the form's Controls collection.Me.Controls.Add(TextBox2)TextBox2.Text = "这可是我动态加的控件呀"End SubPrivate Sub mnu_magement_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnu_magement.ClickDim frmlogin As frmlogin = New frmloginfrmlogin.Show()'GBmagemetPeple.Left = 8'GBmagemetPeple.Top = 28'GBmagemetPeple.Visible = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.ClickEnd SubEnd Class/////////////////////////////////////Imports System.Data.SqlClientPublic Class frmloginDim i As Integer = 0Dim constr1 As String = "" '定义一个变量，连接字符串Dim sqlstr1 As String = ""Dim mycon1 As New SqlConnection(constr1) '定义一个变量，为一个连接对象Dim mycom1 As New SqlCommand(sqlstr1, mycon1) '定义一个变量，为命令对象Dim myReader1 As SqlDataReader '定义一个变量，阅读器Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles OK_Button.ClickIf txtUsename.Text = "" Or txtPassword.Text = "" ThenMsgBox("请输入用户名和密码")Exit SubEnd Ifsqlstr1 = "select * from mgpep where usernameID='" & txtUsename.Text & "' andpasswordID='" & txtPassword.Text & "'" '定义一个变量，SQL语句constr1 = "User ID=sa;pwd=a;Initial Catalog=SaleCD;DataSource=(local)" '定义一个变量，连接字符串mycon1.ConnectionString = constr1mandText = sqlstr1mycon1.Open() '重新打开这个联接myReader1 = mycom1.ExecuteReader '第二次把这个命令的连接送入阅读器If myReader1.VisibleFieldCount = 0 ThenMsgBox("密码不对请重新输入～")Exit SubEnd IfmyReader1.Read() '阅读器重新使用read方法On Error GoTo ssIf myReader1(0) > 0 ThenfrmMagementMain.GBmagemetPeple.Visible = Truesqlstr1 = "select * from mgpep"If mycon1.State = 1 Thenmycon1.Close()End Ifmycon1.Open()myReader1 = mycom1.ExecuteReader '把这个命令的连接送入阅读器Dim userIDsys(myReader1.VisibleFieldCount - 1, 2)'ReDim userIDsys(10, 2)Dim k As Integer = 0While myReader1.ReadfrmMagementMain.CmbUser.Items.Add(myReader1(0)) For i = 0 To 2userIDsys(k, i) = myReader1.Item(i)Nextk = k + 1End WhileMsgBox("已经成功登录～")mycon1.Close()Me.Close()Exit SubElseMsgBox("您没有权限登录～")mycon1.Close()Me.Close()Exit SubEnd Ifss:MsgBox("您没有权限登录～")Me.Close()End SubPrivate Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Cancel_Button.ClickMe.Close()End SubEnd ClassPublic ADOcn As ConnectionPublic Sub main()Dim strSQLServer As StringstrSQLServer = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=图书销售管理系统;DataSource=longmingxue\SQLEXPRESS"Set ADOcn = New ConnectionADOcn.Open = strSQLServerFrmMain.ShowEnd SubPrivate Sub Command1_Click()Dim ADOrs As New RecordsetDim strSQL As StringDim strXB As StringADOrs.ActiveConnection = ADOcnADOrs.Open "select 学号 from 学生表"If Not ADOrs.EOF ThenMsgBox "该学号已经存在，不能继续添加～", vbCritical + vbOKOnly, "信息提示"ElseIf Option1.Value ThenstrXB = "男"ElsestrXB = "女"End IfstrSQL = "Insert Into 学生表( 学号,姓名,性别)"strSQL = strSQL + " Values('" + Text1 + "','"strSQL = strSQL + Text2 + "','" + strXB + "')"ADOcn.Execute strSQLMsgBox "添加成功～", vbOKOnly, "信息提示"End IfEnd Sub。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
4.2.5 弹出菜单
弹出菜单的设计方法是：先用菜单编辑器设计一 个普通菜单，然后用VB提供的PopupMenu方法 来显示弹出菜单。该方法的使用形式是： [对象.]PopupMenu 菜单名，标志，X，Y 其中：菜单名是必需的，其他参数是可选的。X、 Y参数指定弹出菜单显示的位置。标志参数用于 进一步定义弹出菜单的位置和性能，它的取值参 见表4-3。
（3）单击【下一个】按钮或【插入】按钮，建立下一个 菜单项。 （4）重复（1）（2）（3）步骤，将菜单项全部建立完 毕后，单击【确定】按钮，关闭菜单编辑器。
4.2.2 利用菜单编辑器创建菜单栏
2. 创建分隔线 当一个菜单标题上放置的菜单项较多时，为了直观，可以使 用水平线将菜单项分组。建立菜单分隔线的步骤与建立菜单 项的步骤相似，惟一的区别就是在菜单编辑器的【标题】框 中输入一个连字符“-”。 3. 创建热键与快捷键 建立热键（访问键）的方法与命令按钮相同，即在菜单标题 的某个字符前加上一个&符号，在菜单中这一字符会自动加 上下划线，表示该字符是一个热键字符。 建立快捷键的方法是打开菜单编辑器中快捷键（Shortcut） 下拉式式列表框并选择一个组合键选项，则菜单项标题的右 边会显示快捷键名称。 说明：热键指使用Alt键+字符键来打开菜单。
4.2.4 动态菜单
在应用程序运行过程当中，可以根据需要动态地增加或 减少一些菜单项。这些可以动态增减的菜单项组合就是 动态菜单。建立动态菜单必须使用菜单控件数组。 建立菜单控件数组的方法是：在【菜单编辑器】对话框 中加入一个菜单项，将其索引（Index）项属性设置为0。 然后可以加入名称相同，Index值有序相连的菜单项。也 可以只有一个Index为0的菜单项，在运行时通过菜单项 控件数组名和索引值，使用Load语句加入新的菜单项； 使用Unload语句删除菜单项。Load和Unload语句格式如 下： Load 菜单控件数组名(Index) Unload 菜单控件数组名(Index)
4.2.3 运行时修改菜单项
设计时创建的菜单在程序运行时也能动态地改变其设置。
1. 使菜单命令无效
所有的菜单项（也叫菜单控件）都具有Enabled属性。当 Enabled设为False时，菜单命令无效使它不响应操作。此时， 快捷键的访问也无效。一个无效的菜单控件会变暗。 2. 使菜单控件不可见 在菜单编辑器中，通过选中或不选【可见】（Visible）复 选框，可以设置菜单控件的Visible属性的初值。 在运行时，要使一个菜单控件可见或不可见，可以从代码中 设置其Visible属性。
4.4 通用对话框
VB的通用对话框控件CommonDialog提供了一组标准对话 框界面，一个控件即可显示六种对话框：打开文件、保存 文件、选择颜色、选择字体、设置打印机以及帮助对话框。 这些对话框仅用于返回用户输入、选择或确认的信息，不 能真正实现文件打开和存储以及颜色设置、字体设置等操 作。这些功能必须通过编写相应的代码才能实现。 CommonDialog控件是ActiveX控件，标准工具箱中没有该 控件，使用时需要将其添加到工具箱。添加的方法是：选 择【工程】菜单中的【部件】命令，或者右击工具箱，在 快捷菜单中选择【部件】命令，打开如第1章中图1.10所示 的【部件】对话框，在【控件】选项卡的列表中，将 Microsoft Common Dialog Control 6.0前面的复选框选中， 单击【确定】按钮。该控件属于非可视控件，设计时它以 图标的形式显示在窗体上，其大小不能改变，位置任意， 程序运行时控件本身被隐藏。
4.3工具栏设计
创建工具栏的步骤如下：
（ 1 ） 将 ImageList 控 件 添 加 到 窗 体 上， 然 后 在 ImageList控件中添加所需的图像。
（2）将Toolbar控件添加到窗体上，在Toolbar控 件中创建Button（按钮）对象。 （3）在ButtonClick事件中用Select Case语句对 各按钮进行相应的编程。 在多文档界面（MDI）应用程序的开发中，工具 栏应放在MDI父窗体中。
4.4 通用对话框
通用对话框还具有以下主要的共同属性： （1）CancelError属性 通用对话框内有一个【取消】按钮，用于向程序表示用户想 取消当前的操作。当CancelError属性设置为True时，若用 户单击【取消】按钮，通用对话框自动将错误对象（Err， 由VB提供）的错误号Err.Number设置为32755（VB常数为 cdlCancel）供程序判断，以便进行相应的处理。 （2）DialogeTitle属性 该属性可由用户自行设置对话框标题栏上显示的内容，代替 默认的对话框标题。 （3）Flags属性 该属性用于设置对话框的相关选项（各种具体对话框设置的 选项略有不同）。
4.2.1 菜单编辑器
VB提供的“菜单编辑器”是一种用来建立菜单 栏的工具，利用它可以非常方便、快捷地在应用 程序的窗体上建立菜单。打开“菜单编辑器”对 话框的方法有以下几种： （1）选择【工具】菜单中的【菜单管理器】命 令： （2）单击标准工具栏中的“菜单编辑器”按纽： （3）让窗体显示在开发环境中，按Ctrl+E键： （4）右击窗体空白处，在快捷菜单中选择【菜 单编辑器】命令。
4.4.1 文件对话框
文件对话框用于获取文件名，有两种类型：“打开”和“另 存为”对话框。在这两种对话框窗口内，可以遍历磁盘的整 个目录结构，找到所需文件，并返回用户选择或输入的文件 名。 使用“打开”和“另存为”对话框需要设置的属性主要有: （1）FileName：值为字符串，用于设置或获取用户所选的 文件名（包括路径）。 （2）FileTitle：文件标题。设计时无效，运行时只读，返回 不包含路径的文件名。 （3）Filter：过滤器。用于过滤文件类型，使文件列表框中 只显示指定文件类型的文件。该属性的设置格式如下（其中 竖线 | 是必须要有的语法成分）： 文件说明1 | 文件类型1 [ |文件说明2 | 文件类型2 ...]
4.3.1 在ImageList控件中添加图像
ImageList控件包含了一个图像的集合，它专门用 来 为 其 他 控 件 提 供 图 像 库 。 特 别 是 ListView， TreeView，TabStrip 和 Toolbar 等 控 件 都 是 从 其 中获取图像。在利用Toolabar控件制作工具栏时， 其中按钮的图像就是从ImageList的图像库中获得。 在窗体上添加ImageList控件后，其默认名为 ImageList1，右击该控件，从弹出菜单中选择 【属性】，然后在【属性页】对话框选择【图像】 选项卡。
4.2.1 菜单编辑器
打开【菜单编辑器】对话框后，其界面如图4-3所 示。
4.2.2 利用菜单编辑器创建菜单栏
利用菜单编辑器创建菜单栏实际上就是根据设计的菜单 栏结构逐个创建每一菜单项。 1. 创建菜单项 （1）在标题栏输入该菜单项的文本。
（2）在名称栏输入程序中要引用该菜单项的名称（类似 于控件的Name）。
4.3.3 为Toolbar 控应的代码，这样 按钮才能起作用。 Toolbar控件常用的事件有两个：ButtonClick和 ButtonMenuClick。前者对应按钮样式属性为0~2， 后者对应样式为５的菜单按钮。 实际上，工具栏上的按钮是控件数组。单击工具 栏上的按钮会发生ButtonClick或 ButtonMenuClick事件。我们可以利用数组的索 引（Index属性）或关键字（Key属性）来识别被 单击的按钮，再使用Select Case语句完成代码编 写。
4.3.2 在Toolbar控件中添加按钮
Toolbar工具栏可以建立多个按钮。每个按钮的 图像来自ImgeList控件中插入的图像。 1. 为工具栏连接图像 在窗体上添加Toolbar控件后，右击该控件，在 快捷菜单中选择【属性】，打开【属性页】对话 框，选择【通用】选项卡。 2. 为工具栏增加按钮。 在Toolbar属性页选择【按钮】选项卡，打开如 图4-9所示的该选项卡界面。单击【插入按钮】， 可以在工具栏中增加按钮。
4.2.3 运行时修改菜单项
3. 在菜单上使用复选标记
可以用Checked属性来创建复选标志（√）。设 计时通过选取菜单编辑器中的【复选】 （Checked）复选框来设置菜单控件Checked属 性的初始值。在运行时要在一个菜单控件上增加 或删除复选标志，可以从代码中设置它的Cheked 属性。
4.1.2 ”记事本”设计思路
“记事本”程序的设计思路是：
1. 在窗体上添加一个RichTextBox控件作为文本 编辑区，文本编辑、显示均在其中进行；
2. 利用VB菜单编辑器设计一个菜单栏，来对所 编辑的文本进行保存或其他操作，也可将一个已 经存在的文本文件打开显示在文本编辑区中，并 进行进一步编辑； 3. 在窗体上创建一个工具栏，运行时通过单击工 具栏按钮完成对文本的基本操作
4.3工具栏设计
Toolbar和ImageList控件都是ActiveX控件，使用这些控 件前必须先将其添加到工具箱中。添加的方法有两种： （1）选择【工程】菜单→【部件】命令→弹出对话框， 在对话框的【控件】选项卡中选中Microsoft Windows Common Control 6.0选项，单击【确定】。 （2）用鼠标右击工具箱，弹出快捷菜单，选【部件】命 令。后续操作同上。 执行上述操作后，工具箱中将添加如图4-7所示的9个图标， Toolbar和ImageList控件即在其中。
4.3工具栏设计
在基于Windows操作系统的应用程序中，一般都 是将最常用的命令以按钮的形式集合在一起，以 方便用户的操作，这就是工具栏。 制作工具栏有两种方法：一是手工制作。即利用 图片框和命令按钮，比较烦琐，本书不予讨论。 另一种方法是通过组合使用Toolbar和ImageList 控件来建立，这种方法简单、快捷，容易学习。