使用VB6中的代码创建对象

Question

我在Visual Basic 6中有一个程序，我需要在程序中使用代码创建一个按钮。

我写这段代码：

private sub Pulso_click()
    dim boton as CommandButton
    set boton = new CommandButton
    boton.width = 100
    boton.height = 30
    boton.caption = "MiBoton"

End Sub

但不要跑。我有＆＃34; El uso de la palabra clave New no es valido＆＃34;， in english＆＃34; keyword new use invalid＆＃34;。

在Visual Basic 6中运行

问题在哪里？感谢

Answer 1

此代码适用于我

 Option Explicit
'
Dim WithEvents Cmd1 As CommandButton
'
Private Sub Form_Load()
  Set Cmd1 = Controls.Add("vb.commandbutton", "Cmd1")
  Cmd1.Width = 2000
  Cmd1.Top = Me.Height / 2 - Cmd1.Height / 2 - 100
  Cmd1.Left = Me.Width / 2 - Cmd1.Width / 2 - 100
  Cmd1.Caption = "Dynamic Button"
  Cmd1.Visible = True
End Sub
'
Private Sub Cmd1_click()
  MsgBox "I have been Created Dynamically at Run-time", _
    , "Dynamic Controls"
End Sub
'

对我没有任何问题，我希望这段代码适合你，你也可以使用索引创建一个命令按钮并将索引设置为零然后在表单加载或任何你想要它显示

Load Command1(1)
Command1(1).Caption = "command2"
Command1(1).Left = Command1(0).Left + Command1(0).Width
Command1(1).Top = Command1(0).Top
Command1(1).Visible = True

你明白了，祝你好运，当我有一堆控件以这种方式加载时，我自己多次使用索引，享受。

Answer 2

您的代码看起来不像是来自VB6 IDE。我想你有一个IDE，对吧？如果是这样的话：

您无法通过代码创建CommandButton。如果在运行时需要一个，则需要一个控制字段。若要创建控件字段，请在窗体上放置一个CommandButton控件。给它指数0.将其Visible属性设置为False。

您的代码似乎意味着像素。将表单的ScaleMode属性设置为3 - 像素。

现在您可以从此模板创建更多实例。

Private Sub Form_Load()
    Load Command1(1)
    With Command1(1)
        .Top = 10
        .Left = 10
        .Width = 100
        .Height = 30
        .Caption = "MiBoton 1"
        .Visible = True
        .ZOrder
    End With

    Load Command1(2)
    With Command1(2)
        .Top = 10
        .Left = 120
        .Width = 100
        .Height = 30
        .Caption = "MiBoton 2"
        .Visible = True
        .ZOrder
    End With
End Sub