كود إدراج صورة في صندوق RichText

[فارس سوفت]

بسم الله أقد لكم هذا الموضوع من شرحي الخاص

_______________ _____


كود إدراج صورة في صندوق
RichText


ضع الكود التالي



أولًا قم بإدراج مربع الكتابة RichText و أداة الصورة Picture و أضف زر أمر



ثانيًا اكتب الكود



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



Private Sub Command1_Click( )

'the 2 code lines below copy the picture box's picture to the clipboard. if you will omit them,

'the picture that currently found in the clipboard will be copied to the rich text box.

Clipboard.Clear

Clipboard.SetDa ta Picture1.Pictur e

SendMessage RichTextBox1.hw nd, WM_PASTE, 0, 0

End Sub



لاتنسونا من ردودكم