Listbox in Userform Zeilenumbruch?

[Steffl]

Hallo,

welchen Inhalt hat die Variable xText

Code:

Do While Not EOF(1)
       Line Input #xFn, xText
       MsgBox xText
       ListBox3.AddItem xText
   Loop

[MdeJong]

Hallo Steffl,

Code:

Private Sub CommandButton1_Click()
   Dim xFn As Long
   Dim strDatei As String
   Dim xText As String
   Dim strPath As String
   ListBox3.Clear
   xFn = FreeFile
   strDatei = TextBox20.Text
   strPath = "D:\FilmCovers" 'Pfad anpassen
   Open strPath & strDatei & ".txt" For Input As xFn
   Do While Not EOF(1)
       Line Input #xFn, xText
       ListBox3.AddItem xText
   Loop
   Close xFn
End Sub

dieses ist der komplette Code....was meinst du mit Inhalt?

[Steffl]

Hallo,

mal ein sehr einfaches Beispiel

Code:

Sub prcMdeJong()
   'Variablenzuweisung
   Dim strText As String
  
   'Befüllen einer Variable mit einem Text
   strText = "Hallo Michael"
   'jetzt will ich mit der MsgBox den Variableninhalt sehen
   MsgBox strText
End Sub

Du hast schon gesehen, dass ich in meinen letzten Beitrag im gekürzten Code eine Codezeile eingefügt habe?

[MdeJong]

Ok.....die meinst diese Stelle:

Code:

Private Sub CommandButton1_Click()
  Dim xFn As Long
  Dim strDatei As String
  Dim xText As String
  Dim strPath As String
  ListBox3.Clear
  xFn = FreeFile
  strDatei = TextBox20.Text
  strPath = "D:\FilmCovers" 'Pfad anpassen
  Open strPath & strDatei & ".txt" For Input As xFn
  Do While Not EOF(1)
      Line Input #xFn, xText
      MsgBox xText             ........diese
      ListBox3.AddItem xText
  Loop
  Close xFn
End Sub

MsgBox xText             ........diese

[MdeJong]

das befüllen der Variablen wird doch hier mit Pfadangabe angegeben?

Code:

strDatei = TextBox20.Text
  strPath = "D:\FilmCovers" 'Pfad anpassen
  Open strPath & strDatei & ".txt" For Input As xFn

und trotzdem bekomme ich eine  Fehlermeldung bei dieser Zeile:

 Open strPath & strDatei & ".txt" For Input As xFn

[Crazy Tom]

moin

da ich schon wach war und noch Zeit hatte....
im Pfad zum Ordner fehlte am Ende ein Backslash
ich hatte noch eine ältere Version deiner Datei
dort habe ich meinen letzten Vorschlag eingebaut

ich hoffe du kommst damit zurecht

MfG Tom

[MdeJong]

Hallo Crazy Tom,

vielen, vielen Dank.


manchmal ist es nur ein Punkt schon läuft die Sache nicht.....mir ist das wirklich nicht aufgefallen.

Aber jetzt geht es.  :)

Danke das du doch noch mal nachgeschaut hast.

Gruß

Michael

[MdeJong]

Hallo Tom,

noch einmal vielen Dank für den letzten Hinweis......Backslash

Gestern war ich verzweifelt, dachte das mir hier keiner mehr helfen möchte, so habe ich meine Frage in einem anderen Forum gestellt.

Doch du hast dich doch dazu heute Morgen gemeldet und es hat geholfen.

Du bist auch hier der einzige gewesen, dir mir es bis jetzt am besten erklären konnte, sodass ich ab und zu mal drauf kam, wie ich es umsetzen soll.
Man kann halt nicht mit einem Vulkanier auf Deutsch reden, wenn er die Sprache nicht spricht und versteht! ;)

Dann ist nun dieses Thema Listbox abgeschlossen.

Mal schauen ob ich mit meinem noch Thema "Videos in Userform abspielen", hier weiter komme?    
Ich setze natürlich dafür deine von heut Morgen rein.

Nochmals vielen Dank für deine Geduld.

Gruß
Michael

[MdeJong]

Hallo Tom,

meine Videothek läuft ja jetzt prima, dank deiner Hilfe.

mein Filminhalt wird in der Userform in er Multipage angezeigt.
Der Text in der Listbox wird als 1 Zeile angezeigt, so kann ich nicht alles sehen.

Jetzt habe ich mal gegoogelt um herauszufinden, ob es ne Möglichkeit gibt, einen Zeilenumbruch wie bei der TextBox zu machen.
ich weiß, das soll bei einer Listbox nicht gehen.

Was ich bisher gefunden habe sind Infos, das man in den Eigenschaften der Listbox Horizontal Scrollbar machen soll. ( auf True setzen)
Diese Einstellung ist aber nicht bei mir in den Eigenschaften vorhanden?

Muss man diese Eigenschaft in Excel erst noch hinzufügen?
Oder gibt es einer andere Lösung, da och in der Listbox entweder den Zeilenumbruch habe oder den ganzen Text sehen kann?


Gruß
Michael

[Crazy Tom]

Hallo

muss denn der Text in der Textdatei in einer Zeile stehen?
wie kommt denn der Text in die Textdatei?

MfG Tom