Page 2 Page: 2 We need to add invisible controls to the notepad: Click on SaveFileDialog in the Toolbox and add to the form: SaveFileDialog is an invisible control that appears only when it's called. However, it's icon appear in the gray area as it appears on the image above. Right click on SaveFileDialog1 and click properties: Change the properties as follows: Filter property should be Text files (*.txt) We should also add OpenFileDialog to the form. Right click on OpenDialog1 and click properties: Change the properties as follows: Once your project look like the image below, let's add some codes to the File menu: Right click on the form and click on View Code to go to code page File New Add the 'New' menu code.

Visual Basic; Visual Basic. Only run source code. Kasi lam kung pano iconnect ang notepad using vb6 code???pahingi. This is the snippet Notepad-like Editor on FreeVBCode. The FreeVBCode site provides free Visual Basic code, examples, snippets, and articles on a variety of other. Gigabyte Mouse Drivers M6900 there.

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click SaveFileDialog1.ShowDialog() ' the application will check if the file is already exists, if exists, it will ask the user if they want to replace it If My.Computer.FileSystem.FileExists(SaveFileDialog1.FileName) Then Dim ask As MsgBoxResult ask = MsgBox('File already exists, would you like to replace it?' , MsgBoxStyle.YesNo, 'File Exists') 'if the user decides not to replace the existing file If ask = MsgBoxResult.No Then SaveFileDialog1.ShowDialog() 'if the user decides to replace the existing file ElseIf ask = MsgBoxResult.Yes Then My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False) End If 'if the file doesn't exist Else Try My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False) Catch ex As Exception End Try End If End Sub File Exit Add the 'Exit' menu code.