Zeilenumbruch Textbox

  • VB.NET

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

    Zeilenumbruch Textbox

    Hallo Zusammen,

    habe wieder mal ein Problem. Wenn ich einen Text über mehrere Zeilen z.B. aus Excel oder Word in eine TextBox kopiere, dann gehen in der TextBox die Zeilenumbrüche verloren. Dies ist jedoch nur in der TextBox der Fall, weil beim anschließenden Ausdruck mit dem Crystal Report, werden die Zeilenumbrüche wieder richtig gesetzt. Ich möchte auch auf keine Richtextbox umsteigen, weil das Projekt schon so eine größe hat, dass es nur mit sehr viel Aufwand möglich ist, alle TextBoxen mit einer Richtextbox zu ersetzen.

    Für eine Hilfe wäre ich sehr dankbar.

    toeller schrieb:

    alle TextBoxen mit einer Richtextbox zu ersetzen
    Gehst Du in die Datei FormX.Designer.vb und ersetzt dort pro TextBox zwei Mal TextBox durch RichTextBox.
    Feddich.
    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!

    toeller schrieb:

    weil
    Kannst Du uns mit einer vollständigen Problembeschreibung / Aufgabenstellung erfreuen?
    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!

    Nochmal genauer zu meinem Problem:
    Ich importiere mir mit folgendem Code Werte aus einer Exceltabelle:

    VB.NET-Quellcode

    1. Private Sub FormAngebotdetailsImport_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    3. DataAdapter1 = New OleDbDataAdapter("Select * From [Import Angebotsprogramm$] where Importieren = " & Chr(34) & "Ja" & Chr(34), Con)
    5. Con.Open()
    7. DataAdapter1.Fill(AngeboteGranitwerkeDataSet.ImportAngebotdetails)
    9. ImportAngebotdetailsDataGridView.DataSource = AngeboteGranitwerkeDataSet.ImportAngebotdetails
    11. ImportAngebotdetailsBindingSource.DataSource = AngeboteGranitwerkeDataSet.ImportAngebotdetails
    13. Con.Close()
    15. End Sub


    Hier werden die Zeilenumbrüche in der Datatable ImportAngebotdetails noch richtig angezeigt, wenn ich debugge.

    Jetzt speichere ich mit folgendem Code die Daten:

    VB.NET-Quellcode

    1. Public Positionsmerker As String = Nothing
    3. Public Position1Anlegen As Boolean = True
    5. Public Sub ImportAngebotdetailsAusExcel()
    7. Dim NewrowAngebotsposition As AngeboteGranitwerkeDataSet.AngebotspositionRow = AngeboteGranitwerkeDataSet.Angebotsposition.NewAngebotspositionRow
    9. Dim NewrowAngebotsunterposition As AngeboteGranitwerkeDataSet.AngebotsunterpositionenRow = AngeboteGranitwerkeDataSet.Angebotsunterpositionen.NewAngebotsunterpositionenRow
    11. Dim NewrowAngebotsunterunterposition As AngeboteGranitwerkeDataSet.AngebotsunterunterpositionenRow = AngeboteGranitwerkeDataSet.Angebotsunterunterpositionen.NewAngebotsunterunterpositionenRow
    13. For Each ImportZeile As AngeboteGranitwerkeDataSet.ImportAngebotdetailsRow In FormAngebotdetailsImport.AngeboteGranitwerkeDataSet.ImportAngebotdetails.Rows
    15. Dim AktuellesAngebot As AngeboteGranitwerkeDataSet.AngebotRow = CType(CType(AngebotBindingSource.Current, System.Data.DataRowView).Row, AngeboteGranitwerkeDataSet.AngebotRow)
    17. If Not ImportZeile.IsPosNummerNull Then
    19. Positionsmerker = ImportZeile.PosNummer
    21. Else
    23. Positionsmerker = Nothing
    25. End If
    27. If Position1Anlegen = True Then
    29. NewrowAngebotsposition = AngeboteGranitwerkeDataSet.Angebotsposition.NewAngebotspositionRow
    31. NewrowAngebotsposition.AngebotRow = AktuellesAngebot
    33. If Not ImportZeile.IsPosNummerNull Then NewrowAngebotsposition.Nummer = ImportZeile.PosNummer
    35. If Not ImportZeile.IsPosÜberschriftNull Then NewrowAngebotsposition.Überschrift = ImportZeile.PosÜberschrift
    37. AngeboteGranitwerkeDataSet.Angebotsposition.AddAngebotspositionRow(NewrowAngebotsposition)
    39. AngebotspositionTableAdapter.Update(Me.AngeboteGranitwerkeDataSet.Angebotsposition)
    41. Position1Anlegen = False
    43. Else
    45. If (Not ImportZeile.IsPosNummerNull And Not String.IsNullOrEmpty(Positionsmerker)) Then
    47. NewrowAngebotsposition = AngeboteGranitwerkeDataSet.Angebotsposition.NewAngebotspositionRow
    49. NewrowAngebotsposition.AngebotRow = AktuellesAngebot
    51. If Not ImportZeile.IsPosNummerNull Then NewrowAngebotsposition.Nummer = ImportZeile.PosNummer
    53. If Not ImportZeile.IsPosÜberschriftNull Then NewrowAngebotsposition.Überschrift = ImportZeile.PosÜberschrift
    55. AngeboteGranitwerkeDataSet.Angebotsposition.AddAngebotspositionRow(NewrowAngebotsposition)
    57. AngebotspositionTableAdapter.Update(Me.AngeboteGranitwerkeDataSet.Angebotsposition)
    59. Position1Anlegen = False
    61. End If
    63. End If
    65. If Not ImportZeile.IsUPosNummerNull Then 'And ImportZeile.UPosNummer <> "" Then
    67. NewrowAngebotsunterposition = AngeboteGranitwerkeDataSet.Angebotsunterpositionen.NewAngebotsunterpositionenRow
    69. NewrowAngebotsunterposition.AngebotspositionRow = NewrowAngebotsposition
    71. If Not ImportZeile.IsUPosNummerNull Then NewrowAngebotsunterposition.Nummer = ImportZeile.UPosNummer
    73. If Not ImportZeile.IsUPosLeistungNull Then NewrowAngebotsunterposition.Leistung = ImportZeile.UPosLeistung
    75. If Not ImportZeile.IsUPosLeistungsbeschreibungNull Then NewrowAngebotsunterposition.Leistungsbeschreibung = ImportZeile.UPosLeistungsbeschreibung
    77. If Not ImportZeile.IsUPosMaterialNull Then NewrowAngebotsunterposition.Material = ImportZeile.UPosMaterial
    79. If Not ImportZeile.IsUPosLängeNull Then NewrowAngebotsunterposition.Länge = ImportZeile.UPosLänge
    81. If Not ImportZeile.IsUPosMaßLBNull Then NewrowAngebotsunterposition.MaßLB = ImportZeile.UPosMaßLB
    83. If Not ImportZeile.IsUPosBreiteNull Then NewrowAngebotsunterposition.Breite = ImportZeile.UPosBreite
    85. If Not ImportZeile.IsUPosMaßBHNull Then NewrowAngebotsunterposition.MaßBH = ImportZeile.UPosMaßBH
    87. If Not ImportZeile.IsUPosHöheNull Then NewrowAngebotsunterposition.Höhe = ImportZeile.UPosHöhe
    89. If Not ImportZeile.IsUPosFreiesMaßNull Then NewrowAngebotsunterposition.FreiesMaß = ImportZeile.UPosFreiesMaß
    91. If Not ImportZeile.IsUPosBearbeitungNull Then NewrowAngebotsunterposition.Bearbeitung = ImportZeile.UPosBearbeitung
    93. If Not ImportZeile.IsUPosFreitextNull Then NewrowAngebotsunterposition.Freitext = ImportZeile.UPosFreitext
    95. If Not ImportZeile.IsUPosMengeNull Then NewrowAngebotsunterposition.Menge = ImportZeile.UPosMenge
    97. If Not ImportZeile.IsUPosEinheitNull Then NewrowAngebotsunterposition.Einheit = ImportZeile.UPosEinheit
    99. If Not ImportZeile.IsUPosEinheitspreisNull Then NewrowAngebotsunterposition.Einheitspreis = ImportZeile.UPosEinheitspreis
    101. If Not ImportZeile.IsUPosGesamtpreisNull Then
    103. NewrowAngebotsunterposition.Gesamtpreis = ImportZeile.UPosGesamtpreis
    105. Else
    107. NewrowAngebotsunterposition.Gesamtpreis = 0
    109. End If
    111. If ImportZeile.IsUPosGesPrUnterdrückenNull Then
    113. NewrowAngebotsunterposition.GesPrUnterdrücken = False
    115. Else
    117. NewrowAngebotsunterposition.GesPrUnterdrücken = True
    119. NewrowAngebotsunterposition.Gesamtpreis = 0
    121. End If
    123. AngeboteGranitwerkeDataSet.Angebotsunterpositionen.AddAngebotsunterpositionenRow(NewrowAngebotsunterposition)
    125. AngebotsunterpositionenTableAdapter.Update(Me.AngeboteGranitwerkeDataSet.Angebotsunterpositionen)
    127. End If
    129. If Not ImportZeile.IsUuPosNummerNull Then
    131. NewrowAngebotsunterunterposition = AngeboteGranitwerkeDataSet.Angebotsunterunterpositionen.NewAngebotsunterunterpositionenRow
    133. NewrowAngebotsunterunterposition.AngebotsunterpositionenRow = NewrowAngebotsunterposition
    135. If Not ImportZeile.IsUuPosNummerNull Then NewrowAngebotsunterunterposition.Nummer = ImportZeile.UuPosNummer
    137. If Not ImportZeile.IsUuPosMengeNull Then NewrowAngebotsunterunterposition.Menge = ImportZeile.UuPosMenge
    139. If Not ImportZeile.IsUuPosEinheitNull Then NewrowAngebotsunterunterposition.Einheit = ImportZeile.UuPosEinheit
    141. If Not ImportZeile.IsUuPosLeistungstextNull Then NewrowAngebotsunterunterposition.Leistungstext = ImportZeile.UuPosLeistungstext
    143. If Not ImportZeile.IsUuPosEinheitspreisNull Then NewrowAngebotsunterunterposition.Einheitspreis = ImportZeile.UuPosEinheitspreis
    145. If Not ImportZeile.IsUuPosGesamtpreisNull Then NewrowAngebotsunterunterposition.Gesamtpreis = ImportZeile.UuPosGesamtpreis
    147. If ImportZeile.IsUuPosGesPrUnterdrückenNull Then
    149. NewrowAngebotsunterunterposition.GesPrUnterdrücken = False
    151. Else
    153. NewrowAngebotsunterunterposition.GesPrUnterdrücken = True
    155. NewrowAngebotsunterunterposition.Gesamtpreis = 0
    157. End If
    159. AngeboteGranitwerkeDataSet.Angebotsunterunterpositionen.AddAngebotsunterunterpositionenRow(NewrowAngebotsunterunterposition)
    161. AngebotsunterunterpositionenTableAdapter.Update(Me.AngeboteGranitwerkeDataSet.Angebotsunterunterpositionen)
    162. End If
    163. Next
    164. End Sub


    In der TextBox werden anschließend jedoch keine Zeilenumbrüche berücksichtigt. Kopiere ich dann zum Test den gesamten Inhalt der Textbox und füge diesen dann z.B. in Word ein, werden die Zeilenumbrüche berücksichtigt. Genau das verstehe ich nicht, wieso die Textbox den Textinhalt ohne Zeilenumbrüche anzeigt.

    Was hat denn der

    toeller schrieb:

    Textinhalt
    für Zeilenende-Kennungen?
    Es gibt vbCr, vbLf, vbCrLf (um mal die schnöden VisualBasic-Bezeichnungen zu benutzen).
    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!

    Wenn ich debugge und setze bei folgender Zeile einen Haltepunkt:

    VB.NET-Quellcode

    1. If Not ImportZeile.IsUPosLeistungsbeschreibungNull Then NewrowAngebotsunterposition.Leistungsbeschreibung = ImportZeile.UPosLeistungsbeschreibung


    dann erhalte ich als Antwort:

    "Das ist ein Test" & vbLf & "Das hier ist ein weiterer Test"

    Also müsste es vblf sein meiner Meinung nach. Dieses Beispiel hat jetzt nur 2 Zeilen, es können unter Umständen deutlich mehr sein.

    toeller schrieb:

    vblf
    ersetz das mal durch vbCrLf.
    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!

Facebook
Telefonspende