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

code 

# Tkinter基础 Button command在窗体中添加一个按钮，单击按钮 在IDLE中打印一行字

import tkinter as tk

class App():
    def __init__(self, master):
        frame = tk.Frame(master)
        frame.pack()

        self.testButton = tk.Button(frame, text = "hello", fg = "blue", command = self.testPrint)
        self.testButton.pack()

    def testPrint(self):
        print("测试消息！！！！")


root = tk.Tk()
app = App(root)
root.mainloop()

结果：


 
转载于:https://www.cnblogs.com/wilson-wu/p/8343298.html

有时候我们会用到动态添加组件的情况。可以根据人们需要的组件以及组件个数来动态添加。
尝试了多次，在此记录一下，如果有什么不对或者更好的方案，还请大家赐教。
代码如下：

import java.awt.BorderLayout;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;

import javax.swing.JButton;
import javax.swing.JFrame;
import javax.swing.JPanel;
import javax.swing.JTextField;

public class Test4 extends JFrame{
	JTextField text;		// 文本框（要输入单行文本的区域）
	JPanel panel1,panel2;	// 两个面板，panel1是窗体北部的面板，窗体其他部分为panel2面板
	
	JButton button;	// 一个按钮，当按下此按钮时，响应MyEvent事件
	
	public Test4(){
		this.setBounds(300,200,400,300);	// 设置窗体大小
		this.setLayout(new BorderLayout());	// 设置窗体的布局方式
				
		text = new JTextField(15);		// 新建文本框
		button = new JButton("添加");	// 新建按钮
		
		// 新建面板
		panel1 = new JPanel();
		panel2 = new JPanel();
			
		// 在panel1中添加text文本框和button按钮
		panel1.add(text);
		panel1.add(button);
		
		// 在窗体中添加panel1和panel2两个面板，并且设置panel1位于窗体北部
		this.add(panel1,BorderLayout.NORTH);
		this.add(panel2);
		
		this.setVisible(true);		// 显示窗体
		this.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);		// 设置窗体可关闭
	}
	
	public void MyEvent(){
		button.addActionListener(new ActionListener(){

			@Override
			public void actionPerformed(ActionEvent arg0) {
				// TODO Auto-generated method stub
				String str = text.getText();
//				System.out.println(str);
				JButton test = new JButton(str);
				
				// 在面板panel2中动态添加按钮
				panel2.add(test);
				
				// 重绘面板（重要重要重要）
				panel2.revalidate();
				
			/* 以下方式重绘面板均不可取
			 * 	panel2.paintImmediately(panel2.getX(), panel2.getY(), panel2.getWidth(), panel2.getHeight());
				panel2.repaint();
			 */
			}
			
		});
	}
	// 主函数
	public static void main(String[] args){
		new Test4();
	}
}
显示结果：


只是，我这个代码有点儿问题，它添加了之后，只能在此次打开的窗口显示添加的内容，当重新打开窗口的时候，以前添加的组件都不见了。
暂时还没有找到解决办法。不过现在再考虑用表格添加组件，试试看能不能解决这一问题。

package cn.itcast_06;

import java.awt.Button;
import java.awt.FlowLayout;
import java.awt.Frame;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import java.awt.event.WindowAdapter;
import java.awt.event.WindowEvent;

/*
 * 需求：把按钮添加到窗体，并对按钮添加一个点击事件
 *     A:创建窗体对象
 *     B:创建按钮对象
 *     C：把按钮添加到窗体
 *     D：窗体显示
 * 
 */
public class 窗体添加按钮并对按钮添加事件 {

	public static void main(String[] args) {
		// 创建窗体对象
		Frame f = new Frame("添加按钮");
		
		//设置属性
		f.setBounds(400, 200, 400, 300);
		
		//设置布局
		f.setLayout(new FlowLayout());
		
		//创建按钮对象
		Button bu = new Button("点我啊");
		bu.setSize(20,10);
		
		//按钮添加到窗体
		f.add(bu);
		
		//按钮添加事件
		bu.addActionListener(new ActionListener() {
			
			@Override
			public void actionPerformed(ActionEvent e) {
				System.out.println("你点我试试");		
			}
		});
		
		//窗体显示
		f.setVisible(true);
		
		//窗体关闭
		f.addWindowListener(new WindowAdapter() {
			@Override
			public void windowClosing(WindowEvent e) {
				System.exit(0);
			}
		});
	}
}