请教:不把按钮拖到窗体,纯用代码怎么把一个按钮显示在窗体上?

Question

请教:不把按钮拖到窗体,纯用代码怎么把一个按钮显示在窗体上?

Answer 1

1.控件数组
2.controls.add
3.createwindows

Answer 2

能不能给点简单的代码示例,十分感谢.
1.控件数组      我还是只会拖动到窗体        : 0
2.controls.add  不知道要引用哪个tlb或者dll  : 0
3.createwindows  估计是个api吧...

Answer 3

EG:
Dim WithEvents MyTimer As VB.TimerPrivate Sub Form_Load()
  Dim MyControl As Control
  
  Set MyTimer = Me.Controls.Add("VB.TIMER", "mytimetest")
  MyTimer.Interval = 1000
  MyTimer.Enabled = True
  
  Set MyControl = Me.Controls.Add("vb.commandbutton", "mybuttontest")
  With MyControl
    .Visible = True
    .Left = 100
    .Top = 150
    .Caption = "test"
  End With
  
  Set MyControl = Me.Controls.Add("vb.textbox", "mytexttest")
  With MyControl
    .Visible = True
    .Left = 200
    .Top = 650
    .Text = "test"
  End With
  
  
End Sub
Private Sub MyTimer_Timer()
  Debug.Print "mytimer"
End Sub

Answer 4

谢谢你们.gguueesstt代码很漂亮,尤其示timer_timer部分.我试着加了个commandButton的事件相应,一样好使:) 我原来以为controls.add的控件数组不能相应事件的:)我的一点更改:
Dim WithEvents MyTimer As VB.Timer
Dim WithEvents MyButton As VB.CommandButtonPrivate Sub Form_Load()
  Dim MyControl As Control
  
  Set MyButton = Me.Controls.Add("VB.commandbutton", "myCommandtest")
  MyButton.Top = 1500
  MyButton.Left = 1500
  MyButton.Width = 1500
  MyButton.Height = 500
  MyButton.Caption = "Button"
  MyButton.Visible = True
  Set MyTimer = Me.Controls.Add("VB.TIMER", "mytimetest")
  MyTimer.Interval = 1000
  MyTimer.Enabled = True
  
  Set MyControl = Me.Controls.Add("vb.commandbutton", "mybuttontest")
  With MyControl
    .Visible = True
    .Left = 100
    .Top = 150
    .Caption = "test"
  End With
  
  Set MyControl = Me.Controls.Add("vb.textbox", "mytexttest")
  With MyControl
    .Visible = True
    .Left = 200
    .Top = 650
    .Text = "test"
  End With
  
  
End Sub
Private Sub MyTimer_Timer()
  Debug.Print "mytimer"
End SubPrivate Sub mybutton_click()
Debug.Print "Button"
End Sub