• Home
 · 
• Internet/HTML
 · 
• Create a simple HTML/Aqua Script Page Saver

Create a simple HTML/Aqua Script Page Saver

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"



Rate Create a simple HTML/Aqua Script Page Saver

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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] ***