vba控件常规使用

UserForm 基础

如何显示 UserForm

以下是用于显示 UserForm 编程语法是：
UserFormName .Show
要显示名为 UserForm1, UserForm 使用以下代码： 
UserForm1.Show
不显示它实际上还能加载 UserForm 装入内存。 复杂 UserForm 可能需要几秒钟以显示。 因为预先您能加载到内存, UserForm 可决定何时导致此开销。 要加载到内存 UserForm1 不显示它, 使用以下代码： 
Load UserForm1
若要显示 UserForm, 必须使用以前已显示 显示 方法。

如何以暂时隐藏 UserForm

如果要暂时隐藏 UserForm, 使用 隐藏 方法。 可能想要隐藏 UserForm 如果应用程序涉及用户窗体之间移动。 要隐藏 UserForm, 使用以下代码： 
UserForm1.Hide
 

如何从内存删除 UserForm

要从内存, 删除 UserForm 使用 Unload 语句。 要卸载， 名为 UserForm1, UserForm 使用以下代码： 
Unload UserForm1
如果您卸载 UserForm， 是与 UserForm 或者， 是与 UserForm 上控件的事件过程中 （例如, 您单击 CommandButton 控件）, 您可以使用 " 我 " 关键字代替的 UserForm 名称。 将关键字用于卸载 UserForm, " Me " 使用以下代码： 
Unload Me

如何使用 UserForm 事件

支持许多预定义事件， 可以附加到 VBA 过程。 在事件发生时, 该附加到事件过程运行。 单个操作由用户执行可初始化多事件。 之间最经常对 UserForm 使用事件是 Initialize 事件、 Click 事件, 和 Terminate 事件。

注意 包含事件过程 Visual Basic 模块可能称为 " 后面 " UserForm 模块。 模块包含事件过程是不可见的 VisualBasic 编辑器 Project MicrosoftInternetExplorer 窗口 Modules 集合中。 您必须双击正文部分 UserForm 以查看 UserForm 代码模块。

如何捕获 UserForm 事件

要捕获 UserForm 事件, 请按照下列步骤操作：
1. Excel 中创建新工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 双击以显示代码窗口对于 UserForm UserForm 。
5. 模块, 中键入如下代码： 
Private Sub UserForm_Click()

            Me.Height = Int(Rnd * 500)

            Me.Width = Int(Rnd * 750)

            End Sub

            Private Sub UserForm_Initialize()

            Me.Caption = "Events Events Events!"

            Me.BackColor = RGB(10, 25, 100)

            End Sub

            Private Sub UserForm_Resize()

            msg = "Width: " & Me.Width & Chr(10) & "Height: " & Me.Height

            MsgBox prompt:=msg, Title:="Resize Event"

            End Sub

            Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

            msg = "Now Unloading " & Me.Caption

            MsgBox prompt:=msg, Title:="QueryClose Event"

            End Sub

            Private Sub UserForm_Terminate()

            msg = "Now Unloading " & Me.Caption

            MsgBox prompt:=msg, Title:="Terminate Event"

            End Sub
6. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
UserForm 首先加载, 时宏使用 Initialize 事件改为 " 事件事件事件 ! " 和 BackColor 属性以深蓝色的 UserForm Caption 属性。

当您单击 UserForm, 您初始化 Click 事件。 调整 UserForm Click 事件。 因为您创建 Resize 事件, 过程单击 UserForm 后收到两个消息框。 因为 Click 事件代码更改宽度属性和 Height 属性是 UserForm Resize 事件发生两次。

关闭 UserForm 初始化 QueryClose 事件。 QueryClose 事件显示消息框包含标题为 Initialize 事件， 您赋予 UserForm 代码中。 可以使用时要执行特定的操作集如果用户关闭 UserForm QueryClose 事件。

然后生成一个消息框， 指出标题为 UserForm 是 UserForm1 Terminate 事件。 从内存中删除 UserForm 并返回到其原始状态标题为 UserForm 后 Terminate 事件发生。

如何防止 UserForm 关闭通过关闭按钮

当您运行 UserForm, 关闭 按钮添加到 UserForm 窗口的右上角。 如果要防止 UserForm 关闭通过 关闭 按钮, 您必须捕获 QueryClose 事件。

QueryClose 事件 UserForm 是从内存中卸载之前发生。 使用 QueryClose 事件 CloseMode CloseMode 参数来确定如何 UserForm 关闭。 vbFormControlMenu 值为 CloseMode CloseMode 参数表示时， 单击 关闭 按钮。 要保持活动, UserForm 将 Cancel 取消 对 QueryClose 事件参数为 True 。 要使用 QueryClose 事件来防止 UserForm 关闭通过 关闭 按钮, 请按照下列步骤：
1. Excel 中创建新工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 CommandButton 控件添加到 UserForm。
5. 双击以显示代码窗口对于 UserForm UserForm 。
6. 在代码窗口, 键入如下代码： 
Private Sub CommandButton1_Click()

            Unload Me

            End Sub

            Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

            IF CloseMode = vbFormControlMenu Then

            Cancel = True

            Me.Caption = "Click the CommandButton to close Me!"

            End If

            End Sub
7. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
当您单击 关闭 按钮 UserForm 未关闭。 您必须单击 CommandButton 控件关闭 UserForm。

 


注意 ： 代码包含在本文中不包含影响所有属性和对控件事件的示例。 如果您不得不, 请使用属性窗口要查看可供控件属性的列表。 要在 视图 菜单上, 查看列表的属性, 请单击 属性窗口 。

如何使用设计模式来编辑控件

当您使用 " VisualBasic 编辑器来设计一个对话框, 使用设计模式。 在设计模式, 您可编辑控件和可更改属性在属性窗口 UserForm 上的控制。 若要显示属性窗口, 在 视图 菜单上, 单击 属性窗口 。

当您处在设计模式 注意 控件不响应与事件。 当您运行一个对话框， 显示方式， 用户看到它, 程序处于运行模式。 当 UserForm 是从内存中卸载将不会保留更改， 对运行模式中控件的属性。

注意 控件请回复到事件在运行模式。

如何引用 UserForm 上控件

如何您引用控件编程取决 VisualBasic 模块表运行代码的类型。 如果代码从常规模块, 运行以下语法是：
UserFormName.Controlname.Property = 值
例如, 如果要设置名为 TextBox ， 名为到值是 Bob , UserForm1 UserForm 上 TextBox 控件的 Text 属性使用以下代码： 
UserForm1.TextBox1.Text = "Bob"
如果代码是通过事件的控件或者通过 UserForm, 启动过程中是您不需要引用名为 UserForm。 而, 使用以下代码： 
TextBox1.Text = "Bob"
当向对象, 附加代码代码附加到之一为对象事件。 众多, 本文示例中， 将代码附加到 Click 事件是 CommandButton 对象。
 

标签控件

标签 控件主要用于描述 UserForm 上其他控件。 运行 UserForm 时 Label 控件不能编辑由用户。 使用 Caption 属性到设置或返回一个 Label 控件中文本。 用于格式化 Label 控件其他常用属性包括 字体 属性和 ForeColor 属性。

如何使用 WITH 语句设置 Label 控件格式

要使用 WITH 语句来更改属性的 Label 控件, 请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 Label 控件添加到 UserForm。
5. 将 CommandButton 控件添加到 UserForm。
6. 双击以打开代码窗口对于 UserForm CommandButton 控件。
7. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            With Label1

            ' Set the text of the label.

            .Caption = "This is Label Example 1"

            ' Automatically size the label control.

            .AutoSize = True

            .WordWrap = False

            ' Set the font used by the Label control.

            .Font.Name = "Times New Roman"

            .Font.Size = 14

            .Font.Bold = True

            ' Set the font color to blue.

            .ForeColor = RGB(0, 0, 255)

            End With

            End Sub
8. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
9. 单击 CommandButton 。
文本粗 TimesNewRoman 用字体大小是 14 中 Label 控件上显示 " Thisis 标签示例 1 "。
 

TextBox 控件

TextBox 控件经常用于收集来自用户输入。 Text 属性包含项， TextBox 控件中进行。

如何使用 TextBox 控件来验证密码

如果您设置 TextBox 控件, PasswordChar 属性的它成为 " masked - 编辑 " 控件。 由字符指定可视取代 TextBox 控件中键入的每个字符。 要使用 TextBox 控件来验证密码, 请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 TextBox 控件添加到 UserForm。
5. 在 视图 菜单上, 单击 属性 以显示属性窗口。
6. 对 TextBox 控件, PasswordChar 属性中键入 *

注意 您正将值改为星号。
7. 将 CommandButton 控件添加到 UserForm。
8. 双击以打开代码窗口对于 UserForm CommandButton 控件。
9. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            If TextBox1.Text <> "userform" Then

            MsgBox "Password is Incorrect. Please reenter."

            TextBox1.Text = ""

            TextBox1.SetFocus

            Else

            MsgBox "Welcome!"

            Unload Me

            End If

            End Sub
10. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
11. 在 TextBox 控件中键入密码 userform 。
12. 单击 CommandButton 控件。
对于本例, 密码是 " userform "。 如果您键入正确密码, 您收到一个消息框， 指出密码不正确， 然后重新键入密码可清除 TextBox 控件, 并且。 当您键入正确密码, 收到欢迎消息, 并 UserForm 关闭。

 
 

CommandButton 控件

您可以使用 CommandButton 控制来启动 VBA 过程。 VBA 过程通常附加到 CommandButton 控件的 Click 事件。 要使用 CommandButton 控件 Click 事件发生, 时， 运行过程请按照步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 CommandButton 控件添加到 UserForm。
5. 双击以显示代码窗口对于 UserForm CommandButton 控件。
6. 在代码窗口, 键入如下代码： 
Private Sub CommandButton1_Click()

            red = Int(Rnd * 255)

            green = Int(Rnd * 255)

            blue = Int(Rnd * 255)

            CommandButton1.BackColor = RGB(red, green, blue)

            End Sub
7. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
CommandButton 1 控件的背景颜色更改每次您单击它。

 

ListBox 控件

ListBox 控件的目的是为了向用户显示要选择的项目列表。 您可以存储为 Excel 工作表上 ListBox 控件项目列表。 使用 RowSource 属性来填充工作表, 上 ListBox 控件与范围的单元格。 ListBox 控件在使用 MultiSelect 属性, 时可设置为接受多重选择。

如何从 ListBox 控件获取当前选定项

使用 Value 属性的 ListBox 控件可返回当前选定项。 要返回单项选择 ListBox 控件, 中当前选定项请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在单元格 A 1: A 5 Sheet, 键入了您要用于填充 ListBox 控件值。
3. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
5. 将 ListBox 控件添加到 UserForm。
6. 双击 ListBox 控件以显示代码窗口对 ListBox 控件。
7. 在代码窗口, 为 ListBox 1 Click 事件键入下列代码： 
Private Sub ListBox1_Click()

            MsgBox ListBox1.Value

            End Sub
8. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
当单击列表, 中的项目与当前选定项目将出现一个消息框。

如何获取多选择 ListBox 控件中选定项

确定多选择 ListBox 控件, 中所选项目必须循环列表, 中所有项目并再查询 Selected 属性。 要返回多选择, ListBox 控件中当前选定项请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在单元格 A 1: A 5 Sheet, 键入了您要用于填充 ListBox 控件值。
3. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
5. 将 ListBox 控件添加到 UserForm。
6. 在 视图 菜单上, 单击 属性 以查看属性窗口。
7. 键入值， 对于下列 ListBox 控件属性表示： 
   Property	   Value

            -----------     -----------------------

            MultiSelect	   1 - frmMultiSelectMulti

            RowSource	   Sheet1!A1:A8
8. 将 CommandButton 控件添加到 UserForm。
9. 双击以显示代码窗口对于 UserForm CommandButton 控件。
10. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Sub CommandButton1_Click ()

            ' Loop through the items in the ListBox.

            For x = 0 to ListBox1.ListCount - 1

            ' If the item is selected...

            If ListBox1.Selected(x) = True Then

            ' display the Selected item.

            MsgBox ListBox1.List(x)

            End If

            Next x

            End Sub
11. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
12. 列表中选择一个或多个项目。
13. 单击 CommandButton 1 。
单击 CommandButton 1 , 后， 在 ListBox 控件中选择每个项目显示在一个单独的消息框。 UserForm 在消息框中, 出现所有选定项后自动关闭。

如何使用 RowSource 属性来填充工作表上以 ListBox 控件

要使用 RowSource 属性来填充工作表, 上 ListBox 控件从范围的单元格请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在单元格 A 1: A 5 Sheet, 键入了您要用于填充 ListBox 控件值。
3. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
5. 将 ListBox 控件添加到 UserForm。
6. 将 CommandButton 控件添加到 UserForm。
7. 双击以显示代码窗口对于 UserForm CommandButton 控件。
8. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            ListBox1.RowSource = "=Sheet1!A1:A5"

            End Sub
9. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。

注意 ListBox 1 不包含任何值。
10. 单击 CommandButton 1 。
ListBox 1 填充单元格 A 1: A 5 Sheet 中有值。

如何填充一个 ListBox 控件数组中有值

下例显示您如何填充以数组 ListBox 控件。 数组中每次为 ListBox 控件项必须分配值。 通常, 此过程要求您使用循环结构, 如 ForàNext 循环。 要填充以数组, ListBox 控件请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 ListBox 控件添加到 UserForm。
5. 在 插入 菜单上, 单击要插入模块表 模块 。
6. 在代码窗口, 键入如下代码： 
Sub PopulateListBox()

            Dim MyArray As Variant

            Dim Ctr As Integer

            MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")

            For Ctr = LBound(MyArray) To UBound(MyArray)

            UserForm1.ListBox1.AddItem MyArray(Ctr)

            Next

            UserForm1.Show

            End Sub
7. 然后单击 运行 在 工具 菜单上,、 " PopulateListBox , 和 宏 。
PopulateListBox 过程建立简单数组, 并数组中通过使用 AddItem 方法添加到 ListBox 控件项目。 然后, UserForm 出现。

如何使用工作表上水平的单元格区域来填充一个 ListBox 控件

如果将 ListBox 控件的 RowSource 属性到水平区域的单元格, ListBox 控件中第一个值只会出现。

要通过使用 AddItem 方法, ListBox 控件从水平区域的单元格填充请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在单元格 A1:E1 Sheet, 键入了您要用于填充 ListBox 控件值。
3. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
5. 将 ListBox 控件添加到 UserForm。
6. 在 插入 菜单上, 单击要插入模块表 模块 。
7. 在代码窗口, 键入如下代码： 
Sub PopulateListWithHorizontalRange()

            For Each x In Sheet1.Range("A1:E1")

            UserForm1.ListBox1.AddItem x.Value

            Next

            UserForm1.Show

            End Sub
8. 然后单击 运行 在 工具 菜单上,、 " PopulateListWithHorizontalRange , 和 宏 。
在单元格 A 1: E 5 Sheet, 将值添加到 ListBox 1 一次循环宏过程。

A 1: E 5 单元 注意 ListBox 1 与不定 Sheet 1 上。

如何从 ListBox 控件绑定到多列的数据返回多个值

您可以格式 ListBox 控件以显示多个列的数据。 这意味着 ListBox 控件， 每个列表行上显示多个项目。 要多值列表, 中选定项收益请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. Sheet 由该单元格中键入以下数据：

A 1: 年 B 1: 区域 C1: 销售
A 2: 1996 B: 北美 C2: 140
3： 1996 B 3: 南非 C 3: 210
A 4: 1997 B4: 北美 C 4: 190
A5: 1997 B 5: 南非 C 5: 195
3. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
5. 将 Label 控件添加到 UserForm。
6. 将 ListBox 控件添加到 UserForm。
7. 右击 ListBox , 然后单击 属性 。
8. 键入或选择值， 都表示为下列属性对 ListBox 控件与下表中列出： 
   Property       Value

            ----------------------------

            BoundColumn     1

            ColumnCount     3

            ColumnHeads     True

            RowSource       Sheet1!A2:A5
9. 双击 ListBox 控件以显示代码窗口对 ListBox 控件。
10. 在代码窗口, 键入如下代码： 
Private Sub ListBox1_Change()

            Dim SourceData As Range

            Dim Val1 As String, Val2 As String, Val3 As String

            Set SourceRange = Range(ListBox1.RowSource)

            Val1 = ListBox1.Value

            Val2 = SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value

            Val3 = SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value

            Label1.Caption = Val1 & " " & Val2 & " " & Val3

            End Sub
11. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
当您单击 ListBox 控件, 中一个条目标签将更改为显示该条目中所有三个项目。

如何从绑定到工作表 ListBox 控件中删除所有项目

要从 ListBox 控件绑定到工作表, 删除所有项目清除， 是存储在 RowSource 属性值。 要从 ListBox 控件绑定到工作表, 删除项目请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在单元格 A 1: A 5 Sheet, 键入了您要用于填充 ListBox 控件值。
3. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
5. 将 ListBox 控件添加到 UserForm。
6. 用鼠标右键单击 ListBox 控件, 然后单击 属性 。
7. 在 RowSource 属性, 键入 Sheet 1 A 1: A 5 ！
8. 将 CommandButton 控件添加到 UserForm。
9. 双击以显示代码窗口为 CommandButton 控件 CommandButton 控件。
10. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            ListBox1.RowSource = ""

            End Sub
11. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。

ListBox 控件， 添加到 UserForm 具有值， 您输入 Sheet 填充。
12. 单击 CommandButton 1 。
从 ListBox 1 中删除所有项目。

如何从不绑定到工作表 ListBox 控件中删除所有项目

没有没有单个 VBA 命令如果没有绑定到工作表列表， 从 ListBox 控件删除所有项目。 要从 ListBox 控件从 VisualBasic 数组, 填充删除所有项目请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 ListBox 控件添加到 UserForm。
5. 在 插入 菜单上, 单击要插入模块表 模块 。
6. 在代码窗口, 键入如下代码： 
Sub PopulateListBox()

            Dim MyArray As Variant

            Dim Ctr As Integer

            MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")

            For Ctr = LBound(MyArray) To UBound(MyArray)

            UserForm1.ListBox1.AddItem MyArray(Ctr)

            Next

            UserForm1.Show

            End Sub
7. 将 CommandButton 控件添加到 UserForm。
8. 双击以显示代码窗口为 CommandButton 控件 CommandButton 控件。
9. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            For i = 1 To ListBox1.ListCount

            ListBox1.RemoveItem 0

            Next I

            End Sub
10. 然后单击 运行 在 工具 菜单上,、 " PopulateListBox , 和 宏 。

ListBox 控件填充, 并再出现 UserForm。
11. 单击 CommandButton 1 。
从 ListBox 1 中删除所有项目。

 

ComboBox 控件

您可以使用 ComboBox 控件作为在下拉列表框中, 或组合框其中您可选择列表中值或键入新值。 Style 属性决定如果 ComboBox 控件作为下拉列表框或组合框。

注意 前述对 ListBox 控件中所有示例也能应用到 ComboBox 控件, 除例如获取多选择 ListBox 控件中选定项 " 如何 "。

如何向列表添加新项目如果 ComboBox 控件未绑定到工作表

键入值是未在列表中 ComboBox 控件, 时可能要向列表添加新值。 要添加新值， 如果 ComboBox 控件未绑定到工作表, ComboBox 控件中键入请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 ComboBox 控件添加到 UserForm。
5. 在 插入 菜单上, 单击要插入模块表 模块 。
6. 在代码窗口, 键入如下代码： 
Sub PopulateComboBox()

            Dim MyArray As Variant

            Dim Ctr As Integer

            MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")

            For Ctr = LBound(MyArray) To Ubound(MyArray)

            UserForm1.ComboBox1.AddItem MyArray(Ctr)

            Next

            UserForm1.Show

            End Sub
7. 将 CommandButton 控件添加到 UserForm。
8. 双击以显示代码窗口为 CommandButton 控件 CommandButton 控件。
9. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            Dim listvar As Variant

            listvar = ComboBox1.List

            On Error Resume Next

            ' If the item is not found in the list...

            If IsError(WorksheetFunction.Match(ComboBox1.Value, listvar, 0)) Then

            ' add the new value to the list.

            ComboBox1.AddItem ComboBox1.Value

            End If

            End Sub
10. 然后单击 运行 在 工具 菜单上,、 " PopulateListBox , 和 宏 。

填充 组合框 控件, 并再出现 UserForm。
11. ComboBox 控件, 中键入 Mangoes （或任何值尚未是列表中）。
12. 单击 CommandButton 1 。
现在您键入新值将在列表末尾。

如何向列表添加新项目如果 ComboBox 控件绑定到工作表

当用户键入值是未在列表中 ComboBox 控件, 可能需要新值添加到列表。 要添加该列表, ComboBox 控件中键入新值请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 单元格 A 1: A 5 Sheet, 中键入值与要用于填充 组合框 控件。
3. 选择单元格 A 1: A 5 Sheet 1 上。
4. 插入 菜单上指向 名称 , 然后单击 定义 。

在 工作簿中名称 框中, 键入 ListRange , 然后单击 确定 。 这创建 ListRange 定义名称。 使用定义名称 ListRange 将 ComboBox 控件的 RowSource 属性绑定到工作表。
5. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
6. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
7. 将 ComboBox 控件添加到 UserForm。
8. 对于 ComboBox 1 , 属性 中键入 与 RowSource 属性 ListRange Sheet 1 !
9. 将 CommandButton 控件添加到 UserForm。
10. 双击以显示代码窗口为 CommandButton 控件 CommandButton 控件。
11. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            Dim SourceData As Range

            Dim found As Object

            Set SourceData = Range("ListRange")

            Set found = Nothing

            ' Try to find the value on the worksheet.

            Set found = SourceData.Find(ComboBox1.Value)

            ' If the item is not found in the list...

            If found Is Nothing Then

            ' redefine ListRange.

            SourceData.Resize(SourceData.Rows.Count + 1, 1).Name = "ListRange"

            ' Add the new item to the end of the list on the worksheet.

            SourceData.Offset(SourceData.Rows.Count, 0).Resize(1, 1).Value _

            = ComboBox1.Value

            ' Reset the list displayed in the ComboBox.

            ComboBox1.RowSource = Range("listrange").Address(external:=True)

            End If

            End Sub
12. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。

UserForm 出现在 Sheet 1。
13. ComboBox 控件, 中键入值尚未列表中。
14. 单击 CommandButton 1 。
ComboBox 控件中键入新项目添加到列表, 并范围扩展到包括单元 A1:A6， ComboBox 控件绑定到列表。

当出现 UserForm 如何显示 ComboBox 控件列表

有时, 可能非常有用以 UserForm 首次出现时显示 ComboBox 控件的列表。 以下示例使用是 UserForm Activate 事件。 要显示的 ComboBox 控件, 列表请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 单元格 A 1: A 5 Sheet, 中键入值与要用于填充 组合框 控件。
3. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
5. 将 ComboBox 控件添加到 UserForm。
6. 对于 ComboBox 1 , 属性 中键入 Sheet 1 与 RowSource 属性 A 1: A 5 ！
7. 双击以显示代码窗口对于 UserForm UserForm 。
8. 在代码窗口, 为 CommandButtonClick 事件键入下列代码： 
Private Sub UserForm_Activate()

            ComboBox1.DropDown

            End Sub
9. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
UserForm, Sheet 1 上出现， 您可看到该列表对于 ComboBox 1 。

当其他 ComboBox 控件中进行选择如何显示一个 ComboBox 控件列表

要, ComboBox 控件中进行选择时自动显示一个 ComboBox 控件的列表请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在单元格 A 1: A 10 Sheet, 输入值与要用于填充 组合框 控件。
3. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
4. 在 插入 菜单上, 单击 模块 。
5. 在代码窗口为模块, 键入如下代码： 
Sub DropDown_ComboBox()

            UserForm1.ComboBox2.DropDown

            End Sub
6. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
7. 将 ComboBox 控件添加到 UserForm。
8. 对于 ComboBox 1 , 属性 中键入 Sheet 1 与 RowSource 属性 A 1: A 5 ！
9. 双击要打开代码窗口对 ComboBox 控件 ComboBox 控件。
10. 在代码窗口对 ComboBox 控件, 为 ComboBox Click 事件键入下列代码： 
Private Sub ComboBox1_Click()

            Application.OnTime Now, "DropDown_ComboBox"

            End Sub
11. 添加到 UserForm 二 ComboBox 控件。
12. 对于 ComboBox2 , 属性 中键入 Sheet 1 与 RowSource 属性 A6:A10 ！
13. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
对于 ComboBox2 列表单击, ComboBox 1 列表中的项目时将自动出现。

 

框架控件

使用 Frame 控件来分组 UserForm 中逻辑相关项。 框架 控件经常用于分组 OptionButton 控件。

如何循环 Frame 控件上的所有控件

要使用 EachàNext For 循环来访问 框架 控件, 中所有控件请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 Frame 控件添加到 UserForm。
5. OptionButton 控件添加到 Frame 控件。

重复此步骤向 Frame 控件中添加两个详细 OptionButton 控件。
6. 双击要打开代码窗口对 Frame 控件 Frame 控件。
7. 在代码窗口, 为 框架 Click 事件键入下列代码： 
Private Sub Frame1_Click()

            Dim Ctrl As Control

            For Each Ctrl In Frame1.Controls

            Ctrl.Enabled = Not Ctrl.Enabled

            Next

            End Sub
8. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
9. 在 UserForm, 单击 Frame 控件。
首次您单击 框架 控件, Frame 控件中所有控件是不可用。 如果再次, 单击 Frame 控件控件可再次。
 

OptionButton 控件

可使用 OptionButton 控件组进行一个选择的选项组中。 使用以下技术到组 OptionButton 控件之一：
• 框架 控件
• GroupName 属性
注意 On 值， 是 值, 和 True 值表明已选中一个 OptionButton 。 Off 值、 无 值, 和 False 值表明未选中 OptionButton 攻击。

如何确定当 OptionButton 控件位于 Frame 控件被选中 OptionButton 控件

通过使用 Frame 控件, OptionButtons 控件分组时您可以确定通过循环 Frame 控件中所有控件并检查 Value 属性的每个控件是选定 OptionButton 控件。 要确定所选, OptionButton 控件请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 Frame 控件添加到 UserForm。
5. OptionButton 控件添加到 Frame 控件。

