Re^2: Gut, aber ?? *fg*

Hallo Alex,

danke deiner schnellen Antwort.

also werde ich das cmdialog.showopen z.b. unter der Zeile "Sub mnuÖffnen_Click()" einfügen.

Aber eins schnalle ich ned, was meinst du mit der Zeile
"cmdialog1.filename" ????

Naja ... aber weißt du auch, wie man drei Menüs einfügen kann, so wie es beim Internet Explorer ist ??
Und wo kann ich das ändern, daß man die Menüzeilen verschieben kann ???

Und kennst du auch jede Menge VB Seiten, wo man z.B. Beispiele sehen und runterladen bzw. auch bearbeiten kann ??

Naja .... Fragen werden bei mir haufen kommen *fg* !!

_{Sub mnuÖffnen_Click()

On Error GoTo ErrHandler
CmDialog1.Filter = "WebSeite, komplett(*.html,*.htm)|*.html| *.htm "
CmDialog1.Filter = "WebSeite, nur HTML(*.html)|*.html"
CmDialog1.Filter = "Textdatei(*.txt)|*.txt"
CmDialog1.Flags = &H1000&
CmDialog1.Action = 1
Pot_Filename = CmDialog1.filename
Open Pot_Filename For Input As 100
Input #100, tZeile
Close #100
Nixwieweg:
Exit Sub
ErrHandler:
MsgBox ("Abbruch oder Laden mißlungen, Daten überprüfen")
Resume Nixwieweg
End Sub}

MfG Maik Jannasch
ICQ: 53879239