[VB.NET]NotePad Yapımı

YeniToolStripMenuItem Kodları;

1	RichTextBox1.Clear()

AçToolStripMenuItem Kodları;

1 2 3 4 5 6

Dim dlg As OpenFileDialog = New OpenFileDialog dlg.Title = "Aç" dlg.Filter = "Zengin Metin Belgesi ("*.rtf") |*.rtf" If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.LoadFile(dlg.FileName) End If

KaydetToolStripMenuItem Kodları;

1 2 3 4 5 6

Dim dlg As SaveFileDialog = New SaveFileDialog dlg.Title = "Kaydet" dlg.Filter = "Zengin Metin Belgesi (*.rtf) |*.rtf" If dlg.ShowDialog = Windows.Forms.DialogResult.Ok Then RichTextBox1.SaveFile(dlg.FileName,RichTextBoxStreamType.RichText) End If

ÇıkışToolStripMenuItem Kodları;

1

End

GeriToolStripMenuItem Kodları;

1	RichTextBox1.Undo()

İleriToolStripMenuItem Kodları;

1	RichTextBox1.Redo()

 KesToolStripMenuItem Kodları;;

1	RichTextBox1.Cut()

KopyalaToolStripMenuItem Kodları;

1	RichTextBox1.Copy()

YapıştırToolStripMenuItem Kodları;

1	RichTextBox1.Paste()

TümünüSeçToolStripMenuItem Kodları;

1	RichTextBox1.SelectAll()

TemizleToolStripMenuItem Kodları;

1	RichTextBox1.Clear()

YazıTipiToolStripMenuItem Kodları;

1 2 3 4 5

Dim dlg As FontDialog = New FontDialog RichTextBox1.Font = dlg.Font If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.Font = dlg.Font End If

 RenkToolStripMenuItem Kodları;

Visual Basic .NET

1 2 3 4 5

Dim dlg As ColorDialog = New ColorDialog RichTextBox1.ForeColor = dlg.Color If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.ForeColor = dlg.Color En If