Notepad Prog. Probleme !! Verfasst am: 26.03.2008, 19:40
hey leute bin dabei ein Notepad zu machen ^^
einiges geht...aber das wichtigste nicht
Also
1. ICh erstelle einen Ordner wo alles rein gespeichert werden soll....allerding kommt wenn ich das Programm das 2te ma öffne einen Pfadfehler weil der Ordner bereits erstellt ist. Außerdem werden meine Datein nicht dort drinne gespeichert.
2.Mit dem Common Dialog möchte ich Datein öffnen. Allerding wird mir zwar der Common Diaolg angezeigt allerding wird der text den ich öffnen möchte nicht angezeigt !
alsssssso das mit dem ordner " exixst " finde ich nix mehr zu bzw das was ich gefunde haben funzt nicht ^^
also hier ma teiles des codes
COMMON DIALOG LADEN
Code:
Private Sub Command1_Click()
With cd
.Filter = "Textdatein(*.txt) |*.txt"
.ShowOpen
Dim Nr As Integer
Dim Text As String
Nr = FreeFile
Open .FileName For Binary As #Nr
Text = Space$(LOF(Nr))
Get #Nr, , Text
Close #Nr
Text1.Text = Text
End With
Das mit dem Ordner erstellen
Code:
Private Sub Form_Load()
MkDir ("C:\Notepad_by_Denyo")
End Sub
Der Code zum öffnen mit dem CommonDialog ist zwar nicht der schönste, scheint aber richtig zu sein.
Jedenfalls fällt mir nichts auf. _________________ Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)