vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Dann mal so... 
Autor: ModeratorDieter (Moderator)
Datum: 14.09.02 13:03

Hi Domi,

letzter Versuch:
Public Sub ListeEinlesen(Liste As ListBox, ByVal sFile As String) 
  Dim F As Integer 
  Dim Eintrag As String 
  With Liste 
    <font color=green>' nur, wenn Datei "sFile" existiert </font>
    If Dir(sFile) <> "" Then 
      If FileLen(sFile) > 0 Then
        <font color=green>' ListBox leeren </font>
        .Clear 
 
        F = FreeFile 
        Open sFile For Input As #F 
        While Not Eof(F) 
          Line Input #F, Eintrag 
          .AddItem Eintrag 
        Wend 
        Close #F 
      End If 
    End If
  End With 
End Sub
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem mit Listbox74Domi14.09.02 10:53
Re: Problem mit Listbox359unbekannt14.09.02 11:27
Re: Problem mit Listbox53Domi14.09.02 11:51
Re: Problem mit Listbox369ModeratorDieter14.09.02 12:00
Re: Problem mit Listbox379ModeratorMoni14.09.02 12:15
Re: Problem mit Listbox377unbekannt14.09.02 12:21
Re: Problem mit Listbox53Domi14.09.02 12:54
Dann mal so...365ModeratorDieter14.09.02 13:03
Oder ..366unbekannt14.09.02 13:06
Re: Oder ..38Domi14.09.02 13:27

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel