TextBox oder Label?

  • Allgemein

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    TextBox oder Label?

    Hallo Zusammen,

    Ich hab ein array (a(0, 1) aus TextBox Name und Text von "Form1"

    Hier in Form2 will ich die Form1 aufbauen, das geht auch wunderbar, jedoch will ich entscheiden können ob Textboxen und/oder Labels daraus gemacht werden sollen in einer sub

    Jetzt erstellt CreateTxb() einfach Textboxen..
    Nun sollte es irgendwie CreateTxb(ByVal lblortxb As ????) sein..resp. CreateForm

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form2
    2. Dim a = Form1.GetFieldData()
    3. Dim b As Integer = 0
    5. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. CreateTxb()
    7. End Sub
    9. Private Sub CreateTxb()
    10. Dim txar((a.Length - 2) / 2) As TextBox
    11. Dim i As Integer = 0
    12. Dim TabIndex As Integer = 0
    13. i = (a.Length - 2) / 2
    14. While i <= (a.Length - 2) / 2
    15. 'was tun
    16. txar(i) = New TextBox
    17. With txar(i)
    18. .Parent = Me
    19. .Parent.Controls.Add(txar(i))
    20. .Name = a(TabIndex, 0)
    21. .TabIndex = i
    22. .Text = a(TabIndex, 1)
    23. .AutoSize = False
    24. .Location = New Point(10, 10 + i * 2 * .Height)
    25. .Visible = True
    26. End With
    27. 'MsgBox(a(i, 0) & a(i, 1))
    28. 'Befehlsende
    29. i = i - 1
    30. TabIndex = TabIndex + 1
    31. If i < 0 Then
    32. Exit While
    33. End If
    34. End While
    35. End Sub
    36. End Class

    Vielen Dank für die Antworten

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „syntax“ ()

    Abgesehen davon wäre für die Positionierung der Elemente ein Flowlayoutpanel eine Alternative. Erspart das Berechnen der Position.
    Das Beispiel ist ausgehend von der Aufgabenstellung, nicht von deiner Lösung:

    Spoiler anzeigen

    Verwendet wurde eine Form mit zwei Radiobuttons, einem Button und einem Flowlayoutpanel

    VB.NET-Quellcode

    1. Public Class Form1
    3. Enum enumneuesElement
    4. textbox
    5. label
    6. End Enum
    7. Dim neueselement As enumneuesElement
    9. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    10. Dim element As Control
    11. Select Case neueselement
    12. Case enumneuesElement.textbox
    13. element = New TextBox
    14. Case enumneuesElement.label
    15. element = New Label
    16. Case Else
    17. Exit Sub
    18. End Select
    19. element.Text = "neues Element"
    20. element.Visible = True
    21. FlowLayoutPanel1.Controls.Add(element)
    22. End Sub
    24. Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
    25. neueselement = enumneuesElement.textbox
    26. End Sub
    28. Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
    29. neueselement = enumneuesElement.label
    30. End Sub
    31. End Class


    Die Logik hinter dem Erstellen verschiedener Elemente in EINER Sub erschließt sich mir zwar nicht ganz, aber sei's drum.

    syntax schrieb:

    VB.NET-Quellcode

    1. Dim a = Form1.GetFieldData()
    Was ist denn das für ein un-instanziierter Crap-Zugriff auf eine andere Form?
    Informiere Dich mal über Instanzen fon Formen.
    Einen OpenFileDialog erstellst Du doch auch per New.
    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!

    Vielen Dank für die Antworten. Hab es nun gelöst =)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form2
    3. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. CreateTxb()
    5. End Sub
    7. Private Sub CreateTxb()
    8. 'a(i, 0) & a(i, 1)
    9. Dim a = Form1.GetFieldData()
    10. Dim x As Integer = 0
    11. Dim ic As Integer
    12. Dim element As Control = Nothing
    14. For c = 0 To 1 'Anzahl Elemente
    15. Dim i As Integer = (a.Length - 2) / 2
    16. Dim index As Integer = 0
    17. Dim txar(i)
    19. While i <= (a.Length - 2) / 2
    21. Select Case ic
    22. Case 0
    23. element = New Label
    24. x = 10
    25. Case 1
    26. element = New TextBox
    27. x = 50
    28. End Select
    30. txar(i) = element
    32. With txar(i)
    33. .Parent = Me
    34. .Parent.Controls.Add(txar(i))
    35. .Name = a(index, 0)
    36. .TabIndex = i
    37. .Text = a(index, 1)
    38. .AutoSize = True
    39. .Location = New Point(x, 10 + i * 2 * 15)
    40. .Visible = True
    41. End With
    43. i = i - 1
    44. index = index + 1
    46. If i < 0 Then
    47. Exit While
    48. End If
    49. End While
    51. ic = ic + 1
    52. Next
    53. End Sub
    55. End Class

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

    syntax schrieb:

    VB.NET-Quellcode

    1. Dim a = Form1.GetFieldData()
    Hast aber leider nix dazugelernt. :S
    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!

    Nicht ganz, denn wahrscheinlich hast Du iwo in Deinem Projekt eine "normale" Instanz von Form1 (Startform oder so), da musste die Instanz mit Me zu einer entsprechenden Property in der aktuellen Instanz der Form2 übertragen.
    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!

    @syntax:
    Form1 ist eine Klasse. Oder anders ausgedrückt ein Bauplan.
    f1 (bei Dir) ist eine Instanz der Klasse. Also wie ein Haus, das Du nach dem Bauplan gebaut hast.

    Form1.GetFieldData aufzurufen ergibt keinen Sinn. (Ja, haut mich. Wir lassen statische Member mal weg.)
    Du fährst ja auch nicht mit dem Bauplan eines Autos, sondern mit einem Auto, das nach dem Bauplan gebaut wurde.

    Wenn Du Dir selbst einfach verbietest, Klassenname.Irgendwas aufzurufen, dann ergibt sich das meiste von selbst.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Hey,

    eine Möglichkeit z. B. ist, dass Du im Konstruktor der Form2 einfach einen Verweis auf Form1 mitgibst. Gibt mehrere Möglichkeiten, so etwas zu lösen.

    Beispiel:

    Code Form1:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Function GetFieldData() As String
    3. Return "huhu"
    4. End Function
    6. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    7. Dim f2 As New Form2(Me)
    9. f2.Show()
    10. End Sub
    11. End Class


    Code Form2:

    VB.NET-Quellcode

    1. Public Class Form2
    2. Private _instForm1 As Form1
    4. Public Sub New(ByVal instForm1 As Form1)
    5. InitializeComponent()
    7. _instForm1 = instForm1
    8. End Sub
    10. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    11. MessageBox.Show(_instForm1.GetFieldData())
    12. End Sub
    13. End Class


    Eine andere Möglichkeit ist auch, dass Du GetFieldData in Form1 als "Shared" Deklarierst, dann ist der Zugriff über den Klassennamen legitim:

    VB.NET-Quellcode

    1. Public Shared Function GetFieldData() As String
    2. Return "huhu"
    3. End Function
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Das ist eine gute Frage. Auf die kann ich Dir aber keine Antwort geben.
    Ich kann Dir nur diesen Hinweis geben: Wenn GetFieldData() auf nichts weiteres zugreift, was sich in Form1 befindet, dann gehört die Funktion in Form2.
    Wenn die Funktion aber auf gewisse Sachen zugreift, dann musst Du Dein Anwendungsdesign überdenken.
    wenn Form2 eine Art dialog ist, dann kannst Du es so machen:

    VB.NET-Quellcode

    1. Sub XY()
    2. Using Dlg As New Form2
    3. Dlg.SetFieldData(GetFieldData)
    4. If Dlg.ShowDialog = DialogResult.OK Then
    5. '...
    6. End If
    7. End Using
    8. End Sub

    Hier wird die Funktion GetFieldData innerhalb von Form1 aufgerufen und das Ergebnis wird an die Instanz von Form2 gegeben.
    Im Grunde wie jeder OpenFileDialog / ColorDialog / etc.

    Generell sollte man eine Form wirklich nur als eine Schnittstellen zwischen dem Benutzer und dem Programm verwenden. Man ist es gewohnt, dass man alle Programmatischen Sachen in Form1 o.ä. hat. Das ist meistens völlig ausreichend, aber wenn es komplizierter wird, sollte man die Dinge aus der Form1-Klasse raus nehmen.
    Dann hast Du eine schöne Baumstruktur.
    Das Teil im Hintergrund kümmert sich um Daten, auf den Forms werden die Daten angezeigt bzw. die Daten kommen von den Forms.
    Innerhalb der Form kannst Du dann "Aufgaben" gruppieren und für das Teil im Hintergrund leichter zugreifbar machen.
    Z.B. befinden sich zwei drei TextBoxen und 'ne ComboBox auf der Form. In Form2 werden die Daten für die Verarbeitung aufbereitet und im Teil im Hintergrund greift man dann nicht mehr auf f2.TextBoxXY und f2.ComboBoxABC zu, sondern nur noch auf f2.SelectedBla.
    (Ja, mir ist nichts besseres als "Teil im Hintergrund" eingefallen)


    Edit: @SpaceyX:
    Das sollte im Normalfall nicht nötig sein.
    Wenn Form2 die Daten wirklich von Form1 haben muss, dann gibt man nicht die komplette Form1 mit, sondern nur die Daten, die man braucht. Und wenn Form2 die Daten erst später benötigt, dann kann man ein Callback verwenden.
    Die Form2-Klasse hat dann eine Property vom Typ Func(Of WasGetFieldDataZurückGibt)

    VB.NET-Quellcode

    1. 'Initialisieren einer Instanz von Form2
    2. f2.GetFieldDataCallback = AddressOf GetFieldData

    In Form2 wird dann folgendes verwendet:

    VB.NET-Quellcode

    1. Dim Data = GetFieldDataCallback() 'Klammern nicht vergessen, sonst wird der Delegat nicht ausgeführt, sondern es wird ein Verweis auf den Delegat in "Data" abgelegt.


    AddressOf erstellt einen Delegat, der "auf GetFieldData zeigt" (Die Funktion GetFieldData befindet sich in Form1).
    Dieser Delegat wird an die Instanz von Form2 gegeben und dieser Delegat wird dann aufgerufen.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils