The Rich Text Box Application: SaveAs

We have created an Application called MyNotes with a rich text box, a menu with standard items, and a toolstrip. The rich text box fills the form.

Next we will write the code to implement SaveAs. There is not a corresponding button for the menu item..

  1. Continue with the MyNotes Application.
  2. Find the SaveAs item on the menu and double click to open the code view.
  3. Write the code as shown below:
    4. Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles SaveAsToolStripMenuItem.Click
      SaveFileDialog1.FileName = OpenFileDialog1.FileName 'Set opened file to default
      SaveFileDialog1.ShowDialog()
      If SaveFileDialog1.FileName <> "" Then 'They did not cancel
         RichTextBox1.SaveFile(SaveFileDialog1.FileName)
         Me.Text = SaveFileDialog1.FileName
      End If
    End Sub
  4. Click Save All SaveAllat this point and run the program.
  5. Open one of the rtf files you created, then try Save, SaveAs and Open.

Next we will write the code to implement New.


INDEX, The Rich Text Box and a Menu, Add a ToolBar, Resize the RichTextBox to fill the Form, Save the contents of the RichText Box, Open a File, Save As, New, Ask to Save, Formatting the Rich Text Box, Code for the complete Rich Text Box Application

Copyright © Zebra0.com
 All rights reserved worldwide.

 
 

Save As