Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Mein nächstes Programm
Autor: Dell
Datum: 06.04.02 13:00
Das ist der Ladeteil: Dim DtWort(1000000) As String Dim EnglWort(1000000) As String Dim a a = 1 Open "Vokabeln.dat" For Input As #1 On Error Goto 2 Line Input #1, DtWort(a) Line Input #1, EnglWort(a) 2 Close 1 Und der Speicherteil: Private Sub Command1_Click() if txtDtWort.Text = "" Or txtEnglWort.Text = "" Then Exit Sub Open "Vokabeln.dat" For Append As #1 Print #1, txtDtWort.Text Print #1, txtEnglWort.Text Close 1 End Sub txtDtWort ist das Textfeld in welches der deutsche Begriff reingeschrieben wird. txtEnglWort ist das Textfeld in welches der englische Begriff reingeschrieben wird. Command1 ist die Speichertaste die gedrückt werden muss.

Mein nächstes Programm	111	Moritz	05.04.02 21:17
Re: Mein nächstes Programm	57	Dell	05.04.02 21:28
Re: Mein nächstes Programm	39	Moritz	05.04.02 21:41
Re: Mein nächstes Programm	33	Moritz	06.04.02 10:54
Re: Mein nächstes Programm	35	Dell	06.04.02 13:00
Herzlichen Dank	28	Moritz	06.04.02 14:29
Re: Mein nächstes Programm	25	Moritz	06.04.02 20:34
Re: Mein nächstes Programm	51	Dell	06.04.02 21:12
Re: Mein nächstes Programm	83	Moritz	06.04.02 21:18
Re: Mein nächstes Programm	33	Dell	07.04.02 10:37
Re: Mein nächstes Programm	28	Moritz	07.04.02 11:02

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