VB6 speichern

Computer: Software & Programmierung Visual Basic
#61

Hi,

weniger Schreibarbeit, weniger text

*gg* Du bekommst fertigen Code, Du musst gar nichts tippen. :smile:

Erzeugt Dein Programm Formen?

nein

OK, dann wird’s einfach. :smile:

die werden vor der fertigstellung erstellt, danach ist es eine
feste anzahl von formen.
wenn es irgendie helfen könnte: keine der wert-formen wird
jemals geladen, die laufen alle im hintergrund, halt wie
konstanten, nur nicht ganz so speicherfreundlich^^

nein, das ist unerheblich.
Jetzt habe ich alles zusammen …

Aber heute schreibe ich keinen Code mehr, der soll ja Fehlerfrei werden. Die halbe Flasche Sherry würde das heute verhindern. *gg*

Gruß Rainer

#62

weniger Schreibarbeit, weniger text

*gg* Du bekommst fertigen Code, Du musst gar nichts tippen.

-)

hm…
naja, wenn ichs mal woanders benutze^^

Erzeugt Dein Programm Formen?

nein

OK, dann wird’s einfach. :smile:

sehr gut:smile:

die werden vor der fertigstellung erstellt, danach ist es eine
feste anzahl von formen.
wenn es irgendie helfen könnte: keine der wert-formen wird
jemals geladen, die laufen alle im hintergrund, halt wie
konstanten, nur nicht ganz so speicherfreundlich^^

nein, das ist unerheblich.
Jetzt habe ich alles zusammen …

ahhh
es wird immer besser

Aber heute schreibe ich keinen Code mehr, der soll ja
Fehlerfrei werden. Die halbe Flasche Sherry würde das heute
verhindern. *gg*

vllt. kriegst du sie ja noch leer :stuck_out_tongue:
…
tja, die uhrzeit wohl auch noch etwas:smile:
naja, muss jetzt auch schlafen, hab zwar morgen zur zweiten stunde, aber muss trotzdem zur schule:frowning: (das ist ja das schlimmste; da gewöhnt man sich daran, um 6 Uhr einzuschlafen und plötzlich muss man um 6 schon aufstehn^^)
werd wohl so um 14:00 wieder hier sein…

dann schon mal danke im voraus

mfg, CheNetzer

#63

Hallo,

es war nur immer so, dass ich dachte, alles wichtige sei
erklärt, aber dann war für eine bestimmte funktion noch eine
andere angabe nötig…

na ja. Besser wäre es gewesen zu erzählen, was das Progamm tut, wie es aufgebaut ist. Beispiel:

Das Programm besteht aus verschiedenen Formen.
Die Captions von Formen, deren Name mit ‚Wert‘ beginnt sollen gesichert und später geladen werden.
Auf einer der anderen Formen liegt ein Button. Wenn der geklickt wird sollen die Captions gesichert werden.
Auf einer weiteren der anderen Formen liegt der Button zum Laden.
Die Daten sollen in dem verzeichnis gesichert werden, in dem die .exe liegt.

… *gg* Wusstest Du das am Anfang schon alles? :smile:
Ich glaube, ein Teil davon ist erst in der Diskussion entstanden. Richtig?

Hätte die Frage so ausgesehen, hättest Du als erste Antwort den Code bekommen, den Du suchst.
Aber ich denke, Du hast so noch ein wenig mehr über VB gelernt als sonst und dann war die Diskussion ja sinnvoll.

Gruß Rainer

#64

naja, das mit den wert…-formen wird helfen, hatte ich noch nie dran gedacht:smile:

mfg, CheNetzer

#65

Hallo,

es geht leider doch nicht mit der Schleife. :frowning:
Die Erklärung warum wäre jetzt zu umständlich, ändert auch nichts.

Du musst leider doch die Namen der Formen einzeln tippen.

Der Code für die Form Speichern:

Option Explicit

Private Sub cmdSpeichern\_Click()
 Dim Pfd As String, Datei As String, ff As Integer
 ff = FreeFile
 Pfd = App.Path
 If Right(Pfd, 1) "\" Then
 Pfd = Pfd & "\"
 End If
 Datei = Pfd & "Speicherdatei.dat"

 Open Datei For Output As #ff
 Print #1, Wert1.Caption
 Print #1, Wert2.Caption
 '... weitere Formen
 Close #ff
End Sub

Private Sub Form\_Load()
 frmLaden.Show
End Sub

Und noch der Code für die Form Laden:

Option Explicit

Private Declare Function PathFileExists \_
 Lib "shlwapi.dll" Alias "PathFileExistsA" \_
 (ByVal pszPath As String) As Long

Private Sub cmdLaden\_Click()
 Dim Pfd As String, Datei As String, ff As Integer
 Dim Zl As String
 ff = FreeFile
 Pfd = App.Path
 If Right(Pfd, 1) "\" Then
 Pfd = Pfd & "\"
 End If
 Datei = Pfd & "Speicherdatei.dat"

 If PathFileExists(Datei) Then
 Open Datei For Input As #ff

 Input #ff, Zl
 Wert1.Caption = Zl

 Input #1, Zl
 Wert2.Caption = Zl

 '... Weitere Formen
 Close #ff
 End If
End Sub

Getestet, läuft bei mir.

Gruß Rainer

#66

es funktioniert!:smile:
danke nochmal für die codes und die geduld :stuck_out_tongue:

mfg, CheNetzer

#67

Hallo,

es funktioniert!:smile:

schön, daß Du den Einbau hin bekommen hast. :smile:

Viel Spaß!

Gruß Rainer