Ich möchte folgendes machen. Über eine Checkbox sollen Textboxen ein- bzw. ausgeblendet werden. Im Standard sind die Textboxen unsichtbar.
Die Textboxen befinden sich wie die Checkbox ebenfalls in einem Panel mit der Eigenschaft Autoscroll true. Um einen Teil der Textboxen sehen zu können muss zur Seite gescrollt werden.
Nun habe ich das Problem ein Teil der Textboxen behalten ihre korrekte Position bei und ein Teil (der Teil der durch Scrollen sichtbar wird) befindet sich nicht an der korrekten Position. Dass die Position nicht stimmt sehe ich anhand von Label die dauerhaft einblendet sind.
Ich kann mir nicht erklären warum dies geschieht da ich die Textboxen alle von der selben Textbox kopiert habe und an den Eigenschaften nichts geändert habe.
Dreh ich das ganze um das heißt zu Beginn sind die Textboxen sichtbar und ich blende sie dann aus funktioniert alles.
Wäre cool wenn jemand Rat wüsste.
Die Textboxen befinden sich wie die Checkbox ebenfalls in einem Panel mit der Eigenschaft Autoscroll true. Um einen Teil der Textboxen sehen zu können muss zur Seite gescrollt werden.
Nun habe ich das Problem ein Teil der Textboxen behalten ihre korrekte Position bei und ein Teil (der Teil der durch Scrollen sichtbar wird) befindet sich nicht an der korrekten Position. Dass die Position nicht stimmt sehe ich anhand von Label die dauerhaft einblendet sind.
Ich kann mir nicht erklären warum dies geschieht da ich die Textboxen alle von der selben Textbox kopiert habe und an den Eigenschaften nichts geändert habe.
Dreh ich das ganze um das heißt zu Beginn sind die Textboxen sichtbar und ich blende sie dann aus funktioniert alles.
Wäre cool wenn jemand Rat wüsste.
VB.NET-Quellcode
- Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged
- If CheckBox6.Checked = True Then
- For i15 = 303 To 308
- Panel2.Controls("Textbox" & i15.ToString).Visible = True
- Next i15
- End If
- If CheckBox6.Checked = False Then
- For i16 = 303 To 308
- Panel2.Controls("Textbox" & i16.ToString).Visible = False
- Next i16
- End If
- End Sub