[RESOLVED] Open/Save Webpage - Error
I am trying to save and open webpages in my browser. Here is the code that i am using and getting errors with:
VB Code:
Private Sub mnuOpen_Click()
Me.dlg1.Filter = "HTML Files (*.html)|*.html; HTM Files (*.htm)|*.htm; PHP Files (*.php)|*.php; ASP Files (*.asp)|*.asp; SHTML Files (*.shtml)|*.shtml; CGI Files (*.cgi)|*.cgi"
dlg1.ShowOpen
brwWebBrowser.Navigate Me.dlg1.filename
End Sub
Error:
Code:
When the common dialog box opens, the file types are not dislaying correctly
VB Code:
Private Sub mnuSaveAs_Click()
Me.dlg1.Filter = "HTML Files (*.html)|*.html; HTM Files (*.htm)|*.htm; PHP Files (*.php)|*.php; ASP Files (*.asp)|*.asp; SHTML Files (*.shtml)|*.shtml; CGI Files (*.cgi)|*.cgi"
dlg1.ShowSave
brwWebBrowser.Document Me.dlg1.filename
End Sub
Error:
Code:
Compile Error: Invaid Use of Propery
brwWebBrowser.Document Me.dlg1.filename
is highlited
Re: Open/Save Webpage - Error
VB Code:
Private Sub mnuOpen_Click()
Me.dlg1.Filter = "HTML Files (*.html)|*.html| HTM Files (*.htm)|*.htm| PHP Files (*.php)|*.php| ASP Files (*.asp)|*.asp| SHTML Files (*.shtml)|*.shtml| CGI Files (*.cgi)|*.cgi"
dlg1.ShowOpen
brwWebBrowser.Navigate Me.dlg1.FileName
End Sub
Private Sub mnuSave_Click()
Me.dlg1.Filter = "HTML Files (*.html)|*.html; HTM Files (*.htm)|*.htm; PHP Files (*.php)|*.php; ASP Files (*.asp)|*.asp; SHTML Files (*.shtml)|*.shtml; CGI Files (*.cgi)|*.cgi"
dlg1.ShowSave
Open Me.dlg1.FileName For Output As #1
Print #1, brwWebBrowser.Document.body.innerhtml
Close #1
End Sub