اريد طريقة اضع بيها صوره داخل التكسيت بوكس يعنى الصوره مع الكلام بداخل التكسيت بوكس
اريد طريقة اضع بيها صوره داخل التكسيت بوكس
مغلق
اداه التيكست القياسية الخاصة بالفيجوال بيسيك لا تسمح بذلك لكن ابحث فى النترنت ربما تجد ادوات اخرى تسمح
مبارك لشعب تونس ![]()
اخي الكريم اداة ال Richtextbox تسمح لك بذلك جرب الكود التالي
قم باضافتها من project>>components>>microsoft rich text box
ضع التالي في اعلى الفورم Private Const WM_PASTE = &H302 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 وهذا في زر مثلا هنا نسخ الصورة الى الذاكرة يجب تحديد مسار الصورة Clipboard.SetData LoadPicture(app.path & "\" & picture.bmp") هنا سيتم وضع الصورة في الأدة SendMessage richtextbox1.hwnd, WM_PASTE, 0, 0
*************************************************
**************************************************
مصطفى زيداني
تمام بارك الله فيك اخ مصطفي
وللفائدة لصاحب الموضوع ممكن انك توضع الصورة في بكتشر بوكس وتحط فوق او تحت الصورة ليبل وتعمله شفاف ويكون هو الا فيه الكتابة مش لازم يعني الصورة مع الكتابة في نفس الوقت .....................
هذا الموضوع مغلق.