大众计算机学习网

专门提供各种电脑教程

vba窗体在运行的时候动态添加控件的代码

Admin | 2012-2-15 11:15:42 | 被阅次数 | 8709

  在Excel的窗体里面,如何在窗体运行的情况下动态的添加控件呢?

  以下代码,以动态添加控件为例子,希望对你有帮助。

  一、动态添加CommandButton命令按钮

  Dim mc As CommandButton

   Static k

   k = k + 1

   Set mc = Me.Controls.Add("Forms.Commandbutton.1")

   mc.Caption = k

   mc.Top = Me.Controls(k - 1).Top + Me.Controls(k - 1).Height

   Me.Controls.Remove "Commandbutton1"

  二、动态添加文本框

  Set   myText   =   Controls.Add( "VB.TextBox ",   "myTextBox ")

  With   myText
         .Visible   =   True
         .Text   =   "这是加载的动态控件 "
         .Width   =   3200
  End   With