如何动态添加按钮控件

deansroom 2005-12-22 08:50:28

如题

...全文

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

写回复

用AI写文章

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

你试试

这个例子能够在CFileDialog中增加一对按纽，需要使用Visual C++ 6.

6.将窗体自定义系统按钮改为集合模式，可添加无数个自定义系统按钮。自定义系统按钮事件中可以 e.参数来判断。 7.增加360安全卫士-DEMO案例。 8.增加SkinAnimatorImg控件，用于支持位图动画的播放。如360的动态logo...

有时我们需要在程序中动态添加布局或控件等，下面用程序来展示一下相应的方法：

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