Excel VBA 编程 向窗体添加控件
当窗体创建后，用户就可以将需要的控件，添加到该窗体中，以完成与用户的的交互，从而使该窗体具有实际的意义。下面就来介绍向用户窗体中添加控件的方法。
要把控件添加到用户窗体中，可在【控件工具箱】中单击要添加到控件，然后在用户窗体中单击即可将其添加到窗体中。
例如，在【控
件工具箱】中单击“标签”控件，这时，鼠标指针将变为一个加号“+”和该控件的图标的样式，然后在用户窗体中单击或拖动绘制该控件。如图12-2所示。
图12-2 添加【标签】控件
从上述的操作中可以看出，用户窗体实际上就是一个容器对象，用户可以将添加到用户窗体中的控件进行统一的管理与操作。控件添加后，还可以移动和改变控件的大小等。
添加到用户窗体的控件，其标题的命名规则为英文加数字的形式，再次添加该控件时，VBE 将控件的名称命名为当前用户窗体中的该控件的最大的默认名称数字加1。如在窗体中再添加一个标签控件，则标签的名称和标题将自动命名为“Label2”。
提 示 如果【控件工具箱】没有显示出来，可执行【视图】｜【工具箱】命令。 单击
标签控件
绘制
ExcelVBA用户窗体编程基础 概述 当使用MsgBox函数和InputBox函数不能满足与用户交互的需求时，您能使用用户窗体来自定义对话框。您能使用用户窗体来显示所输入的数据，您甚至能使用用户窗体创建一个完整的用户界面，而不会让用户接触到电子表格本身。 您在Windows对话框中所看到的大多数控件都能在用户窗体中实现——命令按钮，选项按钮，复选框，文本框，组合框——加上一些其它不常用的控件像图像，日历，等等。 本文介绍了用户窗体的基本概念，并介绍了使用用户窗体的常用技术。其中，也讲解了一些最通用的思路。在文章中列举了一个包含所有过程的完整的示例文件，以及实现这些过程的代码，让您能在实践中看到所有工作的基本原理和方法。 本文包含以下内容： ● 基本的用户窗体操作 ● 用户窗体和控件的属性 ● 一个用户窗体的生命周期 ● 用户窗体和控件的事件 ● 问题1：如何在用户窗体间传递数据？ ● 问题2：如何找到我的窗体中的某类控件？ ● 问题3：如何获取数据到列表框中？ ● 问题4：如何为循环创建进度条？ ● 一个完整的用户窗体综合示例 基本的用户窗体操作 ?创建一个窗体。打开VBE编辑器(选择菜单“工具——宏——Visual Basic编辑器”或按Alt+F11组合键)，选择菜单“插入——用户窗体”，或者在工程窗口中单击右键，从弹出的快捷菜单中选择“插入——用户窗体”，即可创建一个窗体。 ?添加控件。当你创建了一个窗体后，将会显示一个名为“控件工具箱”的浮动工具箱(如果没有该工具箱的话，您可以从视图菜单中找到它)，其中显示了最普遍的控件类型。单击您想要的控件，拖动它到您的用户窗体中。 ?更多的控件。有一些更多的可用的控件，您可以在控件工具箱中单击右键，从中选择“附加控件”，您能添加日历、电子表
第6章控件与用户窗体 范例67 文本框只能输入数值 Private Sub TextBox1_KeyPress(ByVal KeyANSI As MSForms.ReturnInteger) With TextBox1 Select Case KeyANSI Case Asc("0") To Asc("9") Case Asc("-") If InStr(1, .Text, "-") > 0 Or .SelStart > 0 Then KeyANSI = 0 End If Case Asc(".") If InStr(1, .Text, ".") > 0 Then KeyANSI = 0 Case Else KeyANSI = 0 End Select End With End Sub Private Sub TextBox1_Change() Dim i As Integer Dim Str As String With TextBox1 For i = 1 To Len(.Text) Str = Mid(.Text, i, 1) Select Case Str Case ".", "-", "0" To "9" Case Else .Text = Replace(.Text, Str, "") End Select Next End With End Sub
范例68 限制文本框的输入长度 Private Sub TextBox1_Change() TextBox1.MaxLength = 6 End Sub 范例69 验证文本框输入的数据 Private Sub CommandButton1_Click() With TextBox1 If (Len(Trim(.Text))) = 15 Or (Len(Trim(.Text))) = 18 Then Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = .Text Else MsgBox "身份证号码错误，请重新输入!" End If .Text = "" .SetFocus End With End Sub 范例70 文本框回车自动输入 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim r As Integer r = Cells(Rows.Count, 1).End(xlUp).Row With TextBox1 If Len(Trim(.Text)) > 0 And KeyCode = vbKeyReturn Then Cells(r + 1, 1) = .Text .Text = "" End If End With End Sub 范例71 文本框的自动换行 Private Sub UserForm_Initialize() With TextBox1 .WordWrap = True
第1章设计简单应用程序随着计算机应用的普及和Windows操作系统的出现，大量的应用程序希望用户界面友好，操作简捷。Windows应用程序的主要特点是： （1）使用图形用户界面（GUI，Graphical User Interface）； （2）使用面向对象方法编程； （3）基于消息驱动程序。 微软的.NET框架提供了编写Windows应用程序的全面支持。 Windows应用程序设计主要完成两部分工作：界面设计和程序功能设计。 https://www.doczj.com/doc/d614732830.html,框架 .NET是微软公司2000年推出的面向互联网时代构筑的新一代平台，微软公司开发了一整套基于.NET框架（.NET Framework）设计的工具组件，集成到Visual https://www.doczj.com/doc/d614732830.html,（简称https://www.doczj.com/doc/d614732830.html,）开发环境中，用于开发基于.NET平台的应用程序。 .NET框架有两个主要的组件：公共语言运行时（CLR，Common Language Runtime）和.NET框架类库（FCL，Framework Class Library）。 公共语言运行时 CLR是一个公共语言运行库，通常直译为公共语言运行时。 CLR支持多种语言，提供了各种语言的互操作性。 CLR提供了公共类型系统（CTS，Common Type System），对数据类型提供了定义、管理和使用的严格说明；提供了代码必须遵守公共语言规范（CLS，Common Language Standard）。 CLR运行的代码称为托管代码，在CLR控制之外的代码称为非托管代码。 C++，ISO/ANSI标准，非托管的C++设计 C++/CLI标准，为CLR托管程序而设计。CLI（Common Language Infrastructure）https://www.doczj.com/doc/d614732830.html,提供了两种代码的互操作，允许程序员在项目中的不同程序模块之间，甚至同一个文件中混合使用托管（C++/CLI）代码和非托管（C++）代码。不同语言编写的组件也可以进行交互。这体现了https://www.doczj.com/doc/d614732830.html,的强大。 .NET框架类库 .NET框架类库FCL是一个与公共运行时紧密集成、可重用的类的集合。包括类、接口、结构和枚举 .NET框架类库使用CTS数据和CLS规范 .NET框架类库包含了将近100个命名空间
第2章使用窗体控件 课堂练习：为控件创建事件处理程序 5）传递给这个事件处理程序的第二个参数(e)的目的是什么？ 答：参数e包含事件数据。它是一个EventArgs 对象（实际不包含事件数据的基类），或者是一个派生类（像MouseEventArgs）的实例。要查看派生类的完整列表，请在Visual Studio .NET帮助文档中使用短语“EventArgs 类”进行查找，然后点击链接转到“派生类”。 ●为Click 事件创建一个事件处理程序。 3）上面的双击动作为什么创建了一个Click 事件处理程序？ 答：当在设计视图中双击一个控件时，IDE会自动为默认事件创建一个事件处理程序。课堂练习：创建和使用ToolBar控件 8）为什么不能向ToolBar 按钮添加图像呢？ 答：ToolBar 控件将ImageList 控件作为图像源。使用ToolBar 控件的ImageList 属性指定Toolbar 将从哪个ImageList 控件获取图像。 13）运行应用程序。单击工具栏按钮时有事情发生吗？必须处理什么事件以响应单击ToolBar按钮？ 答：ToolBar 的ButtonClick事件用来处理ToolBar按钮的单击。ToolBarButtonClickEventArgs 用来确定单击了哪个按钮。 课堂练习：在运行时添加和移除控件 ●添加新控件 6）为什么decimalCheckBox 出现在GroupBox1控件的左上角？ 答：控件位置属性的默认坐标X和Y的值均为零。 课堂练习：在运行时更新菜单 ●使用另一个MainMenu 9）什么时候能在一个应用程序中使用多个MainMenu 控件? 答：在应用程序的上下文改变或者应用程序有多种状态时，使用（显示）多个MainMenu 对象会很有帮助。 ●将一个ContextMenu 分配给一个控件。 5）如何找出哪个控件与ContextMenu 有关联？ 答：ContextMenu.SourceControl 属性获取显示快捷方式菜单的控件。 ●找出与ContextMenu关联的控件
C#中用户控件与窗体间的消息传递 如果在c#中实现用户定义控件内的事件挂勾到调用的窗体事件中 我们都知道在https://www.doczj.com/doc/d614732830.html,开发中，如果使用用户定义控件可以有效的进行程序的模块化。其实在.net 的winform中也是可以使用的。 细节如下： 1、新建应用程序windowsapplication1。 2、添加新的用户控件userlogin。（如图user） 3、定义用户属性 //定义属性 public string username { get{return username;} set{username=value;} } public string password { get{return password;} set{password=value;} } 4、定义委托 //定义委托 public delegate void btnokclickeventhander(object sender,eventargs e); public delegate void btncancelclickeventhander(object sender,eventargs e); 5、定义事件 //定义事件 public event btnokclickeventhander btnokclick; public event btncancelclickeventhander btncancelclick 6、事件实现 private void textboxuid_textchanged(object sender, system.eventargs e) { username=this.textboxuid.text; } private void textboxpwd_textchanged(object sender, system.eventargs e) { password=this.textboxpwd.text; } private void buttonok_click(object sender, system.eventargs e) { if (btnokclick!=null)
目录 C#控件前缀名大全 (1) 2.Windows窗体设计概念及原则 (7) C#控件前缀名大全 标准控件 1 btn Button 2 chk CheckBox 3 ckl CheckedListBox 4 cmb ComboBox 5 dtp DateTimePicker 6 lbl Label 7 llb LinkLabel 8 lst ListBox 9 lvw ListView 10 mtx MaskedTextBox 11 cdr MonthCalendar 12 icn NotifyIcon 13 nud NumeircUpDown 14 pic PictureBox 15 prg ProgressBar 16 rdo RadioButton 17 rtx RichTextBox
18 txt TextBox 19 tip ToolTip 20 tvw TreeView 21 wbs WebBrowser 容器控件 1 flp FlowLayoutPanel 2 grp GroupBox 3 pnl Panel 4 spl SplitContainer 5 tab TabControl 6 tlp TableLayoutPanel 菜单和工具栏 1 cms ContextMenuStrip 2 mns MenuStrip 3 ssr StatusStrip 4 tsr ToolStrip 5 tsc ToolStripContainer 6 cmu ContextMenu 数据 1 dts DataSet 2 dgv DataGridView 3 bds BindingSource 4 bdn BindingNavigator 5 rpv ReportViewer
第二章窗体与基本控件 教学内容： 一、窗体 窗体的属性、事件、方法及应用举例 二、基本控件以及对控件的格式化 命令按钮、标签、文本框等基本控件属性、事件与方法，基本控件的添加/删除、调整控件的大小与位置、窗体与控件的布局调整 三、简单语句 Print方法、人机对话函数（InputBox,MsgBox,Cls,End,Stop,Rem语句）、基本格式、功能、举例说明。教学要求： 了解：控件的格式化 掌握：常用控件（窗体、文本框、标签、命令按钮）的常用属性、事件和方法、Print方法、Inputbox、Msgbox、Cls、End语句的使用方法 §2.1 窗体 1．窗体的基本属性 Name 对象的名称 指定窗体的名称，在程序代码中用这个名称引用该窗体。 第一个窗体的名称缺省值为form1，通常要给name属性设置一个有实际意义的名称，便于识别。 Caption 对象的标题 设置窗体标题栏显示的文本。 Height 对象的高度 Width 对象的宽度 设置窗体的高度和宽度。单位为Twip。 1Twip=1/20点＝1/1440英寸＝1/567cm Enabled 对象的激活或禁止 用来设置窗体是否响应鼠标或键盘事件。缺省时为True，窗体能够对用户产生的事件作出反映。 Visible 对象的可见性 设置窗体是否显示。True（窗体可见），False（运行时，窗体及其上面的对象都将被隐藏） Top 对象的顶边距离 Left 对象的左边距离 Backcolor 设置窗体的背景颜色； Forecolor 设置窗体的前景颜色。 Font 设置窗体上字体的样式，大小，字形等。 Picture 设置在窗体中显示的图片。 注意：要在程序中设置该属性的值，需要使用LoadPicture函数。 WindowStare属性设置窗体运行时的大小状态。有三个可选值： 0－Normal 窗体大小由Height和Width属性决定，此值为缺省值； 1－Minimized 窗体最小化成图标； 2－Maximized 窗体最大化，充满整个屏幕。 2．窗体的事件和方法 事件： Click（单击）事件：单击鼠标左键时触发 DblClick（双击）事件：双击窗体时触发 Load（装入）事件：窗体被装入工作区时触发 方法： Print 格式：[对象名.] Print [表达式列表][;|,] 功能：在对象上输出信息 例如：Form1.Print “VB”;”程序设计” Cls 格式：[对象名.] Cls
用https://www.doczj.com/doc/d614732830.html,设计各种形状的窗体界面一 文章来源：互联网 窗体是程序设计最常见，最普通，也是最容易受到程序员忽视的编程对象。一般来说，在Visual Basic .Net针对窗体的编程是不需要人为介入的，因为可视化编程工具Visual Studio .Net已经按照窗体的缺省状态实现了。但是在最近遇到的应用程序中。我们发现越来越多的应用程序中使用到各种不同规则的窗体，这些不同规则的窗体给应用程序带来异常的情趣和不同平常的效果的同时，也促使使用者思考这样一个问题，如何创建这些窗体？在Visual Basic .Net中提供了一种简单、直接创建不规则窗体的方法，本文的主要内容就是探讨一下这些方法具体的实现过程。下面就来详细介绍在Visual Basic .Net 中实现五种不同规格窗体的方法，即：椭圆形、扇形、圆形、环形和三角形。掌握了这五种不同形状窗体的实现方法后，我想对于其他规则的窗体就不应该有什么问题了。 Visual Basic .Net中创建、使用MDI窗体也是本文的重要内容之一，MDI是Multi Document Interface的简称，即：多文档界面，MDI最早出现于Windows 2.0中，最先使用到MDI的应用程序是E xcel电子表格。为了方便使用者同时能够操作多份电子表格，Excel 就采用了MDI来解决这个问题。到了Windows3.1中，MDI在应用程序中得到了更大范围的应用。其中Windows 3.1中的程序管理器和文件管理器都采用了MDI。目前MDI在应用程序中依然被广泛采用。
下面就首先来介绍一下Visual Basic .Net创建不规则窗体的相关知 识和具体实现方法。 一．简介Visual Basic .Net中定制不规则窗体时使用的类库：Visual Basic .Net中定制不规则窗体主要使用到Region类和G raphicsPath类，其中以GraphicsPath类最为重要。GraphicsPath类和Region类分别位于.Net FrameWork SDK中的"System.Drawing.Drawi ng2D"命名空间和"System.Drawing"命名空间。在Visual Basic .Net 中具体实现各种不规则窗体的过程中，GraphicsPath主要作用是根据程序员的要求，通过GraphicsPath中提供的方法绘制不同规则的形状。Region的主要作用是依靠GraphicsPath实例来初始化Region对象，从而形成不规则窗体。 其具体的实现过程是，首先通过GraphicsPath类构造函数创建GraphicsPath实例，然后通过GraphicsPath中提供的方法按照程序员的要求绘制形状，最后以GraphicsPath实例来初始化Region对象。完成不规则窗体。可见了解、掌握GraphicsPath类对于理解本文介绍的实现方法是非常必要的。表01和表02分别是GraphicsPath类的常用方法和常用属性及其说明：
若要向用户窗体中添加控件，请在“工具箱”中查找要添加的控件，将该控件拖到窗体上，然后拖动控件上的调整柄，直至控件的外边框成为所需的大小和形状。 注意如果将控件（或若干“成组”的控件）从窗体拖回到“工具箱”，将创建该控件的一个模板，该模板可被重新使用。对于实现应用程序的标准界面，这是非常有用的功能。 向窗体添加了控件之后，可用 Visual Basic 编辑器中“格式”菜单上的命令调整控件的对齐方式和间距。 上页：Excel VBA教程：向文档中添加控件下页：Excel VBA教程：应用程序对象事件 Excel VBA Excel VBA教程：应用程序对象事件Excel VBA教程：图表对象事件 Excel VBA教程：控件和对话框事件Excel VBA教程：在某一 Microsoft Office 应用程序中控制其他 Microsoft Office 应 用程序 Excel VBA教程：创建自定义对话框Excel VBA教程：新建工作簿 Excel VBA教程：创建“用户窗体”Excel VBA教程：显示自定义对话框 Excel VBA教程：获取有关 Macintosh 关键 字的帮助 Excel VBA教程：在单元格区域中循环Excel VBA教程：如何引用单元格和区域Excel VBA教程：初始化控件属性Excel VBA教程：打开工作簿Excel VBA教程：QueryTable对象事件 Excel VBA教程：引用工作表上的所有单元格Excel VBA教程：用 A1 样式记号引用单元格 和单元格区域 Excel VBA教程：用编号引用单元格Excel VBA教程：相对于其他单元格来引用单 元格 Excel VBA教程：用 Range对象引用单元格Excel VBA教程：用快捷记号引用单元格
第4章 1.回顾 桌面应用程序中的单选按钮的使用 可以使用分组框对控件进行分组 用PictureBox可显示图片 Timer控件是用于计时的计时器控件，可以重复执行Tick事件 滚动条可滚动取值，用进度条可记录某一过程的进度情况 用选项卡控件可对窗体上的控件进行分类 2.本章内容 了解SDI、MDI窗体 掌握TreeView控件 3.本章重点 了解SDI、MDI窗体 掌握TreeView控件 4.本章讲课思路 什么单文档、什么是多文档 多文档窗体的作用 如何创建多文档窗体 treeview控件 节点集和节点对象 5.知识点讲解 01.知识点一：MDI窗体 a)讲解思路： 1)什么是窗体，应用程序的用户界面，多文档窗体有是什么样的窗体？ 2)SDI、MDI窗体的区别 3)如何创建多文档窗体 4)MDI主窗体的属性、方法和事件 5)操作MDI子窗体 6) b)讲解要点：
如何创建多文档窗体 MDI主窗体的属性、方法和事件 操作MDI子窗体 c)课堂练习： 创建一个winform登录程序主窗体编译并运行 d)小结： MDI多文档窗体，就是可以在一个界面中同时对多个文档进行操作 02.知识点一：TreeView控件 a)讲解思路： 什么数树形菜单 Windows 资源管理器中左窗格所包含的目录和文件是以树型视图样式排列的 Treeview 控件的作用。 用于以节点形式显示文本或数据，这些节点按层次结构顺序排列 节点集和节点对象 节点的常用属性和方法和事件 b)讲解要点： 节点集和节点对象 节点的常用属性和方法和事件 c)课堂练习： 在主窗体中添加treeview控件 d)小结： Treeview 控件的作用。 用于以节点形式显示文本或数据，这些节点按层次结构顺序排列 节点集和节点对象 03.课堂总结 a)思路： 04.掌握多文档窗体的创建及使用 05.使用树视图显示有层次结构的数据 06.作业： 课堂作业：编写登陆主窗体。 课后作业：书上日记本练习
用户窗体的基础知识用户窗体的显示方式用于以编程方式显示用户窗体的语法是下列： UserFormName.Show 若要显示名为 UserForm1 用户窗体，使用以下代码： UserForm1.Show ，您可以加载到内存用户窗体而不实际显示它。可能需要复杂的用户窗体多个要显示的秒数。因为您可以预先用户窗体加载到内存中，您可以决定何时会导致这种开销。而不显示它加载 到内存的 UserForm1，使用下面的代码： Load UserForm1 显示用户窗体，您必须使用了以前显示的显示方法。 如何暂时隐藏用户窗体如果要暂时隐藏用户窗体，使用隐藏方法。您可能希望隐藏用户窗体，如果您的应用程序涉及到用户窗体之间移动。若要隐藏用户窗体，使用下面的代码： UserForm1.Hide 如何从内存中删除用户窗体若要从内存中删除用户窗体使用卸载语句。若要卸载 UserForm1 命名的用户窗体，使用下面的代码： Unload UserForm1 如果您卸载了用户窗体与用户窗体相关联，则与在用户窗体上某个控件关联的事件过程中(渚嬪的方式 单击命令按钮），可以使用"Me"关键字而不是用户窗体的名称。若要使 用"Me"关键字卸载用户窗体，使用下面的代码： Unload Me 如何使用用户窗体事件用户窗体支持许多预定义的事件，您可以将附加 VBA 过程。该事件时则该过程，您附加到该事件的运行。由用户执行的单个操作可以启动多个事件。最经常使用的用户窗体的事件包括初始化事件、， Click 事件和终止事件。 请注意VBA 模块包含事件过程可能被称为"隐藏"用户窗体模块。在模块包含事件过程中不可见 Visual Basic 编辑器的 Microsoft 项目资源管理器窗口的模块集合。您必须双击 用户窗体可以查看用户窗体代码模块的正文。 如何捕获用户窗体事件要捕获用户窗体事件，请按照这些步骤操作： 1.在 Excel 中创建一个新的工作簿。 2.在工具菜单上指向宏，然后单击Visual Basic 编辑器。
第1章 使用窗体和控件 为了便于程序与用户间的交互，可以在Excel中创建独立的窗体，在其中添加一些控件，这样就可以让用户像使用Excel内置对话框一样，来使用窗体。不但减少了数据输入的麻烦，而且也使操作界面更加友好。本章将介绍窗体和控件的知识。 1.1Excel中的两类窗体 为了简化输入，可以在Excel工作表中通过添加控件的方式，制作一个交互性极强的表单系统。如图1-1所示的工作表也许您以前曾经看到过，它就是一个工作表窗体，其中放置了一些控件，使得输入与选择数据变得非常简单。这非常适合于开发人员给客户提供的最终Excel应用程序。 在Excel中进行各种操作时，经常会遇到在一个弹出的对话框中选择某个选项或输入某些内容而得到设置结果。如果希望自己定制对话框的外观及可用选项，那么就需要创建用户窗体。如图1-2所示为一个根据用户选择的选项来查询图书的一个查询窗体。 图1-1 一个工作表窗体的例子图1-2 一个用户窗体的例子本章剩下的部分将先介绍创建用户窗体的步骤和方法，然后介绍在工作表中使用控件的方法和技巧。 1.2使用InputBox和MsgBox函数代替窗体 在前几章中，我们已经多次用到了InputBox和MsgBox函数。使用这两个函数可以显
示简单的对话框。因此，如果不需要特别定制复杂的窗体，而只是获取用户的输入或返回一条信息，那么就可以使用InputBox和MsgBox函数来完成。 1.2.1InputBox InputBox函数分为两种，一种是VB程序中的InputBox函数，另一种是Excel中Appl ication对象的InputBox方法。它们都可以显示一个输入框，用于获取用户的输入信息，然后将返回结果赋值给一个变量以进行其他操作。Excel中的Application对象的InputBox方法比VB程序中的InputBox函数有更强大的功能。 VB程序中的InputBox函数的语法如下： InputBox(prompt, title, default, xpos, ypos, helpfile, contex t) InputBox函数中各参数的作用如下： prompt：显示在输入对话框中的文本（必选）。 title：显示在输入对话框标题栏中的文本（可选）。 default：显示在输入对话框的文本框中的默认值（可选）。 xpos和ypos：窗口左上角的屏幕坐标值（可选）。 helpfile：输入对话框中的帮助文件（可选）。 context：输入对话框中的帮助主题（可选）。 在使用InputBox函数时，通常只会使用前3个参数或者只使用前两个参数，得到如下的简化版本： InputBox(prompt, title, default) 例如，下面的代码将根据用户输入的内容返回一条信息： Sub GetInfo() Dim Ans As String Ans = InputBox("请输入", "输入信息") MsgBox "您输入的信息是：" & Ans End Sub 运行上面的代码，将显示如图1-3所示的对话框。当用户输入一个内容并单击【确定】按钮，将在一个对话框中显示所输入的内容。 图1-3 使用VB的InputBox函数打开的输入对话框 如果在上个例子中用户未输入任何内容或单击【取消】按钮，那么InputBox函数都将返回一个空字符串。为了强制要求用户输入内容，可以设置一个Do While循环，只要输
（二）主界面窗体设计 “主界面”窗体的功能是实现与其他窗体和报表的连接，系统用户可以根据自己的需要，单击相应的按钮选择操作。下面介绍该窗体的创建步骤。 1.窗体界面设计 新建一个窗体，命名为“主界面”。按照图4-2所示，设计“主界面”窗体中的各个控件，控件的主要属性如表4-2所示。 图4-2 “主界面”窗体
（三）用户管理窗体设计 “用户管理”窗体可以对用户名和密码进行添加、删除或更改等操作，下面介绍该窗体的创建步骤。 1.窗体界面设计 使用向导创建一个新的窗体，用户管理窗体的控件属性如表4-3所示，界面如图4-3所示。 图4-3 用户管理窗体设计视图
2.添加按钮事件代码 利用命令按钮向导为“编辑用户”、“添加用户”、“删除”、“撤销修改”和“保存修改”按钮添加处理函数，这些命令按钮实现对用户信息进行操作，实现过程如下。 （1）窗体初始化。 初始化窗体，设置窗体加载时命令按钮是否可用和文本框的状态等，代码如下： Option Compare Database Public flag As Integer Private Sub Form_Load() '设置窗体加载时的属性 cmdedit.Enabled = True cmdadd.Enabled = True cmddel.Enabled = False cmdsave.Enabled = False cmdcancle.Enabled = False cmdfirst.Enabled = True cmdbefore.Enabled = True cmdnext.Enabled = True cmdlast.Enabled = True flag = 0 txtpassword = "" Form.AllowEdits = True 用户名.Locked = True 密码.Locked = True 备注.Locked = True Form.AllowDeletions = False Form.AllowAdditions = False Form.RecordLocks = 0 End Sub （2）响应“编辑用户”按钮单击事件代码。 单击“编辑用户”按钮，判断操作人员是否有权限编辑已经存在的用户信息，若密码正确可对用户修改，否则系统显示错误的提示信息，并要求用户重新输入密码，代码如下：Private Sub cmdedit_Click() '通过密码确认判断使用者是否有权利编辑此用户 If txtpassword.Value <> 密码Then MsgBox "确认密码不对，无法编辑，请再次输入确认密码" '设置txtpassword内容为空，并使其获得焦点
目录 VBA常用技巧.................................................... 第8章控件与用户窗体...................................... 技巧1.................................................................... 限制文本框的输入 技巧2........................................................ 文本框添加右键快捷菜单 技巧3................................................................ 文本框回车自动输入 技巧4................................................................ 自动选择文本框内容 技巧5................................................................ 设置文本框数据格式 技巧6............................................................ 限制文本框的输入长度 技巧7................................................................ 将光标返回文本框中 技巧8.................................................................... 文本框的自动换行 技巧9................................................................ 多个文本框数据相加 技巧10.............................................................. 控件跟随活动单元格 技巧11.......................................................................... 高亮显示按钮 技巧12...................................... 组合框和列表框添加列表项的方法12-1....................................... 使用RowSource属性添加列表项 12-2................................................. 使用List属性添加列表项 12-3........................................... 使用AddItem方法添加列表项技巧13...................................... 去除列表框数据源的重复值和空格 技巧14...................................................................... 移动列表框条目 技巧15.......................................................... 允许多项选择的列表框
实验5、窗体与控件 实验课时： 课内：2课时，课外：2课时 实验目的： 掌握用户界面设计的原则与方法，熟练使用窗体及常用控件的属性、事件和方法来处理业务。 实验内容： 项目A ：界面设计之4S 店服务公告 Christopher 汽车中心开展与车辆有关的一切业务，包括新车、二手车的租售、汽车的保养和修理、零件的销售及洗车等等。本项目要做的，就是为该中心设计一个程序来显示各部门的最新通知。该项目仅包含一个窗体，最终的窗体运行时截图类似： 实验内容、具体要求及步骤为： 1. 在计算机D 或E 分区创建“你的文件夹”（类似“198009010101文立斌”） 2. 启动Visual Studio 2010，在“你的文件夹”内创建一个解决方案（项目），解决方案 （项目）名称类似“文立斌A ”，窗体名称类似“frm 文立斌A ” 3. 如以上运行时截图及下图所示，窗体顶部设计两个Label （标签）控件，其中左边的Label 图片、数据库资源请垂询894867898@https://www.doczj.com/doc/d614732830.html,
显示静态文字“Special Notices：”，右边的Label将用于动态显示4S店的各种通知： 4.之后，如以上运行时截图及下图所示，请在窗体上设计一个文字内容为“Hours”的 CheckBox（复选框）控件，其右边设计一个Label控件。CheckBox控件最常用的事件是CheckedChanged（选择已发生变化），最常用的属性自然是Checked（是否已选中）。 现在，请为该控件的CheckedChanged事件编写必要的代码，使得该控件已被选中时，其右边的Label控件中显示文字“Open 24 Hours – 7 days a week”，反之则不显示任何文字： 提示：检查CheckBox的Checked属性值是true还是false，并根据该属性的值设置右边Label控件的Text属性即可——不要告诉我Text属性是干什么的哦！ 5.往下则设计四个PictureBox（图片框）控件，每个图片框上方各设计一个Label来指 出图像所代表的部门：Auto Sales，Service，Detail，Employeement Opportuniti： 图片来源： 图片控件图像文件名称 Auto Sales Cars.ico Service Center Wrench.ico Detail Shop Water.ico Employeement Opportuniti Mail12.ico 注意：先将这些图片文件复制到你的文件夹内，再按如下步骤设置每个PictureBox的Image（图像）属性： ①右键单击Image属性旁边的按钮 ②在系统显示的“选择资源“对话框中，选中“本地资源”复选框、单击【导入】按 钮，最后单击【确定】按钮 6.如下图所示，友好的程序设计要求为这里的四个控件都添加浮动提示文字： 如何设置哩？ ①从工具箱往窗体上拖一个名为ToolTip（工具提示）的不可视组件，这个组件在后 台服务，为窗体或其控件提供浮动提示，添加该控件后，您将发现，窗体底部多了 一个不可视的组件对象： 而窗体及控件的属性中都多了一个有点另类的属性：
目录 VBA常用技巧 ................................................................................................. 错误！未定义书签。 第8章控件与用户窗体 (4) 技巧1限制文本框的输入 (4) 技巧2文本框添加右键快捷菜单 (6) 技巧3文本框回车自动输入 (10) 技巧4自动选择文本框内容 (11) 技巧5设置文本框数据格式 (12) 技巧6限制文本框的输入长度 (14) 技巧7将光标返回文本框中 (15) 技巧8文本框的自动换行 (17) 技巧9多个文本框数据相加 (19) 技巧10控件跟随活动单元格 (20) 技巧11高亮显示按钮 (21) 技巧12组合框和列表框添加列表项的方法 (23) 12-1使用RowSource属性添加列表项 (23) 12-2使用List属性添加列表项 (24) 12-3使用AddItem方法添加列表项 (25) 技巧13去除列表框数据源的重复值和空格 (27) 技巧14移动列表框条目 (29) 技巧15允许多项选择的列表框 (32) 技巧16多列组合框和列表框的设置 (35) 16-1多列组合框和列表框添加列表项 (35) 16-2多列列表框写入工作表 (37) 技巧17输入时逐步提示信息 (39) 技巧18二级组合框 (46) 技巧19使用DTP控件输入日期 (48) 技巧20使用RefEdit控件选择区域 (51) 技巧21如何注册控件 (52) 技巧22遍历控件的方法 (55) 22-1使用名称中的变量遍历控件 (55) 22-2使用对象类型遍历控件 (57) 22-3使用程序标识符遍历控件 (58) 22-4使用名称中的变量遍历图形 (59) 22-5使用FormControlType属性遍历图形 (60) 技巧23使微调框最小变动量小于1 (61) 技巧24不打印工作表中的控件 (63) 24-1设置控件格式 (63) 24-2设置控件的printobjcet属性 (65) 技巧25在框架中使用滚动条 (65) 技巧26使用多页控件 (67) 技巧27标签文字垂直居中对齐 (69)