by Starone Computer (1 Submission)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 28th January 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Create a simple HTML/Aqua Script Page Saver
API Declarations
Create:
1. Button - text= "Save as HTML" name = "btnsavehtml"
2. Button - text= "Save as Aqua Script" name = "btnsaveaqua"
3. Rich Text Box - text= "" name = "richtext1"
4. Save File Dialog - name = "savefiledialog1"
SaveFileDialog1.InitialDirectory = Application.ExecutablePath
SaveFileDialog1.FileName= "HTML File"
SaveFileDialog1.Filter = "HTML Files" & "(*.html)|*.html|All files(*.*) | *.*"
Dim answer As DialogResult = SaveFileDialog1.ShowDialog()
If answer = DialogResult.OK Then
RichText1.SaveFile(SaveFileDialog1.FileName
End Sub
Private Sub btnsaveaqua_click()
SaveFileDialog1.InitialDirectory = Application.ExecutablePath
SaveFileDialog1.FileName= "Aqua Script File"
SaveFileDialog1.Filter = "Aqua Files" & "(*.aqua)|*.aqua|All files(*.*) | *.*"
Dim answer As DialogResult = SaveFileDialog1.ShowDialog()
If answer = DialogResult.OK Then
RichText1.SaveFile(SaveFileDialog1.FileName
End Sub
*** Compliments of Starone Computer, www.starone.9f.com ***
*** Questions/Comments/Complaints: [email protected] ***