Dynamisches hinzufügen von Panel-und RadioButtons in Visual Basic

Jungs, ich bin versucht, um dynamisch erstellen Sie panels, die gefüllt sind mit sieben radio-Schaltflächen in jeder.
Ich bekomme die Platten, aber Sie sind nur gefüllt mit 1-radio-button die einzelnen. Was mache ich hier falsch? QuestionQuantity ist eine ganze Zahl und ist die variable, die bestimmt, wie viele Platten werde ich erstellen. Der code in das form load-Funktion befindet.

Dank,

Dim Pan As Panel
Dim RButton As RadioButton

For x As Integer = 1 To QuestionsQuantity Step 1
        Pan = New Panel
        Pan.Name = "Panel" & Convert.ToString(x)
        Pan.Left = 300
        Pan.Top = 100 + 52 * (x - 1)
        Pan.Height = 48
        Pan.Width = 280
        Pan.BackColor = Color.Coral
        Controls.Add(Pan)

        For y As Integer = 1 To 7 Step 1
            RButton = New RadioButton
            RButton.Name = "RadioButton" & Convert.ToString(x) & Convert.ToString(y)
            RButton.Left = 1 + 30 * (y - 1)
            RButton.Top = 10
            RButton.Text = Convert.ToString(y)
            RButton.CheckAlign = System.Drawing.ContentAlignment.BottomCenter
            RButton.TextAlign = System.Drawing.ContentAlignment.TopCenter
            RButton.UseVisualStyleBackColor = True
            Controls.Add(RButton)
            Pan.Controls.Add(RButton)
        Next
Next

Ich versaut mit ihm und nahm die Panel-Abschnitt und nur die RadioButtons, um zu sehen, ob ich sieben von diesen. Ich kann sieben, wenn ich ofset Sie in der y-Richtung (.top), aber es funktioniert nicht aus irgendeinem Grund in die x - (.Links) Richtung

For y As Integer = 1 To 7 Step 1
    RButton = New RadioButton
    RButton.Name = "RadioButton1" & Convert.ToString(y)
    RButton.Left = 20 + (y * 30)
    RButton.Top = 10
    RButton.Text = Convert.ToString(y)
    RButton.CheckAlign = System.Drawing.ContentAlignment.BottomCenter
    RButton.TextAlign = System.Drawing.ContentAlignment.TopCenter
    RButton.UseVisualStyleBackColor = True
    Controls.Add(RButton)
Next

Bitte helfen Sie mir!

Habe ich es endlich. Das problem war das erklären der Größe der RadioButton. Es wird zu groß, wenn nicht erklärt, auch wenn ich die Abstände größer.

RButton.Size = New System.Drawing.Size(17, 30)

Dass das problem gelöst.

InformationsquelleAutor Patrik | 2011-12-01
  1. 1

    Sollten Sie mit einem UserControl enthält sieben radio-buttons.

    For x As Integer = 1 To QuestionsQuantity
  Dim pan As New QuestionUserControl
  Pan.Name = "Panel" & Convert.ToString(x)
  Pan.Left = 300
  Pan.Top = 100 + 52 * (x - 1)
  Pan.Height = 48
  Pan.Width = 280
  Pan.BackColor = Color.Coral
  Me.Controls.Add(Pan)
Next

    Wenn kleben mit Ihren aktuellen code zu entfernen (Sie sollten nur hinzufügen, um das panel):

    For y As Integer = 1 To 7
  '//Controls.Add(RButton)
  Pan.Controls.Add(RButton)
Next

    Soweit zu sehen, die Kontrolle, ich vermute, Sie sind nicht "rechts" genug:

    Dim leftMark As Integer = 20
For y As Integer = 1 To 7
  '//code
  RButton.Left = leftMark
  '//code

  leftMark += rButton.Width + 4
Next
    InformationsquelleAutor LarsTech
  2. 0
    1. mit einer Pfanne.Höhe = 48 es geht nicht, zu viel Kontrolle in.
    2. Fügen Sie die Schaltfläche sowohl auf der panel-Steuerelemente ?
    • Auch sehe ich den ersten radiobutton. Die anderen werden auf der rechten Seite, weil ich erhöhe das RButtin.Links von 30. Ich denke, dass ich zuerst haben, um Sie in die Steuerung und dann "teilen" Sie Sie an die Tafel?!
    • Mein schlechtes.vielleicht gibt es einen Konflikt zwischen den .Links und .Richten Sie Ihre Tasten.
    • Ich lief es wie von selbst und manipuliert den code. Ich habe die .oben statt .Links, und ich bekomme sieben radiobuttons unter einander. Etwas ist in Unordnung mit dem .Links
    InformationsquelleAutor GameAlchemist
  3. 0

    Setzen Sie die radiobuttons in einer gridbox. Sie können dynamisch hinzufügen Reihen von radiobuttons, wie Sie es wünschen. Wenn dies für Sie zu arbeiten, schicke ich ein Beispiel-code, wenn ich nach Hause komme.

    InformationsquelleAutor Jake Pangan
Schreibe einen Kommentar