‘ Add a style to the selection of a RichTextBox,’ without deleting the current styles that may be already’ present in the selection or in portions of it” Example: AddFontStyle(richTextBox1,
‘ Remove a style from the selection of a RichTextBox’ Example: RemoveFontStyle(richTextBox1, FontStyle.Bold)Public Sub RemoveFontStyle(ByVal rtb As RichTextBox, _ ByVal style As System.Drawing.FontStyle) ‘ if the selection length is >
‘ Copy the RichTextBox’s selected text into the Clipboard’ Example: CopyFromRichTextBox (richTextBox1)Public Sub CopyFromRichTextBox(ByVal rtb As RichTextBox, _ Optional ByVal availableAfterEnd As Boolean = False) Dim data As New DataObject()
‘ Set the specified font to the selection of a RichTextBox’ Note: require GetSafeStyleForFontFamily” Example: SetFontFamily(richTextBox1, “Times New Roman”)Public Sub SetFontFamily(ByVal rtb As RichTextBox, ByVal fontName As String) Dim fontFam
‘ Paste the text currently in the Clipboard into the specified RichTextBox’ Example: PasteIntoRichTextBox (richTextBox1)Public Sub PasteIntoRichTextBox(ByVal rtb As RichTextBox) ‘ get the data currently in the Clipboard Dim data
‘ Set the specified font size to the selection of a RichTextBox’ Example: SetFontSize(richTextBox1, 16)Public Sub SetFontSize(ByVal rtb As RichTextBox, ByVal fontSize As Single) ‘ if the selection length is
he Web services programming model is breaking down the barriers of cross-platform and cross-language communications. Because it works through simple XML-formatted text messages, code written in any language should be