Ereignisimplementierungscode:
Kopieren Sie den Codecode wie folgt:
Private Sub mQuit_Click()
Text1.Text = ""
Ende
Sub beenden
Privates Sub mNew_Click()
Text1.Text = ""
Form1.Caption = „Ohne Titel“
Sub beenden
Privates Sub mopen_Click()
CommonDialog1.ShowOpen
Frame = CommonDialog1.FileName
Wenn fname <> "" Dann
Form1.Caption = fname
Text1.Text = ""
Öffnen Sie fname für die Eingabe als Nr. 1
b = ""
Bis EOF(1) tun
Zeileneingabe Nr. 1, nächste Zeile
b = b & nextline & Chr(13) & Chr(10)
Schleife
Schließen Sie Nr. 1
Text1.Text = b
Ende wenn
Sub beenden
Privates Sub mSave_Click()
Wenn Form1.Caption = „Untitled“ oder Form1.Caption = „“, dann
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
Anders
fname = Form1.Caption
Ende wenn
Wenn fname <> "" Dann
Form1.Caption = fname
Öffnen Sie fname für die Ausgabe als #1
Drucken Sie Nr. 1, Text1.Text
Schließen Sie Nr. 1
Ende wenn
Sub beenden
Private Sub mNewSave_Click()
CommonDialog1.ShowSave
Wenn fname <> "" Dann
Form1.Caption = fname
Öffnen Sie fname für die Ausgabe als #1
Drucken Sie Nr. 1, Text1.Text
Schließen Sie Nr. 1
Ende wenn
Sub beenden
Es muss das CommonDialog-Steuerelement verwendet werden!
Objektcode:
Kopieren Sie den Codecode wie folgt:
Starten Sie VB.Menu mFile
Bildunterschrift = „Datei“
Beginnen Sie mit VB.Menu mNew
Bildunterschrift = „Neu“
Ende
Beginnen Sie mit VB.Menu mOpen
Bildunterschrift = „Offen“
Ende
Beginnen Sie mit VB.Menu mSave
Bildunterschrift = „Speichern“
Ende
Beginnen Sie mit VB.Menu mNewSave
Bildunterschrift = „Speichern unter“
Ende
Beginnen Sie mit VB.Menu mQuit
Bildunterschrift = „Ausstieg“
Verknüpfung = ^E
Ende
Ende