006
29.02.2004, 15:08 Uhr
Pablo
Supertux
(Operator)
|
Dialog1 wird nie im Leben was speichern, weil Dialog nicht dafür gemacht wurde, denn woher weißt Dialog, was, wie und welche Daten die speichern willst.
Hab schon gesagt, CommonDialog ist nur das Fenster, dass dem Anwender hilft, die Dateien auszuwählen, entweder wenn man die Öffnen will oder wenn man sie speichern will. Wenn der Vorgang fehlerfrei verlaufen ist, dann ist unter Dialog1.FileName der Name der vom Anwender ausgewählten Datei, sonst nichts mehr.
Wenn du die Daten speichern willst, dann musst du selber deine eigene Save-Open Function machen.
| Visual Basic: |
Public Sub OpenFile(FileName As String, byRef Text As String)
Dim fno As Integer
Dim tmp As String
Text = ""
fno = freefile
Open FileName for Input As #fno
Do Until EOF(fno)
Line Input #fno, tmp
Text = Text & vbCrLf & tmp
Loop
Close #fno
End Sub
Public Sub SaveFile(FileName As String, Text As String)
Dim fno As Integer
fno = freefile
Open FileName for Output As #fno
Print #fno, Text
Close #fno
End Sub
|
Das musst du selber schreiben. Denn Dialog weißt nicht, was und wie du es speichern willst. Dann kannst du folgendes tun
| Visual Basic: |
'um zu öffnen
Dialog1.Flag = cdlOFNFileMustExist + cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNPathMustExist
Dialog1.ShowOpen
OpenFile Dialog1.FileName, Form1.Text1.Text 'oder irgendwelche andere String Variable
'um zu speichern
Dialog1.Flag = cdlOFNFileMustExist + cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNPathMustExist + cdlOFNOverwritePrompt
Dialog1.ShowSave
SaveFile Dialog1.FileName, Form1.Text1.Text 'oder andere String Variable, die du speichern willst
|
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth! |
