VB如何将文字与图片全部读到Rich-TextBox控件中 第2页

    Select Case lngClipboardType
    Case 0: Clipboard.SetData objTemp, vbCFBitmap
    Case 1: Clipboard.SetText strTemp, vbCFText
    Case 2: Clipboard.SetData objTemp, vbCFMetafile
    Case 3: Clipboard.SetData objTemp, vbCFDIB
    End Select
End Sub

不需要剪切板，直接使用SendKey发送字符串到富文本框的光标位置即可，比如：

VB code
Private Sub Command1_Click()
    Me.RichTextBox1.SelStart = Len(Me.RichTextBox1.Text)
    Me.RichTextBox1.SetFocus
    SendKeys "软件设计"
End Sub

当然，如果熟悉RTF格式，单片机温度自动控制系统设计也可以直接修改TextRTF属性。

上一页  [1] [2]