Gerekenler:
1 richtextbox
1 menustrip
1 openfiledialog
1 savefilediaglog
1 fontdiaglog
1 colordialog
menustirp e Dosya ve Edit ekliyoruz
dosya ya aç,hepsini sil,kaydet ve kapat ekleyin
edit e kopyala,yapıştır,hepsini seç,renk ve yazıtipi ekliyoruz
Kodlar:
OpenToolStripMenuItem
Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Open"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception : End Try
SaveToolStripMenuItem
Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try
RenkToolStripMenuItem
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try
YazıTipiToolStripMenuItem
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
Hepsini Seçe
RichTextBox1.SelectAll()
Yapıştıra
RichTextBox1.Paste()
Kopyalaya
RichTextBox1.Copy()
Kapata
Me.Close()
Hepsini Temizleye
RichTextBox1.Clear()
1 richtextbox
1 menustrip
1 openfiledialog
1 savefilediaglog
1 fontdiaglog
1 colordialog
menustirp e Dosya ve Edit ekliyoruz
dosya ya aç,hepsini sil,kaydet ve kapat ekleyin
edit e kopyala,yapıştır,hepsini seç,renk ve yazıtipi ekliyoruz
Kodlar:
OpenToolStripMenuItem
Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Open"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception : End Try
SaveToolStripMenuItem
Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try
RenkToolStripMenuItem
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try
YazıTipiToolStripMenuItem
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
Hepsini Seçe
RichTextBox1.SelectAll()
Yapıştıra
RichTextBox1.Paste()
Kopyalaya
RichTextBox1.Copy()
Kapata
Me.Close()
Hepsini Temizleye
RichTextBox1.Clear()