重复此步骤向 Frame 控件中添加两个详细 OptionButton 控件。
6. 添加一个 CommandButton 控件 UserForm 之外 Frame 控件上。
7. 双击以显示代码窗口对于 UserForm CommandButton 控件。
8. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            For Each x In Frame1.Controls

            If x.Value = True Then

            MsgBox x.Caption

            End If

            Next

            End Sub
9. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
10. UserForm , 中一个 OptionButton 控件, 依次 CommandButton 1 。
将出现一个消息框包含当前选定 OptionButton 控件的题注。

如何确定所选 OptionButton 控件

对以下示例目的是为了确定 Group1 中选定 OptionButton 控件。 若要创建具有两个 OptionButton 控件组, UserForm 请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 Frame 控件添加到 UserForm。
5. Frame 控件中添加一个 OptionButton 控件。

重复此步骤向 Frame 控件中添加两个详细 OptionButton 控件。
6. 对于每个 OptionButton 控件, 在 GroupName 属性键入 Group1 。
7. 重复步骤 4 和 5 以创建包含三个 OptionButton 控件二 Frame 控件。
8. 对于每个 OptionButton 控件在第二个 框架 控件, 在 GroupName 属性键入 Group2 。
9. 添加一个 CommandButton 控件 UserForm 之外 Frame 控件上。
10. 双击以显示代码窗口对于 UserForm CommandButton 控件。
11. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            Dim x As Control

            ' Loop through ALL the controls on the UserForm.

            For Each x In Me.Controls

            ' Check to see if "Option" is in the Name of each control.

            If InStr(x.Name, "Option") Then

            ' Check Group name.

            If x.GroupName = "Group1" Then

            ' Check the status of the OptionButton.

            If x.Value = True Then

            MsgBox x.Caption

            Exit For

            End If

            End If

            End If

            Next

            End Sub
12. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
13. UserForm, 中 Group1, 中一个 OptionButton 控件依次 CommandButton 1 。
将出现一个消息框包含 OptionButton 控件当前选定的标题。

 

CheckBox 控件

您可以使用 CheckBox 控制来指示真或假值。 带有复选标记中出现 CheckBox 控件指示值为 True 。 与没有复选标记出现 CheckBox 表示值为 False 。 如果 TripleState 属性的值为 True , CheckBox 控件还可以 Null 值。 可用似乎具有 Null 值 CheckBox 控件。

注意 On 值， 是 值, 和 True 值表明， CheckBox 控件被选定。 Off 值、 无 值, 和 False 值表明 CheckBox 控件已清除。

如何检查 CheckBox 控件的值

要使用 Value 属性以返回当前值的 CheckBox 控件, 请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 CheckBox 控件添加到 UserForm。
5. 在属性列表对于 CheckBox 1 , 选择 True 与 TripleState 属性。
6. 双击 CheckBox 控件以显示代码窗口为 CheckBox 控件。
7. 在代码窗口, 为 CheckBox 1 Change 事件键入下列代码： 
Private Sub CheckBox1_Change()

            Select Case CheckBox1.Value

            Case True

            CheckBox1.Caption = "True"

            Case False

            CheckBox1.Caption = "False"

            Case Else

            CheckBox1.Caption = "Null"

            End Select

            End Sub
8. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
当您单击 CheckBox 控件, 标题的 CheckBox 控件更改以反映当前值。
 

切换按钮控件

切换按钮 控件具有相同外观作为一个 CommandButton 控件在您单击它。 当单击 切换按钮 控件, 它似乎按或推。 当未选中按钮 Value 属性的 切换按钮 控件是 True 选择按钮时， False 。 如果 TripleState 属性的值为 True , ToggleButton 控件还可以 Null 值。 可用似乎具有 Null 值 切换按钮 控件。

注意 On 值， 是 值, 和 True 值表明选定 ToggleButton 控件。 Off 值、 无 值, 和 False 值表明未选中 ToggleButton 控件。

如何获取 ToggleButton 控件的值

要获取值 ToggleButton 控件, 请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 添加 UserForm 上一个 切换按钮 控件。
5. 将 Label 控件添加到 UserForm。
6. 双击要打开代码窗口为 ToggleButton 控件 切换按钮 控件。
7. 在代码窗口, 为 ToggleButton1Click 事件键入下列代码： 
Private Sub ToggleButton1_Click()

            If ToggleButton1.Value = True Then

            ' Set UserForm background to Red.

            Me.BackColor = RGB(255, 0, 0)

            Else

            ' Set UserForm background to Blue.

            Me.BackColor = RGB(0, 0, 255)

            End If

            End Sub
8. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
当您单击 切换按钮 控件, 的 UserForm 更改背景色。

如何创建互斥 ToggleButton 控件组

本示例将变量使用 MouseUp 事件并调用 ExclusiveToggleButtons 过程。 ExclusiveToggleButtons 过程决定 ToggleButton 控件， 选中, 然后取消其他。 若要创建互斥 ToggleButton 控件组, 请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击 模块 。
4. 在代码窗口为模块, 键入如下代码： 
' Variable that holds the name of the ToggleButton that was clicked.

            Public clicked As String

            Sub ExclusiveToggleButtons()

            Dim toggle As Control

            ' Loop through all the ToggleButtons on Frame1.

            For Each toggle In UserForm1.Frame1.Controls

            ' If Name of ToggleButton matches name of ToggleButton

            ' that was clicked...

            If toggle.Name = clicked Then

            '...select the button.

            toggle.Value = True

            Else

            '...otherwise clear the selection of the button.

            toggle.Value = False

            End If

            Next

            End Sub
5. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
6. 将 Frame 控件添加到 UserForm。
7. Frame 控件中添加一个 切换按钮 控件。

