VB.NET Technology

VB.Net Projects

VB.Net Project 1

Window Media Player
Previous Home Next
adplus-dvertising

Code for New Button

Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, 
	ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        If richTextBox1.Modified Then
            Dim result As DialogResult = MessageBox.Show("Do you wish to Save changes?", 
		"Save Changes", MessageBoxButtons.YesNoCancel)
            If result = DialogResult.Yes Then
                saveToolStripMenuItem_Click(sender, e)
            ElseIf result = DialogResult.No Then
                richTextBox1.Text = ""
            End If
            If result = DialogResult.Cancel Then
            End If
        End If
 End Sub

Code For Open Button

Private Sub OpenToolStripMenuItem1_Click(ByVal sender As System.Object, 
	ByVal e As System.EventArgs) Handles OpenToolStripMenuItem1.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            richTextBox1.LoadFile(OpenFileDialog1.FileName, 
		RichTextBoxStreamType.PlainText)
            SaveFileDialog1.FileName = OpenFileDialog1.FileName
        End If
    End Sub

Code for Save Button

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, 
	ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        If SaveFileDialog1.FileName <> "" Then
            richTextBox1.SaveFile(SaveFileDialog1.FileName, 
		RichTextBoxStreamType.PlainText)
        Else
            saveAsToolStripMenuItem_Click(sender, e)
        End If
    End Sub

Code for Save As Button

Private Sub SaveToolStripMenuItem1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles SaveToolStripMenuItem1.Click
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            richTextBox1.SaveFile(SaveFileDialog1.FileName, 
RichTextBoxStreamType.PlainText)
        End If
    End Sub

Code for Exit Button

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, 
  ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
    If richTextBox1.Modified Then
       Dim result As DialogResult = MessageBox.Show("Do you wish to Save changes?", 
		"Save Changes", MessageBoxButtons.YesNoCancel)
            If result = DialogResult.Yes Then
                SaveToolStripMenuItem_Click(sender, e)
            ElseIf result = DialogResult.Cancel Then
            End If
        End If
        Me.Close()
    End Sub

Code for Form Closing

Private Sub Form1_FormClosing(ByVal sender As System.Object, 
	ByVal e As System.Windows.Forms.FormClosingEventArgs)
	Handles MyBase.FormClosing
        If richTextBox1.Modified Then
            Dim result As DialogResult = MessageBox.Show("Do you wish to Save changes?", 
		"Save Changes", MessageBoxButtons.YesNoCancel)
            If result = DialogResult.Yes Then
                SaveToolStripMenuItem_Click(sender, e)
            ElseIf result = DialogResult.Cancel Then
                e.Cancel = True
            End If
        End If
    End Sub
Previous Home Next