Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: speichern in Textdatei
Autor: cola
Datum: 11.01.04 11:58
Hi Dieter, funktioniert leider nicht. Irgendwie habe ich da einen Denkfehler In der Datei kommt einfach nichts an Gruß Cola   aktuelle Eingabe in die ' ComboBox-Liste aufnehmen Private Sub Combo1_KeyPress(KeyAscii As Integer) ' in ComboListe aufnehmen Dim i As Integer Dim F As Integer Dim bExists As Boolean With combo1 If KeyAscii = 13 And .Text <> "" Then ' Prüfen ob bereits vorhanden bExists = False For i = 0 To .ListCount - 1 If .List(i) = .Text Then bExists = True: Exit For End If Next i If Not bExists Then .AddItem .Text .SelStart = 0 .SelLength = 999 End If End With End Sub Private Sub cmdcolor_Click() With combo1 .AddItem "Anfahrt" .AddItem "Ankunft" End With End Sub Private Sub cmdopen_Click() F = FreeFile Open "c:1.txt" For Append As #F Print #F, combo1.Text End Sub Private Sub save_Click() Close #F End Sub

speichern in Textdatei	430	cola	11.01.04 09:30
Re: speichern in Textdatei	269	Dieter	11.01.04 10:06
Re: speichern in Textdatei	250	cola	11.01.04 11:15
Re: speichern in Textdatei	257	Dieter	11.01.04 11:18
Re: speichern in Textdatei	255	cola	11.01.04 12:49
Re: speichern in Textdatei	328	cola	11.01.04 11:58
Re: speichern in Textdatei	308	Ne kölsche Jung	11.01.04 13:18
Re: speichern in Textdatei	233	cola	11.01.04 14:56
Re: speichern in Textdatei	242	Dieter	11.01.04 15:04
Re: speichern in Textdatei	252	cola	11.01.04 15:20

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übersicht

Suchen