1、插入一个用户窗体

需要在用户窗体中加入按钮的，则需要打开“工具箱”


插入控件按钮

2、代码编写

（1）、首先在sheet中添加一个按钮，来显示用户窗体，查看效果

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

鼠标单击CommandButton1出现如下窗口，这是未对窗口进行任何代码编写的效果。

（2）、在用户窗体中编写代码，打开编写界面

两个主要函数

Private Sub UserForm_Initialize()
	code
End Sub


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

UserForm_Initialize是窗体初始化函数，对窗体的高度宽度等一系列初始化操作区域。只要使用UserForm1.Show就会调用这一函数。
UserForm_QueryClose是窗体点右上角那个x之后，将调用该函数。

（3）、实际应用
将实现的功能：
读取所有sheet的名字
显示在窗体上
通过在窗体上选择想要的sheet的名字，输出打印到sheet1的单元格A1中。
将按钮修改名称为“确定”，点击确定即为确定选择内容，点击右上角的x，即为放弃修改。
最终效果：

Private Sub 确定_Click()
    Sheet1.Range("A1:Z1").ClearContents
    Call Process
    Unload UserForm1
End Sub
Private Sub Process()
   Dim TNum As Integer
   Dim flag As Integer
   flag = 0
   TNum = 0
   On Error Resume Next
     For i = 0 To UserForm1.Controls.Count - 1
        If UserForm1.Controls(i) = True Then
            Sheet1.Cells(1, 1) = Sheet1.Cells(1, 1) & " " & UserForm1.Controls(i).Caption
        End If
    Next
End Sub
Private Sub UserForm_Initialize()
    Dim sheetNameArr() As String
    Dim sheetnum As Integer
    For Each sht In Worksheets
        sheetnum = sheetnum + 1
    Next
    ReDim sheetNameArr(0 To sheetnum)
    sheetnum = 0
    For Each sht In Worksheets
        sheetNameArr(sheetnum) = sht.Name
        sheetnum = sheetnum + 1
    Next
    sheetnum = UBound(sheetNameArr) + 1
    'Fix是向下取整
    counts = Fix(sheetnum / 10) + 1
    '设置窗体高度和宽度
    UserForm1.Width = 150 * counts '每增加1列宽度加150。
    If sheetnum < 11 Then UserForm1.Height = 20 * sheetnum + 50
    If sheetnum > 10 Then UserForm1.Height = 250
    '设置按钮的高度宽度以及相对窗体的位置
    UserForm1.确定.Width = 100
    UserForm1.确定.Height = 25
    UserForm1.确定.Top = UserForm1.Height - 50
    UserForm1.确定.Left = (UserForm1.Width - 100) / 2
    For X = 1 To counts
        Y = 10 * X '每列显示10个控件
        If X = 1 Then '开始第1列显示
            Start = 2
            Ends = 11
        Else '换列显示
            Start = Ends + 1
            Ends = Y + 1
        End If
    
        If Ends > sheetnum Then '防止溢出
            Ends = sheetnum
        End If
        For i = Start To Ends '循环生成控件
           Set ChkBox = UserForm1.Controls.Add("Forms.CheckBox.1", "Chk" & Str(i))
           If i > 11 Then
               tops = 2 + 20 * (i - Y + 8) '换列后的控件高度坐标
           Else
              tops = 2 + 20 * (i - 2)
           End If
           ChkBox.Top = tops
           ChkBox.Height = 25 '控件的高度
           ChkBox.Width = 200 '控件的宽度
           ChkBox.Left = 20 + 150 * (X - 1) '220 换列后的横坐标
           ChkBox.Caption = sheetNameArr(i - 2) '控件显示的标题
           Set ChkBox = Nothing
        Next
    Next

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

https://download.csdn.net/download/qq_39629993/12693907

目录

    (1)添加文本框

    (2)添加面体标题

    (3)添加选项组

(4)绑定型和未绑定型组合框

 (5)创建未绑定型组合框，使用组合框查阅表或查询中的值

 (6)创建“自行键入所需的值”的未绑定型组合框

 (7)创建未绑定型组合框，使用组合框“在基于组合框中选定的值而创建的窗体上查找记录”

    使用控件向导向窗体上添加控件是一种基本方法。在窗体上添加控件后，往往还需要在设计视图中，对所添加的控件属性进行某些设置。

    (1)添加文本框

    例   添加文本框控件，用来分别显示当前系统日期、显示密码、显示当前记录的汇总。操作步骤如下：
    1)打开数据库，在“创建”选项卡的“窗体”分组中，单击“窗体设计”按钮，创建一个新的窗体，打开该窗体的设计视图，同时，打开“设计”选项卡．
    2)在“设计”选项卡的“控件”分组中，单击“文本框”按钮，鼠标移到窗体上，显示文本框图标，按住左键拖动鼠标画出一个大小适当的文本框，这时打开”文本框”向导对话框。在这个对话框中可以设置文本框中文字的字体、字形、字号以及对齐方式等。

    3)在“文本框向导”对话框中，单击“下一步“按钮，打开“输入法模式设置”对话框。

    在该对话框的“输入法模式设置”列表中，有三个列表项“随意”、  “输入法开启”和“输入法关闭”．如果文本框是用于接受汉字输入，选择“输入法开启”，例如姓名、商品名称等，这样在输入数据时，当光标移到该文本框上后，直接打开汉字输入方法；如果文本框用于接受输入英文和数字，例如工资、日期等，要选择“输入法关闭”或“随意”。
    4)下一步，在“请输入文本框的名称”文本框中输入“输入密码”，单击“完成”按钮。文本框创建完毕，返回到窗体设计视图中．

    5)双击文本框，打开文本框属性表。在属性表中，选择“数据”选项卡，单击“输入掩码”右侧“生成器”的按钮

     6)在打开的“输入掩码向导”对话框中，选择“密码”，然后单击“完成”按钮。
    7)返回到“文本框属性”对话框中，在“输入掩码”框中，显示属性值为“密码”．
  注意  在控件中设置输入掩码与在数据表中设置字段的输入掩码属性的方法完全相同。
    8)按照上述步骤在窗体上添加一个文本框，然后双击文本框，打开属性表．选择“全部”选项卡。
    9)在“名称”和“控件来源”文本框中，分别输入属性值“今日”和表达式“=Date()”，设置“格式”属性为“长日期”。

     10)单击“视图”按钮，把窗体从“设计视图”切换到“窗体视图”，在“今日”文本框中显示系统当前日期。在“输入密码”中，输入密码后显示“*"号。

    11)保存窗体命名为“密码示例”。

    (2)添加面体标题

    使用Access提供的标题控件，可以直接在窗体中添加标题，省去了进行设置的步骤。其标题的内容是由窗体的数据源决定的。
    例  下面介绍添加窗体标题的操作步骤．
    打开“密码示例”窗体，切换到设计视图，在“设计”选项卡的“页眉／页脚”组中，单击“标题”按钮。则在窗体中，自动添加“页眉／页脚”节，同时在页眉节中，立即显示出窗体标题“密码示例”。

 (3)添加选项组

  例    在教师窗体中添加一个政治面目选项组。操作步骤如下：
  1)打开“教师”窗体，切换到设计视图。在“设计”选项卡的“控件”组中，单击“选项组”按钮，在窗体主体节右侧的适当位置上拖动鼠标画出一个大小适当的矩形。
    2)在打开“请为每个选项指定标签”对话框中，依次输入每个选项的标签：  “党员”、“团员”和“群众”．然后，单击“下一步”。

    3)在打开的“请确定是否使某选项成为默认选项”对话框中，要求确定是否需要默认选项．通常选择“是，默认选项是”选项，并指定“党员”为默认项。然后单击“下一步”按钮。

   4)在打开的“请为每个选项赋值”对话框中，默认即可。然后单击“下一步”按钮。

5)在打开的“请确定对所选项的值采取的动作”对话框中，选择默认．然后单击“下一步”按钮。

     6)在打开的“请确定在选项组中使用何种类型的控件”对话框中，选择“选项按钮”及“蚀刻”。

    7)在打开的“请为选项组指定标题”对话框中，在“请为选项组指定标题”文本框中，输入标题“政治面貌”，单击“完成”按钮。

    8)在工具栏上，单击【视图】按钮，选择“窗体视图”选项组设计结果。

    (4)绑定型和未绑定型组合框

    组合框（或列表框）分为绑定型和未绑定型两种，通常在窗体上，使用控件创建组合框时，都是创建未绑定型组合框。在使用中，用户从组合框（或列表框）选择列表项。
    如果组合框是与表（或查询）的一个字段链接在一起，在设计视图中，一定显示的是该字段的名称。而在窗体视图中，当选择下一个记录时，如果组合框中的字段值随之变化，它一定是绑定型的，否则就是未绑定型的。
    在窗体上创建非绑定型组合框，主要是为了通过选择组合框中的列表项值来决定窗体上查询的内容。
    使用向导是创建未绑定型组合框的最好方法。使用向导创建组合框，有3种为组合框提供获取数值的方式：