重复此步骤向 Frame 控件中添加两个详细 切换按钮 控件。
8. 双击以显示代码窗口对于 UserForm Frame 控件。
9. 在代码窗口为模块, 为 ToggleButton MouseUp 事件键入下列代码： 
Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, _

            ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

            clicked = ToggleButton1.Name

            Application.OnTime Now, "ExclusiveToggleButtons"

            End Sub

            Private Sub ToggleButton2_MouseUp(ByVal Button As Integer, _

            ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

            clicked = ToggleButton2.Name

            Application.OnTime Now, "ExclusiveToggleButtons"

            End Sub

            Private Sub ToggleButton3_MouseUp(ByVal Button As Integer, _

            ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

            clicked = ToggleButton3.Name

            Application.OnTime Now, "ExclusiveToggleButtons"

            End Sub
10. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
单击 切换按钮 控件, 时取消以前选定 切换按钮 控件。
 

TabStrip 控件

使用 TabStrip 控件来查看不同组的一组控件的信息。

如何通过编程控制 TabStrip 控件

若要更改 BackColor 属性的 图像 控件根据所选, 选项卡请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 添加到 UserForm TabStrip 控件。
5. 添加 图像 控件包含对数的 TabStrip 控件, 但没有涉及标签，。
6. 在属性窗格用于 Image1、 类型和 H000000FF & BackColor 属性中。
7. 双击要打开代码窗口对 TabStrip 控件 TabStrip 控件。
8. 在代码窗口, 为 TabStrip1 Change 事件键入下列代码： 
Private Sub TabStrip1_Change()

            Dim i As Integer

            i = TabStrip1.SelectedItem.Index

            Select Case i

            Case 0

            ' If Tab1 is selected, change the color of Image control to Red.

            Image1.BackColor = RGB(255, 0, 0)

            Case 1

            ' If Tab2 is selected, change the color of Image control to Green.

            Image1.BackColor = RGB(0, 255, 0)

            End Select

            End Sub
9. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
根据是活动 TabStrip 控件中页上 图像 控件修订的颜色。

有关 TabStrip 控件, 请单击下列文章编号以查看 Microsoft 知识库中相应：
 

multiPage 控件

使用 MultiPage 控件来处理大量可被分为几类排序信息。 MultiPage 控件由组成一个或多个 Page 对象， 每个包含不同组的控件。 以编程方式通过设置 MultiPage 控件的 Value 属性设置活动页。

如何控制 MultiPage 控件编程

要添加 MultiPage 控件并控制它通过使用宏, 请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 添加到 UserForm MultiPage 控件。
5. 将 Label 控件添加到 Page 1 多页 控件上。
6. 将 TextBox 控件添加到 Page 1 多页 控件上。
7. MultiPage 控件, 上单击, Page 2 ， 然后重复步骤 5 和 6 以添加一个 Label 控件和 TextBox 控件。
8. 双击要打开代码窗口对 MultiPage 控件 MultiPage 控件。
9. 在代码窗口, 为 MultiPage1 Change 事件键入下列代码： 
Private Sub MultiPage1_Change()

            Select Case MultiPage1.Value

            ' If activating Page1...

            Case 0

            Label1.Caption = TextBox2.Text

            TextBox1.Text = ""

            ' If activating Page2...

            Case 1

            Label2.Caption = TextBox1.Text

            TextBox2.Text = ""

            End Select

            End Sub
10. 在代码窗口, 为 UserForm Initialize 事件键入下列代码： 
Private Sub UserForm_Initialize()

            ' Force Page1 to be active when UserForm is displayed.

            MultiPage1.Value = 0

            Label1.Caption = ""

            End Sub
11. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。

Page 1, 上 TextBox 控件中键入 Test 。 当单击 Page 2 选项卡、 TextBox 2 被清除, 和标题为 Label 2 变为项， 在 Page 1 上 TextBox 所做 （" Test ") （" Test "）

如何通过使用 MultiPage 控件创建一个向导界面

将任务需要几个增量步骤, 向导界面可能会非常有效。 您可使用 MultiPage 控件以创建一个向导界面代替使用多用户窗体。 本示例操作具有三页 MultiPage 控件。 附加到对 UserForm Initialize 事件过程禁用 Page 2 和 Page3, 并强制 Page 1 的 多页 控件可活动。

注意 您通过使用 Pages 集合, 索引 MultiPage 控件的页面时集合中第一页是零页。 此过程还设置标题的 CommandButton 控件并禁用 < 备份 按钮。

注意的功能是分配给 CommandButton 1 控件的 Click 事件过程 " 后退 " 按钮 < 是分配给 CommandButton 2 是 Click 事件过程控制功能的下一步 > 按钮。 若要通过使用 MultiPage 控件, 创建一个向导界面请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 添加到 UserForm MultiPage 控件。
5. 右键单击, " Page 1 选项卡， 然后单击要添加到 多页 控件 Page3 新页 。
6. 添加一个 CommandButton 控件不位于 多页 控件上 UserForm 上。

重复此步骤可添加一个 UserForm 上二 CommandButton 控件。
7. 双击以打开代码窗口对于 UserForm UserForm 。
8. 在代码窗口, 为 UserForm Initialize 事件键入下列代码： 
Private Sub UserForm_Initialize()

            With MultiPage1

            ' The next 2 lines disable Page2 & Page3.

            .Pages(1).Enabled = False

            .Pages(2).Enabled = False

            ' Make Page1 the active page.

            .Value = 0

            End With

            ' Set the caption on the CommandButtons.

            CommandButton1.Caption = "<Back"

            CommandButton1.Enabled = False

            CommandButton2.Caption = "Next>"

            End Sub

            ' Procedure for the "<Back" button

            Private Sub CommandButton1_Click()

            Select Case MultiPage1.Value

            Case 1                                 ' If Page2 is active...

            With MultiPage1

            .Pages(0).Enabled = True       ' Enable Page1.

            .Value = MultiPage1.Value - 1  ' Move back 1 page.

            .Pages(1).Enabled = False      ' Disable Page2.

            End With

            CommandButton1.Enabled = False     ' Disable Back button.

            Case 2                                 ' If Page3 is active...

            With MultiPage1

            .Pages(1).Enabled = True       ' Enable Page2.

            .Value = MultiPage1.Value - 1  ' Move back 1 page.

            .Pages(2).Enabled = False      ' Disable Page3.

            CommandButton2.Caption = "Next>"

            End With

            End Select

            End Sub

            ' Procedure for the "Next>" button

            Private Sub CommandButton2_Click()

            Select Case MultiPage1.Value

            Case 0                                  ' If Page1 is active...

            With MultiPage1

            .Value = MultiPage1.Value + 1   ' Move forward 1 page.

            .Pages(1).Enabled = True        ' Enable Page2.

            .Pages(0).Enabled = False       ' Disable Page1.

            End With

            CommandButton1.Enabled = True       ' Enable Back button.

            Case 1                                  ' If Page2 is active...

            With MultiPage1

            .Value = MultiPage1.Value + 1   ' Move forward 1 page.

            .Pages(2).Enabled = True        ' Enable Page3.

            .Pages(1).Enabled = False       ' Disable Page2.

            End With

            CommandButton2.Caption = "Finish"   ' Change Next button to Finish.

            Case 2                                  ' If Page3 is active...

            MsgBox "Finished!"                  ' User is Finished.

            Unload Me                           ' Unload the UserForm.

            End Select

            End Sub
9. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
当您单击下一步 > 激活 Page 2 后退 " 按钮可, 和 < 当您单击 Next > 第二次, Page3 激活并题注为 CommandButton 2 更改为 " 完成 "。
 

ScrollBar 控件

当您需要更改由另一控件, 如 Label 控件显示值可以使用 ScrollBar 控件。

如何更改 Label 控件是基于值 ScrollBar 控件

若要 Label 控件的 Caption 属性更改到当前设置的 Value 属性的 ScrollBar 控件, 请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 添加到 UserForm ScrollBar 控件。
5. 将 Label 控件添加到 UserForm。
6. 双击要打开代码窗口对 ScrollBar 控件 ScrollBar 控件。
7. 在代码窗口, 为 ScrollBar 1 Change 事件键入下列代码： 
Private Sub ScrollBar1_Change()

            Label1.Caption = ScrollBar1.Value

            End Sub
8. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
当您通过使用 ScrollBar 控件, 滚动 Label 1 更新与对 ScrollBar 控件当前值。
 

数值调节钮控件

到递增或递减其他控件, 如 Label 控件的值经常使用 数值调节钮 控件, 像 ScrollBar 控件,。 SmallChange 属性决定多少值的 数值调节钮 控件单击它时更改。

如何添加 SpinButton 控件， 增加或减少存储在 TextBox 控件中日期

要添加 SpinButton 控件， 增加或减少日期存储在 TextBox 控件, 请按照下列步骤操作：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 将 数值调节钮 控件添加到 UserForm。
5. 将 TextBox 控件添加到 UserForm。
6. 双击要打开代码窗口为 SpinButton 控件 SpinButton 控件。
7. 在代码窗口, 为 SpinButton 1 SpinUp 事件键入下列代码： 
Private Sub SpinButton1_SpinUp()

            TextBox1.Text = DateValue(TextBox1.Text) + 1

            End Sub
8. 在代码窗口, 为 SpinButton 1 SpinDown 事件键入下列代码： 
Private Sub SpinButton1_SpinDown()

            TextBox1.Text = DateValue(TextBox1.Text) - 1

            End Sub
9. 在代码窗口, 为 UserForm Initialize 事件键入下列代码： 
Private Sub UserForm_Initialize()

            TextBox1.Text = Date

            End Sub
10. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
出现 UserForm 时, TextBox 中显示当前日期。 单击 数值调节钮 控件, 时增加或减少日期为由一天。

在本示例, 如果更改是 SpinButton 1 , SmallChange 属性， 不影响天数当您单击 SpinButton 1 被通过更改 TextBox 中项。 过程， 附加到 SpinUp 事件和 SpinDown 事件是 SpinButton 1 天数仅由决定。

 
RefEdit 控件 imitates 引用框 Excel 中内置行为。 Value 属性可用于获取当前单元格地址存储在 RefEdit 控件。

您选择通过使用 RefEdit 控件如何填充的单元格区域基于区域

要使用 RefEdit 控件来填充单元格, 请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 添加到 UserForm RefEdit 控件。
5. 将 CommandButton 控件添加到 UserForm。
6. 双击要打开代码窗口为 CommandButton 控件 CommandButton 控件。
7. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码： 
Private Sub CommandButton1_Click()

            Dim MyRange As String

            MyRange = RefEdit1.Value

            Range(MyRange).Value = "test"

            Unload Me

            End Sub
8. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。

UserFormappears。
9. 单击按钮 RefEdit 控件中。

注意 UserForm 折叠。
10. 选定的单元格 A 1: A 5, 如区域， 然后单击按钮以展开 UserForm RefEdit 控件中。
11. 单击 CommandButton 1 。
UserForm 关闭并且， 所选单元格现在包含单词 " 测试 "。

 

图像控件

图像 控件的目的是为了 UserForm 上显示图片。 要将图片分配给 图像 控件在运行时, 使用 LoadPicture 函数。

如何加载图像控件中图片

若要插入 图像 控件提示您要选择图片来单击 图像 控件, 时加载请按照下列步骤：
1. 启动 Excel, 并打开新空白工作簿。
2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。
3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。
4. 添加 UserForm 上 图像 控件。
5. 双击要打开代码窗口为 图像 控件 图像 控件。
6. 在代码窗口, 为 Image1 Click 事件键入下列代码： 
Private Sub Image1_Click()

            Dim fname As String

            ' Display the Open dialog box.

            fname = Application.GetOpenFilename(filefilter:= _

            "Bitmap Files(*.bmp),*.bmp", Title:="Select Image To Open")

            ' If you did not click Cancel...

            If fname <> "False" Then

            ' Load the bitmap into the Image control.

            Image1.Picture = LoadPicture(fname)

            ' Refresh the UserForm.

            Me.Repaint

            End If

            End Sub
7. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。

UserForm 出现。
8. 单击 图像 控件。

当您单击 图像 控件, 出现 图像选择要打开 对话框， 然后您可选择位图文件插入控件。
 

引用MSDN

你可能感兴趣的:(VBA)

  • 汇总相同清单工程量的进一步思考-对清单去重精简寻找签证的可能性 极算手
    工程情景当我们遇到单项工程里包含多个单位工程，比如别墅群、住宅群等同一户型同一项目施工做法都一样同一清单特征严格意义讲描述做法应当唯一实际工作中我们可能遇到即使在同一单位工程中同一项目清单特征描述可能也不一样那我们如何在众多清单特征中寻找同一做法的不同清单描述呢？操作方法可能千千万万我个人尝试下来还是利用VBA最为便捷去重操作几千条清单中重复的清单高能高达上千条直接查找对比必然耗费大量时间精力首一
  • vue IE因Promise无法显示解决办法 Yao请输入昵称
    一、ie11打开vue2.0项目空白,控制台报错vuexrequiresaPromisepolyfillinthisbrowserPromise为ES6语法，有的浏览器不支持ES6,所以需要安装babel-polyfill来将ES6转换为浏览器可识别的ES5语法①npminstall--save-devbabel-polyfill②在main.js中引入import"babel-polyfill"
  • vba把excel导入mysql_VBA将Excel数据表格直接导入SQL Server数据库 weixin_39757040
    [vb]代码库'把当前Excel工作簿的所有工作表的数据表格转换为Insert语句并导入SQLServer数据库中。OptionExplicitPublicSubCreateAllSheetsInsertScript()OnErrorGoToErrorHandler'recordsetandconnectionvariablesDimRowAsLongDimColAsInteger'Tostore
  • VBA ado 把CSV文件当做数据源进行 查询操作 weixin_33937913 数据库
    SubF_Sample006()'MicrosoftActiveXDataObjects2.XLibrary'F_Data.csvDimmyConAsNewADODB.ConnectionDimmyRstAsNewADODB.RecordsetDimmyCncAsStringDimmyCmdAsStringDimmyFileNameAsStringDimiAsLongmyFileName="F_D
  • VBA 把Excel表当做一个大数据库来操作 码猩 excelVBA专栏excel数据库
    VBA把Excel表当做一个大数据库来操作SubSqlQueryBJD(strBillNoAsString)DimstrSqlAsStringDimarrCol()AsStringDimstrLineWhereDimarrWhere()AsStringDimstrWhereValAsStringDimstrResultShowRngAsStringDimstrWhereRngAsStringDim
  • Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入，中间有空格） yujiaerzong ExcelExcelVBA单元格批量插入图片
    1.详细步骤见Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入）2.VBA代码部分改为如下代码Sub插入图形应用()ForEachshapInSheet1.ShapesIfshap.Type""Then           DimiAsString             i=""           IfLen(Dir(ThisWorkbook.Path&"\图库\"&Cells
  • VBA程序xlsm文件另存xlsx不能保存的问题 文剑至秦 编程excel
    表达式.SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)1.首先看看FileFormat可选Variant保存文件时使用的文件
  • Office·Word高级·VBA基础概念语法 SCscHero #VBAWindowsOFFICEVBA办公自动化办公软件OfficeWord
    阅文时长|5.21分钟字数统计|1823字符『Office·Word高级·VBA基础概念语法』编写人|SCscHero编写时间|Monday,June29,2020文章类型|系列完成度|待完善座右铭每一个伟大的事业，都有一个微不足道的开始。HelloWorld！常量与变量完成度：80%基础概念宏方法和自定义函数宏方法定义指令：Sub[宏方法名称]()[内容]EndSub自定义函数定义指令：Func
  • python可以嵌在vba中吗_Jupyter Notebooks嵌入Excel并使用Python替代VBA宏 简内特 python可以嵌在vba中吗
    以前，Excel和PythonJupyterNotebook之间我们只能选择一个。但是现在随着PyXLL-Jupyter软件包的推出，可以将两者一起使用。在本文中，我将向你展示如何设置在Excel中运行的JupyterNotebook。在这两者之间共享数据，甚至可以从Excel工作簿调用Jupyter笔记本中编写的Python函数！开始首先，要在Excel中运行Python代码，你需要使用PyXL
  • MS PPT一键设置全部文本框字体和大小(VBA) 哆啦Ci梦 VBA开发语言
    适用于MicrosoftPPT2021版本。作用：将PPT全部文本框进行字体和字体大小设置。弊端：执行后会使全部字体被改变，建议在写完ppt后，先执行该脚本，再把局部字体手动调整。配置参数修改：.Name用于字体名称修改.Size用于文字大小修改.Color.RGB用于配置三原色SubPPT一键设置字体和字体大小()DimoShapeAsShapeDimoSlideAsSlideDimoTxtRa
  • VBA核对数据 猛犸象和剑齿虎
    OptionExplicitSub分机床产量()DimrngAsRange,rng1AsRangeForEachrngInWorksheets("产量表").Range("c2:c85")ForEachrng1InRange("c2:c81")Ifrng1.Value=rng.ValueThenIfApplication.WorksheetFunction.CountIf(Range("c2:c8
  • armv8/armv9中断系列详解-软件篇-Linux kernel中断相关软件导读 代码改变世界ctw ARM-TEE-Androidirqarmv8armv9异常中断ARM代码改变世界
    快速链接:.ARMv8/ARMv9架构入门到精通-[目录]付费专栏-付费课程【购买须知】:联系方式-加入交流群----联系方式-加入交流群个人博客笔记导读目录(全部)引流关键词:armv8,armv9,gic,gicv2,gicv3,异常,中断，irq,fiq,serror,sync，同步异常，异步异常，向量表，向量表基地址，VBAR，vbar_el3，中断嵌套，中断级联，LinuxKernel，
  • uniapp navigateBack返回上一页，的简单处理 逮捕小子 小程序
    //返回上一页constnavBack=function(page){constpages=getCurrentPages();//判断跳转了多少页if(pages.length===2){uni.navigateBack({delta:1});}elseif(pages.length===1){//如果没有上一页返回首页uni.switchTab({url:'/pages/index/index
  • VBA学习(54)：最全最详细的对象及对象集合 xwLink1996 VBA学习excelVBA
    在VBA中，一切操作都以对象为基础，操作Excel就是操作这些对象，所以理解和熟悉对象对于VBA编程非常重要，常用的对象有以下10类：Application               代表整个Excel程序Workbook                  代表Excel工作薄对象Worksheet                 代表工作表对象Window                   
  • mPaaS 10.1.60 H5容器中NavBar修改的问题 山已几孑
    时间定位：2019.12.23升级60-beta之后，发现10.1.32中对navBar做的修改，比如返回按钮，右边按钮做的自定义修改失效了，经过和mPaaS沟通，总结修改方式如下：自定义Plugin自定义Plugin继承NBPluginBase@interfaceH5Plugin4NavigationBar:NBPluginBase@end监听事件[self.targetaddEventList
  • CentOS7 yum无法下载Cannot find a valid baseurl for repo: centos-sclo-rh/x86_64问题解决 爱学习的小宇宙 centoslinux运维
    先是检查连接是否开启,iso源是否正确挂载然后检查repo,没有bak备份的加一个文件夹cd/etc/yum.repos.d/mkdirbakbase.repo和CentOs-Base.repo备份一下,之后删除其他.repomvbase.repobakmvCentOs-Base.repobakrm-f*.repocpbak/*./然后挂载本地镜像,清除本地缓存mount/dev/sr0/mnt/
  • React学习打卡Day05 信徒不伤 react
    1.属性props使用let{‘属性名’}=this.props接收属性可接收多个2.属性验证Navbar.protoTypes={验证代码}可以写在对象内部，需要加static关键字importReact,{PureComponent}from'react'importproptypesfrom'prop-types'exportdefaultclassNavbarextendsPureComp
  • STM32F103C8T6引脚定义表 早睡早起｜ stm32嵌入式硬件单片机
    STM32F103C8T6引脚定义表引脚号引脚名称类型I/O口电平主功能默认复用功能重定义功能1VBATSVBAT2PC13-TAMPER-RTCI/OPC13TAMPER-RTC3PC14-OSC32_INI/OPC14OSC32_IN4PC15-OSC32_OUTI/OPC15OSC32_OUT5OSC_INIOSC_IN6OSC_OUTOOSC_OUT7NRSTI/ONRST8VSSASVS
  • VBA之正则表达式（15）-- 提取数字求和 taller_2000 VBA数组Excel正则JAVASCRIPT正则JAVASCRIPT数字VBA求和
    实例需求：提取@之间的纯数字(无小数点)，并将结果累计求和。测试字符串：abc100@200@300$def400ghj@500@600这个字符提取规则相对简单，直接使用VBA方法也可以实现。SubVBA_DEMO()DimstrTxtAsStringDimarrDataDimstrDataAsStringDimiAsIntegerDimintAmtAsIntegerstrTxt="abc100@
  • VBA之正则表达式（8）-- 重复字符分组 taller_2000 VBA数组工作表Excel正则正则数组Split替换重复
    实例需求：数据保存在A列中，需要将其中重复字符分拆后保存在后续的列中，为简化示例代码，只考虑小写英文字符。这个需求也并不复杂，用VBA代码逐个判断字符和其前后的字符对比，就可以区分每组，高手可以写出递归调用过程。用正则处理这种问题会更简单。SubRegExpDemo()DimstrTxtAsStringDimobjRegExAsObject,objMatchAsObjectDimobjMHAsOb
  • VBA之正则表达式（3）-- 特殊公式计算 taller_2000 VBAExcel正则VBA正则公式替换计算
    实例需求：数据保存在B列，其格式为规格1*数量1+规格2*数量2+...，现在需要统计数量总和，如C列所示。例如B3中明细为100*3+115*1对应的包装个数就是3+1。示例代码如下。SubRegExpDemo()DimstrTxtAsStringDimobjRegExAsObjectDimjAsIntegerSetobjRegEx=CreateObject("vbscript.regexp")
  • VBA批量合并、取消合并Excel表单元格 Excel潘谆白说VBA VBAExcelexcel职场和发展程序人生
    Excel工作表数据快完成时，工作表模版修改了，VBA快速修改之合并、取消合并单元格。1、指定工作表单元格的合并、取消合并。只需要最简单的代码Selection.Merge（合并单元格）、Selection.UnMerge（取消合并单元格）FunctionMergeA()'指定工作表合并单元格WorkSheets("Sheet1").Range("C12:C13").SelectWithSelec
  • 写个vba程序，能合并多个文件 谛听汪 microsoft深度学习人工智能
    你好!下面是一个可以合并多个文件的VBA程序：SubMergeFiles()'定义变量DimFilesToOpen,FileNameAsStringDimFileNumAsIntegerDimCounterAsIntegerDimRowNdxAsLongDimColNdxAsIntegerDimSheetAsWorksheetDimWorkBkAsWorkbookDimSourceRangeAsR
  • java给excel填充数据_Excel：跨多个工作表填充数据 weixin_39973492 java给excel填充数据
    这是两个VBA解决方案.第一个做到这一点：检查是否存在工作表"totals".如果没有，请创建它将第一张纸的第一行(A到Q)复制到"totals"从第2行开始复制块A2：Q33到"totals"表对所有其他工作表重复，每次减少32行第二个显示如何在复制之前对列数据进行一些操作：对于每个列，它应用WorksheetFunction.Sum()，但您可以将其替换为您要使用的任何其他聚合函数.然后它将结
  • vba mysql教程 pdf_VBA自动化Acrobat并进行PDF文档合并-Big Young weixin_42365804 vbamysql教程pdf
    PublicSubNewPDF()DimokAsBooleanDimPDFAppAsAcrobat.AcroAppDimpddocAsAcrobat.AcroPDDocDimtempPDDocAsAcrobat.AcroPDDocSetPDFApp=CreateObject("AcroExch.App")Setpddoc=CreateObject("AcroExch.PDDoc")SettempP
  • 完美解决Word、Excel、PPT加密解密的方法 最萌毕加索 经验分享
    解决Word、Excel加密的方法文章目录解决Word、Excel加密的方法Excel加密：Word加密：VBA工程加密：PPT加密Excel加密：第一步把需要解锁的文件后缀格式由xlsx改为rar格式。第二步打开压缩文件，进入worksheets，把需要解锁的文件拖到外边（我是放到了桌面上）第三步打开拖到桌面的文件，需要使用记事本/vscode格式打开。第四步进入记事本，我们按Ctrl+F，查找
  • VBA指定工作表并批量复制 阿拉丁点灯 vbaexcel
    问题：VBA如何实现指定工作表并批量复制答案：可通过窗体控件实现。具体操作如下：1：新建命令按钮2：创建用户窗体，增加复合框，在工作表中输入以下代码：PrivateSubCommandButton1_Click()ForEachshInWorksheetsUserForm1.ComboBox1.AddItem(sh.Name)NextUserForm1.ShowEndSub此代码可实现指定需要复制
  • Excel VBA自定义函数 根据条件连接字符串 seaHareHealing excelvba数据分析
    做excel发现现有的函数功能不够用，就自学了一下VBA写了第一个新函数：根据条件连接字符串比如count()有countif()和countifs()，sum()有sumif()和sumifs()，但是concatenate()却没有类似concatenateifs()的函数，于是自己写了个替代品（写的解释比较面向初学者，如果是只需要参考，完全可以跳过直接看代码块）问题：我需要在选区中找出同时符
  • 全面认识页面设置之PageSetup 对象 永生天地
    我们在写VBA代码时，特别是做小型程序开发时，经常会用VBA来设置“页面设置”中的选项，还可用要用VBA来实现一些特殊的效果，这就需要使用PageSteup对象。PageSetup对象包含所有页面设置的属性（左边距、底部边距、纸张大小等）。此对象共有49个属性，其中：8个属性是EXCEL2007新添加的，1个属性在2007中被删除了。下面我按照“页面”、“页边距”、“页眉/页脚”、“工作表”和“无
  • VBA-将宏添加到选项卡（简易版） ahxdyz VBAVBA
    VBA-将宏添加到选项卡（简易版）缘起方法方法一：界面操作方法方法二：VBA法缘起相信经常使用Office软件，尤其是Excel的朋友，很多人都听说过VBA，我周围也有些部门的同事会自主研发一些实用的宏工具。作为最贴近工作场景的脚本编写方式，学会使用VBA会给业务工作带来一定的便利。方法要用起来VBA，启动是必要的步骤。自用时，无论是在VBE里F5，还是Alt+F8启动都无所谓；但如果是制作规范化
  • 安装数据库首次应用 Array_06 javaoraclesql
    可是为什么再一次失败之后就变成直接跳过那个要求 enter full pathname of java.exe的界面 这个java.exe是你的Oracle 11g安装目录中例如：【F:\app\chen\product\11.2.0\dbhome_1\jdk\jre\bin】下的java.exe 。不是你的电脑安装的java jdk下的java.exe！ 注意第一次，使用SQL D
  • Weblogic Server Console密码修改和遗忘解决方法 bijian1013 Welogic
            在工作中一同事将Weblogic的console的密码忘记了，通过网上查询资料解决，实践整理了一下。 一.修改Console密码         打开weblogic控制台，安全领域 --> myrealm -->&n
  • IllegalStateException: Cannot forward a response that is already committed Cwind javaServlets
    对于初学者来说，一个常见的误解是：当调用 forward() 或者 sendRedirect() 时控制流将会自动跳出原函数。标题所示错误通常是基于此误解而引起的。 示例代码： protected void doPost() { if (someCondition) { sendRedirect(); } forward(); // Thi
  • 基于流的装饰设计模式 木zi_鸣 设计模式
    当想要对已有类的对象进行功能增强时，可以定义一个类，将已有对象传入，基于已有的功能，并提供加强功能。 自定义的类成为装饰类 模仿BufferedReader，对Reader进行包装，体现装饰设计模式 装饰类通常会通过构造方法接受被装饰的对象，并基于被装饰的对象功能，提供更强的功能。 装饰模式比继承灵活，避免继承臃肿，降低了类与类之间的关系 装饰类因为增强已有对象，具备的功能该
  • Linux中的uniq命令 被触发 linux
    Linux命令uniq的作用是过滤重复部分显示文件内容，这个命令读取输入文件，并比较相邻的行。在正常情 况下，第二个及以后更多个重复行将被删去，行比较是根据所用字符集的排序序列进行的。该命令加工后的结果写到输出文件中。输入文件和输出文件必须不同。如 果输入文件用“- ”表示，则从标准输入读取。 AD： uniq [选项] 文件 说明：这个命令读取输入文件，并比较相邻的行。在正常情况下，第二个
  • 正则表达式Pattern 肆无忌惮_ Pattern
    正则表达式是符合一定规则的表达式，用来专门操作字符串，对字符创进行匹配，切割，替换，获取。   例如，我们需要对QQ号码格式进行检验 规则是长度6~12位  不能0开头  只能是数字，我们可以一位一位进行比较，利用parseLong进行判断，或者是用正则表达式来匹配[1-9][0-9]{4,14} 或者 [1-9]\d{4,14} &nbs
  • Oracle高级查询之OVER (PARTITION BY ..) 知了ing oraclesql
    一、rank()/dense_rank() over(partition by ...order by ...) 现在客户有这样一个需求，查询每个部门工资最高的雇员的信息，相信有一定oracle应用知识的同学都能写出下面的SQL语句： select e.ename, e.job, e.sal, e.deptno from scott.emp e, (se
  • Python调试 矮蛋蛋 pythonpdb
    原文地址： http://blog.csdn.net/xuyuefei1988/article/details/19399137 1、下面网上收罗的资料初学者应该够用了，但对比IBM的Python 代码调试技巧： IBM：包括 pdb 模块、利用 PyDev 和 Eclipse 集成进行调试、PyCharm 以及 Debug 日志进行调试： http://www.ibm.com/d
  • webservice传递自定义对象时函数为空，以及boolean不对应的问题 alleni123 webservice
    今天在客户端调用方法 NodeStatus status=iservice.getNodeStatus(). 结果NodeStatus的属性都是null。 进行debug之后，发现服务器端返回的确实是有值的对象。 后来发现原来是因为在客户端，NodeStatus的setter全部被我删除了。 本来是因为逻辑上不需要在客户端使用setter， 结果改了之后竟然不能获取带属性值的
  • java如何干掉指针，又如何巧妙的通过引用来操作指针————>说的就是java指针 百合不是茶
    C语言的强大在于可以直接操作指针的地址，通过改变指针的地址指向来达到更改地址的目的,又是由于c语言的指针过于强大，初学者很难掌握， java的出现解决了c，c++中指针的问题 java将指针封装在底层，开发人员是不能够去操作指针的地址，但是可以通过引用来间接的操作：   定义一个指针p来指向a的地址（&是地址符号）：        
  • Eclipse打不开，提示“An error has occurred.See the log file ***/.log” bijian1013 eclipse
    打开eclipse工作目录的\.metadata\.log文件，发现如下错误： !ENTRY org.eclipse.osgi 4 0 2012-09-10 09:28:57.139 !MESSAGE Application error !STACK 1 java.lang.NoClassDefFoundError: org/eclipse/core/resources/IContai
  • spring aop实例annotation方法实现 bijian1013 javaspringAOPannotation
            在spring aop实例中我们通过配置xml文件来实现AOP，这里学习使用annotation来实现，使用annotation其实就是指明具体的aspect,pointcut和advice。1.申明一个切面(用一个类来实现)在这个切面里,包括了advice和pointcut AdviceMethods.jav
  • [Velocity一]Velocity语法基础入门 bit1129 velocity
    用户和开发人员参考文档 http://velocity.apache.org/engine/releases/velocity-1.7/developer-guide.html   注释 1.行级注释## 2.多行注释#*  *#   变量定义 使用$开头的字符串是变量定义，例如$var1, $var2,   赋值 使用#set为变量赋值，例
  • 【Kafka十一】关于Kafka的副本管理 bit1129 kafka
    1. 关于request.required.acks   request.required.acks控制者Producer写请求的什么时候可以确认写成功，默认是0， 0表示即不进行确认即返回。 1表示Leader写成功即返回，此时还没有进行写数据同步到其它Follower Partition中 -1表示根据指定的最少Partition确认后才返回，这个在   Th
  • lua统计nginx内部变量数据 ronin47 lua nginx　 统计
    server { listen 80; server_name photo.domain.com; location /{set $str $uri; content_by_lua ' local url = ngx.var.uri local res = ngx.location.capture(
  • java-11.二叉树中节点的最大距离 bylijinnan java
    import java.util.ArrayList; import java.util.List; public class MaxLenInBinTree { /* a. 1 / \ 2 3 / \ / \ 4 5 6 7 max=4 pass "root"
  • Netty源码学习-ReadTimeoutHandler bylijinnan javanetty
    ReadTimeoutHandler的实现思路： 开启一个定时任务，如果在指定时间内没有接收到消息，则抛出ReadTimeoutException 这个异常的捕获，在开发中，交给跟在ReadTimeoutHandler后面的ChannelHandler，例如 private final ChannelHandler timeoutHandler = new ReadTim
  • jquery验证上传文件样式及大小(好用) cngolon 文件上传jquery验证
    <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <script src="jquery1.8/jquery-1.8.0.
  • 浏览器兼容【转】 cuishikuan css浏览器IE
    浏览器兼容问题一：不同浏览器的标签默认的外补丁和内补丁不同 问题症状：随便写几个标签，不加样式控制的情况下，各自的margin 和padding差异较大。 碰到频率:100% 解决方案：CSS里    *{margin:0;padding:0;} 备注：这个是最常见的也是最易解决的一个浏览器兼容性问题，几乎所有的CSS文件开头都会用通配符*来设
  • Shell特殊变量：Shell $0, $#, $*, $@, $?, $$和命令行参数 daizj shell$#$?特殊变量
    前面已经讲到，变量名只能包含数字、字母和下划线，因为某些包含其他字符的变量有特殊含义，这样的变量被称为特殊变量。例如，$ 表示当前Shell进程的ID，即pid，看下面的代码： $echo $$ 运行结果 29949   特殊变量列表 变量 含义 $0 当前脚本的文件名 $n 传递给脚本或函数的参数。n 是一个数字，表示第几个参数。例如，第一个
  • 程序设计KISS 原则-------KEEP IT SIMPLE, STUPID! dcj3sjt126com unix
    翻到一本书，讲到编程一般原则是kiss：Keep It Simple, Stupid.对这个原则深有体会，其实不仅编程如此，而且系统架构也是如此。 KEEP IT SIMPLE, STUPID! 编写只做一件事情，并且要做好的程序；编写可以在一起工作的程序，编写处理文本流的程序，因为这是通用的接口。这就是UNIX哲学.所有的哲学真 正的浓缩为一个铁一样的定律，高明的工程师的神圣的“KISS 原
  • android Activity间List传值 dcj3sjt126com Activity
    第一个Activity： import java.util.ArrayList;import java.util.HashMap;import java.util.List;import java.util.Map;import android.app.Activity;import android.content.Intent;import android.os.Bundle;import a
  • tomcat 设置java虚拟机内存 eksliang tomcat 内存设置
    转载请出自出处：http://eksliang.iteye.com/blog/2117772 http://eksliang.iteye.com/ 常见的内存溢出有以下两种: java.lang.OutOfMemoryError: PermGen space java.lang.OutOfMemoryError: Java heap space   ------------
  • Android 数据库事务处理 gqdy365 android
    使用SQLiteDatabase的beginTransaction()方法可以开启一个事务，程序执行到endTransaction() 方法时会检查事务的标志是否为成功，如果程序执行到endTransaction()之前调用了setTransactionSuccessful() 方法设置事务的标志为成功则提交事务，如果没有调用setTransactionSuccessful() 方法则回滚事务。事
  • Java 打开浏览器 hw1287789687 打开网址open浏览器open browser打开url打开浏览器
    使用java 语言如何打开浏览器呢? 我们先研究下在cmd窗口中,如何打开网址 使用IE 打开 D:\software\bin>cmd /c start iexplore http://hw1287789687.iteye.com/blog/2153709 使用火狐打开 D:\software\bin>cmd /c start firefox http://hw1287789
  • ReplaceGoogleCDN：将 Google CDN 替换为国内的 Chrome 插件 justjavac chromeGooglegoogle apichrome插件
    Chrome Web Store 安装地址： https://chrome.google.com/webstore/detail/replace-google-cdn/kpampjmfiopfpkkepbllemkibefkiice 由于众所周知的原因，只需替换一个域名就可以继续使用Google提供的前端公共库了。 同样，通过script标记引用这些资源，让网站访问速度瞬间提速吧
  • 进程VS.线程 m635674608 线程
    资料来源： http://www.liaoxuefeng.com/wiki/001374738125095c955c1e6d8bb493182103fac9270762a000/001397567993007df355a3394da48f0bf14960f0c78753f000 1、Apache最早就是采用多进程模式 2、IIS服务器默认采用多线程模式 3、多进程优缺点 优点： 多进程模式最大
  • Linux下安装MemCached 字符串 memcached
    前提准备：1. MemCached目前最新版本为：1.4.22，可以从官网下载到。2. MemCached依赖libevent，因此在安装MemCached之前需要先安装libevent。2.1 运行下面命令，查看系统是否已安装libevent。[root@SecurityCheck ~]# rpm -qa|grep libevent libevent-headers-1.4.13-4.el6.n
  • java设计模式之--jdk动态代理（实现aop编程） Supanccy2013 javaDAO设计模式AOP
        与静态代理类对照的是动态代理类，动态代理类的字节码在程序运行时由Java反射机制动态生成，无需程序员手工编写它的源代码。动态代理类不仅简化了编程工作，而且提高了软件系统的可扩展性，因为Java 反射机制可以生成任意类型的动态代理类。java.lang.reflect 包中的Proxy类和InvocationHandler 接口提供了生成动态代理类的能力。 &
  • Spring 4.2新特性-对java8默认方法(default method)定义Bean的支持 wiselyman spring 4
    2.1 默认方法(default method) java8引入了一个default medthod; 用来扩展已有的接口,在对已有接口的使用不产生任何影响的情况下,添加扩展 使用default关键字 Spring 4.2支持加载在默认方法里声明的bean 2.2 将要被声明成bean的类 public class DemoService {
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他