如何动态添加按钮控件

deansroom 2005-12-22 08:50:28

如题

...全文

167 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

deansroom 2005-12-22

打赏
举报

回复

多谢

上官云峰 2005-12-22

打赏
举报

回复

Option Explicit

Dim WithEvents cmdSayHello As CommandButton
Dim WithEvents cmdClose As CommandButton

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdSayHello_Click()
MsgBox "Hello world!", vbInformation, Me.Caption
End Sub

Private Sub Form_Load()

Set cmdSayHello = Me.Controls.Add("VB.CommandButton", "cmdSayHello")
With cmdSayHello
.Left = 4000
.Top = 250
.Width = 1200
.Height = 350
.Caption = "&Say Hello"
.Visible = True
End With

Set cmdClose = Me.Controls.Add("VB.CommandButton", "cmdClose")

With cmdClose
.Left = 4000
.Top = 700
.Width = 1200
.Height = 350
.Caption = "&Close"
.Visible = True
End With
End Sub

你试试

这是一个自制的active控件，其中向控件添加菜单困扰了我很久，不知道谁能把它改成弹出式菜单。
有疑问请和我联系。

在这篇文章中，我们将学习如何在winform中添加按钮。我们可以在设计视图里添加按钮控件，也可以在代码中动态添加按钮控件，下面的代码显示了如何在winform中动态添加一个按钮控件。using System;using System.ComponentModel;using System.WinForms;using System.Drawing;public class MenuTest

Sub MakeButton() '自动添加一个Sheet '动态生成一个按钮控件 '动态生成事件 ' Dim WSheet As Worksheet Dim MyNewbtn As OLEObject Dim Target As Range Dim ShtCodeName As String Set WSheet = Worksheets

Pyqt 动态的添加控件 // An highlighted block # -*- coding: utf-8 -*- 2 from PyQt4.QtCore import * 3 from PyQt4.QtGui import * 4 import sys 5 ''' 6 Pyqt 动态的添加控件 7 ''' 8 9 class DynAddObject(QDialog): 10 def __init__(self, parent=None): 11 super

预期功能：界面上有一个按钮，点击之后，能够在界面上添加一个控件组，控件组内包括：label，LineEdit，ToolButton等，能多次添加，bqie

1,453

社区成员

41,354

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章