•     使用组合框查阅表或查询中的值
•     自行键入所需的值
•     在基于组合框中选定的值而创建的窗体上查找记录，注意只有设置了窗体的数据源，第3种方式才出现。

 (5)创建未绑定型组合框，使用组合框查阅表或查询中的值

    例  在上一例中，添加基于“系别”表的非绑定型组合框，操作步骤如下：
    1)在“设计”选项卡的“控件”组中，单击（组合框）按钮，在窗体页眉节的适当位置单击鼠标。打开“请确定组合框获取其数值的方式”对话框，选择“使用组合框获取其他表或查询中的值”j单击“下一步”按钮。

     2)在“请选择为组合框提供数值的表或查询”对话框中，选择“表：系别”，单击“下一步”按钮。

    3)在“系别的哪些字段中含有要包含到组合框中的数值”对话框中，单击按钮，把全部字段选中，添加到“选定字段”列表中，然后单击“下一步竹按钮。

    4)在“请确定要为列表框中的项使用的排序次序”对话框中，选择“系别名称”字段，排序方式默认“升序”，单击“下一步’’按钮。

    5)在“请指定组合框中列的宽度”对话框中，默认列的宽度和默认隐藏键列，单击“下一步”按钮。’

    6)在“请确定在组合框中选择数值后Microsof Access的动作”对话框中，默认选择呵己忆该数值供以后使用”，单击“下一步”按钮。

    7)在打开的“请为组合框指定标签”对话框中，默认组合框标签名称为“系别名称”，单击“完成”按钮。

    8)单击“视图”按钮，切换到“窗体视图”，看到创建组合框的结果。

     (6)创建“自行键入所需的值”的未绑定型组合框

    例   创建教师职称组合框，操作步骤如下：
    1)打开“教学管理”数据库的“教师”窗体，然后切换到设计视图。
    2)在“设计”选项卡的“控制”组中，单击（组合框）按钮，在窗体主体节的适当位置单击鼠标．在打开“请确定组合框获取其数值的方式”对话框中，选择“自行键人所需的值”，单击“下一步”按钮。

    3)在打开的“请确定组合框中显示哪些值”对话框中，默认列数为“1”，在第一列中，输入“教授”、  “副教授”、  “讲师”和“助教”，单击“下一步”按钮。

    4)在打开的“请确定在组合框中选择数值后MicrosofY Access的动作”对话框中，默认选择“记忆该数值供以后使用”，单击“下一步”按钮。

    5)在打开的“请为组合框指定标签”对话框中，输入标签名称：  “职称”，单击“完成”按钮。然后，返回到窗体设计视图。

    6)在选项卡的“对象视图”组中，单击“视图”按钮，创建组合框的结果。

    (7)创建未绑定型组合框，使用组合框“在基于组合框中选定的值而创建的窗体上查找记录”

    例  在“教师授课”窗体上，创建一个教师姓名组合框，用来查找教师。操作步骤如下：
    1)打开“教学管理”数据库的“教师授课”窗体，然后切换到设计视图。在“设计”选项卡的“控件”组中，单击（组合框）按钮，在窗体页眉节的适当位置用鼠标拖出一个矩形。在打开的“请确定组合框获取其数值的方式”对话框中，选择“在基于组合框中选定的值而创建的窗体上查找记录”，单击“下一步”按钮。

    2)在打开的“教师的哪些字段中含有要包含到组合框中的数值”对话框“可用字段”窗格中，双击“姓名”字段，把它发送到“选定字段”窗格中，单击“下一步”按钮。

    3)在打开的“请指定组合框中列的宽度”对话框中，使用默认宽度即可，单击“下一步”按钮。

    4)在“请为组合框指定标签”对话框中，输入“教师姓名”，单击“完成”按钮。

    5)在“设计“选项卡的“对象视图”组中，单击“视图”按钮，打开“窗体视图”；可以看到创建“教师姓名”组合框的结果。在组合框中，选择一个教师名，在教师档案表中，显示该教师的有关信息。

import javax.swing.*;
import java.awt.*;
import java.awt.event.ActionEvent;
import java.awt.event.WindowAdapter;
import java.awt.event.WindowEvent;

/*
需求：把按钮添加到窗体，并对按钮添加一个点击事件
1：创建窗体对象
2：创建按钮对象
3：把按钮添加到窗体
4：窗体提示
 */
public class FrameDemo {
    public static void main(String[] args) {
        //创建窗体对象
        Frame f=new Frame("添加按钮");
        //设置属性
        f.setBounds(600,300,600,300);
        //设置未流式布局，讲了5种布局
        f.setLayout(new FlowLayout());

        //创建按钮对象
        Button bu=new Button("点我啊");
//        bu.setSize(20,10);这个没用
        //把按钮添加到窗体
        f.add(bu);

        //设置窗体可关闭
        f.addWindowListener(new WindowAdapter() {
            @Override
            public void windowClosing(WindowEvent e) {
                System.exit(0);
            }
        });

        //给按钮bu添加个事件
        bu.addActionListener(new AbstractAction() {
            @Override
            public void actionPerformed(ActionEvent e) {
                System.out.println("你在点试试");
            }
        });

        //窗体显示：
        f.setVisible(true);


    }
}