Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Textdatei bei jeden Start automatisch aufrufen
Autor: Micha
Datum: 02.06.02 12:28
Ich ahb da n prob, unzwar code ich gerade eien Liste,wo man Server eintragen und löschen kann......die Änderungen werden dann in eien txt gespeichert.. Mein Problem ist,dass ich die aktuelle Liste die in der die txt gespeichert ist automatisch beim Satrt des Programm laden soll,so dass man den Überblick hat... Also hier Code von Form1 Code: Option Explicit Private DataAvailable As Boolean Dim inData As String Private timer As Long Private change As Boolean Private Const TIME_OUT = 30 Private Sub cmdAdd_Click() 'zum speichern eines eintrags Dim fAdd As New Add fAdd.Show vbModal If fAdd.OK Then List1.AddItem Trim(fAdd.txtServer.Text) + ":" + fAdd.txtPort.Text change = True End If Unload fAdd End Sub Private Sub cmdRemove_Click() If Not List1.ListIndex < 0 Then List1.RemoveItem List1.ListIndex 'Zum löschen eines Eintrags change = True End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormControlMenu And change Then If MsgBox("Servers list has changed. Do you want to save changes?", vbYesNo) = vbYes Then Open "servers.txt" For Output As #1 'Speichert die liste vor beenden des Programms Dim i As Integer For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next i Close #1 End If End If End Sub Her der Code von Add,also quasi von dem Teil des Programms,wo man einen Server hinzuzfügen kann: Code: Option Explicit Public OK As Boolean Private Sub cmdAdd_Click() 'hier also das textfeld, wo der server eingegebdne werden muss If Len(Trim(txtServer.Text)) = 0 Then MsgBox "Gib einen Server an" txtServer.SetFocus Exit Sub End If 'Und hei der port If Len(Trim(txtPort.Text)) = 0 Or Not IsNumeric(txtPort.Text) Then MsgBox "Gib einen Port an" txtPort.SetFocus Exit Sub End If OK = True Me.Hide End Sub Private Sub cmdCancel_Click() OK = False Me.Hide End Sub Private Sub Form_Load() End Sub hoffentlich checkt heir wer worauf ich hinaus will

Textdatei bei jeden Start automatisch aufrufen	55	Micha	02.06.02 12:28
Re: Textdatei bei jeden Start automatisch aufrufen	364	Dieter	02.06.02 12:40

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