002
19.03.2004, 16:04 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)
|
Also ich hab das jetzt mit einer .txt gemacht und mit vollständigem speicherverfahren:
| Visual Basic: |
Public Sub SaveFile(FileName As String, text As String)
On Error GoTo error_catch
Dim fno As Integer
fno = FreeFile
Open FileName For Output As #fno
Print #fno, text
Close #fno
error_catch:
If Error = "75" Then
End If
End Sub
________________________________________________
Private Sub Command1_Click()
Unload Me
End Sub
________________________________________________
Private Sub Command2_Click()
On Error GoTo error_catch
Dim FileName As String
Dim text As String
FileName = "C:\notizen.txt"
Open FileName For Output As #1 ' Öffnet als #1
Do Until EOF(1)
Line Input #1, text
txtBox.text = txtBox.text & text
Loop
error_catch:
If Error = "55" Then
End If
End Sub
________________________________________________
Private Sub cmdoeffnen_Click()
Dim FileName As String
Dim text As String
FileName = "C:\notizen.txt"
Open FileName For Input As #1 ' Öffnet als #1
Do Until EOF(1)
Line Input #1, text
txtBox.text = txtBox.text & text
Loop
End Sub
________________________________________________
Private Sub Form_Load()
MsgBox "Das Programm macht jedesmal wenn man was schreibt ein Autospeichern!"
End Sub
________________________________________________
Private Sub txtBox_Change()
End Sub
|
Klappt aber immernoch nicht!
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
|
