精华内容
下载资源
问答
  • 窗体动态添加按钮

    2012-09-30 08:58:24
    窗体动态添加按钮窗体集合中添加按钮,即让窗体中显示按钮
  • (1)、首先sheet中添加一个按钮,来显示用户窗体,查看效果 Private Sub CommandButton1_Click() UserForm1.Show End Sub 鼠标单击CommandButton1出现如下窗口,这是未对窗口进行任何代码编写的效果。 (2)、...

    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

    展开全文
  • VB在窗体标题栏中添加自定义按钮,类似最大化,最小化按钮一样,美化一下,看不出是用户添加按钮,当然,本例是只是简单的进行了美化。
  • C#170在窗体标题栏中添加帮助按钮 源代码
  • # Tkinter基础 Button command在窗体中添加一个按钮,单击按钮 IDLE打印一行字 import tkinter as tk class App(): def __init__(self, master): frame = tk.Frame(master) frame.pack() ...

    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

    展开全文
  • 在窗体标题栏中添加帮助按钮,C#源代码this.HelpButton = true; VisualStudio2008创建
  • winform窗体中listview内动态添加button按钮类似驾校考试系统
  • 尝试了多次,此记录一下,如果有什么不对或者更好的方案,还请大家赐教。 代码如下: import java.awt.BorderLayout; import java.awt.event.ActionEvent; import java.awt.event.ActionListener; import ja

    有时候我们会用到动态添加组件的情况。可以根据人们需要的组件以及组件个数来动态添加。

    尝试了多次,在此记录一下,如果有什么不对或者更好的方案,还请大家赐教。

    代码如下:

    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();
    	}
    }
    
    显示结果:

    只是,我这个代码有点儿问题,它添加了之后,只能在此次打开的窗口显示添加的内容,当重新打开窗口的时候,以前添加的组件都不见了。

    暂时还没有找到解决办法。不过现在再考虑用表格添加组件,试试看能不能解决这一问题。

    展开全文
  • 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;... * 需求:把按钮
    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);
    			}
    		});
    	}
    }
    
    展开全文
  • private void btnOk_Click(object sender, ...//定义btnOK按钮的Click事件 { Student a = new Student(); //用Student类定义变量a,并初始化 a.no = Convert.ToInt32(txtStuID.Text); a.name = txtName.Text;
  • 这是一个在窗体标题栏添加自定义按钮的组件(TTitleBarButton)开发实例,标题栏按钮组件TTitleBarButton以TComponent为直接继承对象,它是一个可以在窗体标题栏上显示按钮的组件,像最大化、最小化和关闭按钮等。...
  • 内容索引:VC/C++源码,界面编程,窗体,图标 VC++在窗体工具栏添加带文本和图标的按钮,也就是类似Windows记事本一样的按钮,虽然简单,但挺实用,VC新手一定要看一下,窗体菜单及按钮的布局是学习VC窗体的一些基本...
  • import javax.swing.*; import java.awt.*; import java.awt.event.ActionEvent; import java.awt.event.WindowAdapter;...3:把按钮添加窗体 4:窗体提示 */ public class FrameDemo { public sta
  • 主要介绍了VC实现给窗体的一个按钮添加事件的方法,通过三个简单步骤实现窗体按钮添加事件,需要的朋友可以参考下
  • 按钮添加窗体

    2016-05-06 21:59:55
    按钮添加窗体
  • (1)创建窗体对象(2)创建按钮对象(3)把按钮添加窗体(4)窗体显示 2.编写程序思路: 窗体布局:窗体中组件的排列方式 布局分类如下: package cn.itcast_04; import java.awt.Button; import ...
  • dotnetbar添加按钮在窗体中显示

    千次阅读 2013-06-03 11:15:21
    引用: DevComponents.DotNetBar2.dll  DevComponents.DotNetBar.Design.dll DevComponents.Instrumentation.Design.dll 后即可
  • win1.title('MY main')#添加窗体名称 win1.geometry('670x470')#设置窗体大小 win1.mainloop()#执行窗体 4.弹出一个对话框 import tkinter as tk from tkinter import messagebox#需要引用messagebox win1=tk.Tk()...
  • vc6.0 怎么在一个窗体中改变另一个窗体上的按钮状态? 比如说:窗体1上有4个按钮,现在点击按钮4弹出另外一个窗体2,窗体2上有个按钮,现在我想点击窗体2上这个按钮窗体1上按钮1、2、3,全部隐藏,应该怎么实现呢...
  • * C:把按钮添加窗体 * D:窗体显示 */ public class FrameDemo { public static void main(String[] args) { // 创建窗体对象 Frame f = new Frame("按钮功能"); // 设置属性大小 f.setBounds(400,...
  • 在窗体中添加标签Label、Icon图标

    千次阅读 2017-11-14 10:32:00
    一,在窗体中创建一个带有指定文本的标签对象并添加一个图像 实现界面: 详细代码: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 packagecom.lixiyu; ...
  • QT 圆形窗体,圆形按钮

    千次阅读 2018-04-12 17:44:04
    QT 圆形窗体,圆形按钮 一、简要说明 1、在窗体上画一个圆形(如果添加上点击等事件,这个圆形就相当于一个控件——圆形PushButton) 2、无边框 3、窗体透明化,窗体上的控件不透明 4、实现无边框拖动 代码打包...
  • ​ 当窗体中有键盘输入触发事件,这个时候触发事件是正常的,但是当在窗体中添加按钮事件后,键盘输入事件失效。 原因: ​ Keypress事件所指示的控件找不到焦点。 解决: ​ 可以使用以下代码: KeyPreview = ...
  • 业务情况是这样的: ...我初步认为是因为_切换时是新建的窗体_,_切换的是新建的窗体中的TabPage_,所以就没有效果 但如果是这样,那我该如何更改代码才能应用更改到原来的窗体中? 望求各位大神解答,QWQ
  • 窗体中添加panel,通过button来实现panel切换不同的窗体。 首先我们新建一个winfrom窗体应用程序,并且添加两个panel: 点击按钮,2号panel会出现我们的子窗体:下面是方法 private void button1_Click...
  • ![图片说明](https://img-ask.csdn.net/upload/201910/05/1570238791_20186.jpg)
  • Button[] buttons = new Button[10]; private void Form2_Load(object sender, EventArgs e) { for(int i = 0; i ; i++) ...我这里是动态添加了10个按钮并给每个按钮的Text属性赋值为其编号。

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 75,896
精华内容 30,358
关键字:

怎样在窗体中添加按钮