Menü erstellt, abern wie weiter ?

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich habe ein Menü erstellt. (dies war ja einfach) *fg*

dann zeigt er mir folgenden Code an:

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

Es sahr vorher so aus:

Sub mnuÖffnen_Click()

End Sub …

den Code habe ich dort eingefügt, aber trotzdem kann er das ned laden, wenn ich dies mal ausprobieren möchte !!

Woran liegt das oder muß ich es anders machen ??

Ich bin Anfänger … *fG*

MfG Maik Jannasch

#2

hi maik,

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 :smile:
du musst den Dialo zu anzeigen natürlich noch aufrufen über
cmdialog.showopen
Dann kannst Du mit cmdialog1.filename das gewaehlte file weiterbearbeiten :smile:
Wenn Du weitere Fragen hast dann melde Dich bei mir :smile:

Cu Alex

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

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

#4

Hi, also ein kleines Bsp :smile:

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 :smile:
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]