2015年7月4日 星期六

VB.NET 將超長超寬 圖片( PNG,JPG......)放到richtextbox1中

vb.net richtextbox
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load    

        Dim img As Image
        img = Image.FromFile("C:\hsiao.png")
        Clipboard.SetImage(img)
        RichTextBox1.Paste()
        '或Img = Image.FromFile(Application.StartupPath & "\images\test01.jpg")
        '如要使用內部資源檔   img = My.Resources.hsiao
     
End Sub

**用paste()黏貼方式,如不是form_load而是用程式再加入圖形,原有圖片不會消失

如要取消原來圖面,可先清空richtextbox.text
原為
        Clipboard.SetImage(img)
        RichTextBox1.Paste()
改為
        Clipboard.SetImage(img)
        Richtextbox.text=""
        RichTextBox1.Paste()

scrollbar both 的水平捲軸
除了要設定
Multiline=True
Scrollbar=Both'(有超出才顯示)Forcedboth(一定會顯示)卷軸
還有一個最容易忘的就是
 WordWrap=False

沒有留言:

張貼留言