الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد طريقة اضع بيها صوره داخل التكسيت بوكس

مغلق
بدأه khaled_top_com في 7 مارس 2007 · 3 رد · 733 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اريد طريقة اضع بيها صوره داخل التكسيت بوكس يعنى الصوره مع الكلام بداخل التكسيت بوكس

#2

اداه التيكست القياسية الخاصة بالفيجوال بيسيك لا تسمح بذلك لكن ابحث فى النترنت ربما تجد ادوات اخرى تسمح

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

#3

اخي الكريم اداة ال 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

*************************************************

**************************************************

مصطفى زيداني

#4

تمام بارك الله فيك اخ مصطفي

وللفائدة لصاحب الموضوع ممكن انك توضع الصورة في بكتشر بوكس وتحط فوق او تحت الصورة ليبل وتعمله شفاف ويكون هو الا فيه الكتابة مش لازم يعني الصورة مع الكتابة في نفس الوقت .....................

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…