Recently Featured | Most Discussed | Most Recent | Most Responded | Most Viewed | Top Favorites | Top Rated | TV Serials | Trailers | Recently Watched
How to make a advanced Notepad in Visual Basic 2005 / 2008
This ad will close in 15 seconds
Rate:

ratings
Views:
4
From : chkTutorials
Added: Nov 7, 2009
CODES: New: RichTextBox1.Clear() Open: 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 Save: 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 Undo: RichTextBox1.Undo() Redo: RichTextBox1.Redo() Cut: RichTextBox1.Cut() Copy: RichTextBox1.Copy() Paste: RichTextBox1.Paste() Clear: RichTextBox1.Clear() Select All: RichTextBox1.SelectAll() Font: 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 Colour: 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 Exit: Me.Close()
Category : Howto
Added: Nov 7, 2009
CODES: New: RichTextBox1.Clear() Open: 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 Save: 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 Undo: RichTextBox1.Undo() Redo: RichTextBox1.Redo() Cut: RichTextBox1.Cut() Copy: RichTextBox1.Copy() Paste: RichTextBox1.Paste() Clear: RichTextBox1.Clear() Select All: RichTextBox1.SelectAll() Font: 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 Colour: 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 Exit: Me.Close()
Category : Howto
Related Videos

Video Categories:
Also Try:





