CosmosScript Problem

  • VB.NET

    CosmosScript Problem

    Hallo Community,

    ich brauche hilfe bei der GUI erstellung für mein aktuelles Projekt.

    Mein Problem ist das ich nur ein Button erstellen kann.

    Hier der Code :

    Variablen :

    VB.NET-Quellcode

    1. Dim Form(50) As System.Windows.Forms.Form
    2. Dim Formi(50) As String
    4. Dim Button(50) As System.Windows.Forms.Button
    5. Dim Buttoni(50) As String


    Funktionen :

    VB.NET-Quellcode

    1. Public Sub NeueForm(ByVal FormName As String, ByVal FormText As String)
    2. For i As Integer = 0 To UBound(Formi)
    3. If Formi(i) = "" Then
    4. Form(i) = New System.Windows.Forms.Form
    5. Form(i).Name = FormName
    6. Form(i).Text = FormText
    7. Formi(i) = FormName
    8. End If
    9. Next
    10. End Sub
    12. Public Sub NeuerButton(ByVal FormName As String, ByVal ButtonName As String, ByVal ButtonText As String, ByVal x As Integer, ByVal y As Integer)
    13. For i As Integer = 0 To UBound(Buttoni)
    14. If Buttoni(i) = "" Then
    15. Button(i) = New System.Windows.Forms.Button
    16. Button(i).Name = ButtonName
    17. Button(i).Text = ButtonText
    18. Button(i).Location = New Point(x, y)
    19. Buttoni(i) = ButtonName
    20. End If
    21. Next
    22. End Sub


    Erstellen :

    VB.NET-Quellcode

    1. Public Function Create(ByVal FormName As String)
    2. Dim Form_ As Integer
    3. For i As Integer = 0 To UBound(Formi)
    4. If Formi(i) = FormName Then
    5. Form_ = i
    6. Else
    8. End If
    9. Next
    11. For i_ As Integer = 0 To UBound(Buttoni)
    12. Form(Form_).Controls.Add(Button(i_))
    13. Next
    16. Application.Run(Form(Form_))
    17. End Function


    Kann mir jemand helfen ?