sehe ich das richtig das du den dialog öffnen anzeigen willst?
Du musst dann das steuerelement cmdialog in deiner form einbauen, aber hast du ja schon, denn sonnst wüdest du nur fehlermeldungen bekommen
du musst den Dialo zu anzeigen natürlich noch aufrufen über
cmdialog.showopen
Dann kannst Du mit cmdialog1.filename das gewaehlte file weiterbearbeiten
Wenn Du weitere Fragen hast dann melde Dich bei mir
Cu Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
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
sub irgendetwas()
on error goto fehler
dim file$
with cmdialog1
.cancelerror=true
.Filter = „WebSeite, nur HTML(*.html)|*.html“
.Filter = „Textdatei(*.txt)|*.txt“
.Flags = &H1000&
.showopen
end with
file=cmdialog1.filename
exit sub
fehler:
select case fehler
case 32755
'benutzer hat die schaltfläche Abbrechen gewaehlt
case else
'ein anderer Fehler ist aufgetreten
end select
exit sub
end sub
Wie meinst du das mit dem MIE?
Du kannst mich auch unter Icq 85743372 kontaktieren
Cu
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
