Hallo,
Ik zit met een probleempje die ik niet opgelost krijg,
Ik heb een form met daarop een richtextbox, nu wil ik in runtime daar een plaatje in kunnen zetten, dit lukt allemaal nog, alleen het plaatje wat dan in de richtextbox komt te staan kan dan geresized worden. Dit wil ik dus kunnen disablen.
Code:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Const WM_PASTE = &H302
Sub InsertPictureInRichTextBox(RTB As RichTextBox, Picture As StdPicture)
Clipboard.Clear
Clipboard.SetData Picture
SendMessage RTB.hwnd, WM_PASTE, 0, 1
End Sub
Private Sub Form_Load()
InsertPictureInRichTextBox RichTextBox1, LoadPicture("c:\1.bmp")
End Sub
Weet iemand hier een oplossing voor?
Ik zit met een probleempje die ik niet opgelost krijg,
Ik heb een form met daarop een richtextbox, nu wil ik in runtime daar een plaatje in kunnen zetten, dit lukt allemaal nog, alleen het plaatje wat dan in de richtextbox komt te staan kan dan geresized worden. Dit wil ik dus kunnen disablen.
Code:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Const WM_PASTE = &H302
Sub InsertPictureInRichTextBox(RTB As RichTextBox, Picture As StdPicture)
Clipboard.Clear
Clipboard.SetData Picture
SendMessage RTB.hwnd, WM_PASTE, 0, 1
End Sub
Private Sub Form_Load()
InsertPictureInRichTextBox RichTextBox1, LoadPicture("c:\1.bmp")
End Sub
Weet iemand hier een oplossing voor?