VB.NET 表單上顯示圖片 --- RichTextBox 控制項 @ 隨便寫寫的新天地

Jun 25 Wed 2008 15:49
VB.NET 表單上顯示圖片 --- RichTextBox 控制項

處理方式為：先將圖片資料讀入剪貼簿中，然後再將它貼上 RichTextBox 控制項中。

With RichTextBox1
    .Text = "你好!" & Environment.NewLine
    Dim myImage As Image = Image.FromFile(Application.StartupPath + "\myImg.jpg")
    Dim ido As IDataObject = New DataObject
    ido.SetData(myImage)
    '將圖片資料放到系統剪貼簿上(True 表示應用程式結束後，資料繼續保留在剪貼簿上)
    Clipboard.SetDataObject(ido, True)
    .SelectionStart = .Text.Length
    .Paste()
    .AppendText(Environment.NewLine & "再見囉~")
End With