PictureBoxen mit der Anzahl an Button_Klicks erstellen

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    PictureBoxen mit der Anzahl an Button_Klicks erstellen

    Hallo!

    Ich versuche grade eine Programm zu erstellen,der auf den Button_Klick reagiert,und mit den Anzahl der Klicks Controls erstellt...

    Ich versuchs so:

    VB.NET-Quellcode

    1. Dim x As Integer = 0
    3. x = x + Label1.Text -1
    5. Dim btnArray(x) As PictureBox
    10. For i As Integer = 0 To x
    18. btnArray(i) = New PictureBox
    22. With btnArray(i)
    23. .Parent = Me
    24. .Parent.Controls.Add(btnArray(i))
    27. .Name = "Button" & CStr(i)
    28. .TabIndex = i
    31. .Text = "Button(" & x & ")"
    33. .Size = New Size(80, 30)
    34. .Location = New Point(10, 10 + i * 2 * .Height)
    35. .Visible = True
    38. AddHandler .Click, AddressOf btnArray_Click
    40. End With
    42. Next i
    44. End Sub


    Doch damit werden sofort zB 4 PictureBoxen erstellt!

    Ich möchte,aber das es mit einem Klick auf den Button eine PictureBox hinzufügt und mit dem nächsten die erste PictureBox speichert und die zweite hinzufügt...

    Mit dem Code klappts nicht...

    Hoffe auf Hilfen...

    Mfg.eniking1998

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „enIking1998“ ()

    Manawyrm schrieb:

    Absoluter Bullshit ist das!
    @enIking1998: Das ist Option Strict Off.
    Schalt mal sofort um auf Option Strict On.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Jetzt auch noch den Code editieren??

    x = x + Label1.Text -1

    Was bitte? Warum x + Label1.Text - 1 ?

    Du hast doch gerade erst x mit 0 festgelegt. Unnötig!
    Label1.Text ist ein String! Kein Integer! Außerdem ist das ein Label! Warum ließt du eine feste Zahl aus einem Label aus!
    Formelemente dürfen nichts mit dem Codebehind zutun haben!

    ...Deshalb frag ich ja...

    Also von den Label (dort steht eine 4) wird 1 abgezogen...

    Und bis sie 0 erreicht hat,soll mehr und mehr PictureBoxen erstellt werden...

    Doch da ist das Problem...

    Ich versuch nicht aufeinmal alle Controls zuerstellen sondern pro Klick...

    Aber mit dem Code geht es nicht...

    Mfg.eniking1998

    VB.NET-Quellcode

    1. Dim anzahl as Integer = 4
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim rnd As New Random()
    4. Dim p As New PictureBox() With {.Size = New Size(100, 100), .BorderStyle = BorderStyle.FixedSingle, .BackColor = Color.Red, .Location = New Point(rnd.Next(0, 200), rnd.Next(0, 200))}
    5. Me.Controls.Add(p)
    6. anzahl = anzahl - 1
    7. Label1.Text = anzahl.ToString
    8. End Sub


    ?! Wenn es pro Klick ist dann nutze das Click-Event.
    (Um das Ganze noch eine If-Schelife ob anzahl = 0 ist)

    Hi,ich steh wieder vor einem Problem:

    Und zwar soll man nun die hergestellen PictureBoxen (zum Test Buttons genommen) nun auch verschieben können...

    Das klappt,doch es wird nur EIN Button erstellt!

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim pos1pic As New Point(0, 0)
    3. Dim pos1cursor As New Point(0, 0)
    4. Dim rnd As New Random()
    5. Dim p As New Button() With {.Size = New Size(100, 100), .BackColor = Color.Red, .Location = New Point(rnd.Next(0, 200), rnd.Next(0, 200))}
    7. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    8. Dim x As Integer = My.Settings.test
    10. Dim btnArray(x) As PictureBox
    15. For i As Integer = 0 To x
    23. btnArray(i) = New PictureBox
    27. With btnArray(i)
    28. .Parent = Me
    29. .Parent.Controls.Add(btnArray(i))
    32. .Name = "Button" & CStr(i)
    33. .TabIndex = i
    36. .Text = "Button(" & x & ")"
    38. .Size = New Size(80, 30)
    39. .Location = New Point(10, 10 + i * 2 * .Height)
    40. .Visible = True
    41. .BackColor = Color.AliceBlue
    46. End With
    48. Next i
    50. End Sub
    52. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    54. Dim anzahl As Integer = Label1.Text
    56. If Label1.Text = "0" Then
    57. MsgBox("Du hast keine Buttons mehr!")
    58. Else
    60. My.Settings.test = My.Settings.test + Label1.Text
    63. Me.Controls.Add(p)
    64. anzahl = anzahl - 1
    66. Label1.Text = anzahl
    68. AddHandler p.MouseDown, AddressOf start_
    70. AddHandler p.MouseUp, AddressOf stop_
    77. End If
    79. End Sub
    81. Private Sub synch()
    84. pos1pic = p.Location
    85. pos1cursor = System.Windows.Forms.Cursor.Position
    87. End Sub
    89. Private Sub start_()
    90. Timer1.Enabled = True
    92. synch()
    94. End Sub
    96. Private Sub stop_()
    97. Timer1.Enabled = False
    99. End Sub
    101. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    104. p.Location = pos1pic - pos1cursor + System.Windows.Forms.Cursor.Position
    106. End Sub
    107. End Class


    Nun,ich versuch also wieder die Anzahl,die im Label stehen,zu erstellen,doch dieses Mal soll man sie verschieben können...

    Hoffe auf Hilfe...

    Mfg.eniking1998

    Oki:

    Dank deineem Beispiel des vorherigen Post,hab ich geschafft,dass Controls erstellt werden...
    Nun will ich ein Schritt weiter und die erstellten Controls verschieben...

    Wenn ich nun 3 x auf den Button klicke wird NUR EINER erstellt und nur den EINEN kann ich verschieben...

    Mfg.eniking1998

    enIking1998 schrieb:

    VB.NET-Quellcode

    1. Dim p As New Button() With {.Size = New Size(100, 100), .BackColor = Color.Red, .Location = New Point(rnd.Next(0, 200), rnd.Next(0, 200))}
    Das musst Du jedes Mal wieder aufrufen, wenn Du einen neuen Button erstellen willst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!