Hallo,
ich möchte einen gleichbleibenden Text an bestimmten Stellen mit beliebigen Infos füllen können, sozusagen ein leeres Formular automatisch ausfüllen.
ich habe mir dazu mal ein Beispielprogramm in kleiner Version überlegt bei dem ich versucht habe die Einfüllinformation als eine Structure zu bündeln, vielleicht ist das zu umständlich? Die Infos werden mit einem Stringbuilder eingefügt. Es soll für verschiedene Tiere gehen, jetzt hab ich hier natürlich nur einmal alles händisch über Textboxen eingegeben, die Informationen sind später schon vorhanden zu den Tieren und dann braucht es z.B nur die Angabe der Art.
Was meint ihr gibt es bessere Optionen?
Spoiler anzeigen
Viele Grüße
ich möchte einen gleichbleibenden Text an bestimmten Stellen mit beliebigen Infos füllen können, sozusagen ein leeres Formular automatisch ausfüllen.
ich habe mir dazu mal ein Beispielprogramm in kleiner Version überlegt bei dem ich versucht habe die Einfüllinformation als eine Structure zu bündeln, vielleicht ist das zu umständlich? Die Infos werden mit einem Stringbuilder eingefügt. Es soll für verschiedene Tiere gehen, jetzt hab ich hier natürlich nur einmal alles händisch über Textboxen eingegeben, die Informationen sind später schon vorhanden zu den Tieren und dann braucht es z.B nur die Angabe der Art.
Was meint ihr gibt es bessere Optionen?
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim lstDetail As New List(Of String)
- For Each tb In {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6}
- lstDetail.Add(tb.Text) 'Einlesen der Basisinformation nur zu Testzwecken
- Next
- Dim Tier As New Animal(lstDetail)
- rtb.Text = Tier.info
- End Sub
- End Class
- Public Structure Animal
- Private Const basetext As String = "Die Art +01 gehört zur " & vbLf & "Gattung der +02 aus der " & vbLf & "Familie der +03 aus der " & vbLf & "Ordnung der +04 aus der " & vbLf & "Klasse der +05 aus dem " & vbLf & "Stamm der +06"
- Private Art, Gattung, Familie, Ordnung, Klasse, Stamm As String
- Public Sub New(details As List(Of String))
- Art = details(0)
- Gattung = details(1)
- Familie = details(2)
- Ordnung = details(3)
- Klasse = details(4)
- Stamm = details(5)
- End Sub
- Public Function info() As String
- Dim sbinfo As New StringBuilder(basetext)
- Dim i As Integer = 1
- For Each ocg In {Art, Gattung, Familie, Ordnung, Klasse, Stamm}
- If ocg Like "" Then
- ocg = "Unbekannten"
- End If
- sbinfo.Replace("+0" & i, ocg)
- i += 1
- Next
- Return sbinfo.ToString
- End Function
- End Structure
Viele Grüße
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()