如何动态创建控件？

如何动态创建控件？ 问题点数：20、回复次数：2Top

1 楼ferrytang（欢迎你）回复于 2002-03-25 11:58:37 得分 10

loadTop

2 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2002-03-25 12:02:06 得分 10

Option   Explicit  
  '声明对象变量为   CommandButton   。  
  Private   WithEvents   cmdObject   As   CommandButton  
   
  Private   Sub   Form_Load()  
          '动态添加按钮  
          Set   cmdObject   =   Form1.Controls.Add("VB.CommandButton",   "cmdOne")  
          With   cmdObject  
                  .Visible   =   True  
                  .Caption   =   "动态按钮"  
                  .Width   =   1000  
                  .Height   =   500  
                  .Top   =   Form1.Height   /   2   -   500  
                  .Left   =   Form1.Width   /   2   -   500  
          End   With  
  End   SubTop

相关问题

• 控件
• cmdobject
• 创建控件
• 动态
• commandbutton
• 按钮
• form1
• sub
• height
• width

• 帖主：doubleh
• ferrytang
• lihonggen0

• Visual Basic类图书
• Visual Basic类源码下载