Visual studio 用VB6中的代码创建对象

我有一个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

但不要跑。我有“El uso de la palabra clave New no es valido”， 英语中的“关键字新用法无效”

这是在VisualBasic6中运行的

---

问题在哪里？？？谢谢

您的代码看起来不像源于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

---

您的代码看起来不像源于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

这个代码对我有用

 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
'

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

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

你明白了，祝你好运，当我有一堆控件时，我经常自己使用索引，它以这种方式加载得更快，享受吧。

这段代码适合我

 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
'

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

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

---

你明白了，祝你好运，当我有一堆控件时，我经常自己使用索引，它以这种方式加载得更快，享受吧。

你现在需要将按钮控件“boton”添加到表单（UI应用程序窗口）中，而不是在运行时以编程方式将控件添加到表单中，我认为这是一种更好的方法，在设计时添加按钮，并在需要时隐藏/显示。这也有助于具体化。动态创建控件需要不同于创建简单类实例的步骤。当然，它们都是“对象”，但两者之间的差异决定了整个世界的差异。现在，您需要将按钮控件“boton”添加到窗体（UI应用程序窗口）中，而不是在运行时以编程方式将控件添加到窗体中，在我看来，更好的方法是在设计时添加按钮，并且在需要的时候简单地隐藏/显示它。这也有助于具体化。动态创建控件需要不同于创建简单类实例的步骤。当然，它们都是“对象”，但这两者的不同造就了世界上所有的不同。你可以“按代码”创建一个命令按钮看看我在回答中给出的第一个示例，这是一个动态控件。感谢Herb，这是一个很好的解决方案。你可以“按代码”创建一个命令按钮看看我在回答中给出的第一个示例，这是一个动态控制。谢谢赫伯，一个很好的解决方案。