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

كيف أضع الليبل شفاف فوق الصورة

بدأه وفاء ثابت في 18 نوفمبر 2008 · 7 رد · 1,062 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه..

... عندي سؤال أتوقع :happy: إني أجد ضالتي المنشودهـ عندكم يا أهل البرمجهـ ..

.. عندي مشروع تخرج ،، والمشروع عبارهـ عن تعليم الأطفال اللغهـ الإنجليزيهـ

قمت بتصميم بعض الصور الطفولية_ متحركهـ _ ..في برنامج الفوتوشوب ..

والآن عندما أريد أن أضع الصورة على الفورم لاتتحرك ،، فوضعتها بأذاة الـ picturebox بخاصية الإيمج

فتحركت وللهـ الحمد ،،

ولكن ظهرت لدي مشكلهـ وهي أنني أريد أن أضع ليبل فوق مكعبات الحروف الموجودهـ في الصورة يكون شفاف بحيث تظهر الصورة من تحته لكي ينقلني إلى الفورم الثاني .. ..

حاولت لم أستطع ،، وإذا قمت بتغير لون الفورم ،، يتغير معاهـ لون الليبل ..

أرجوكم ساعدوني مالحل ؟؟ وهل يوجد طريقة أخرى :hmm: ...

مع العلم أنني أستخدم فيجوال بيسك 2005

لا تبخلوا بردودكم وآرائكم

أثابكم اللهـ ونفع بعلمكم ..

تحيتي :rolleyes:

تم تعديل هذه المشاركة بواسطة وفاء ثابت في 18 نوفمبر 2008 في 23:18

#2

بسم الله الرحمن الرحيم

جربي هذا يفي بالغرض ان شاء الله واكتبي ما يلحو لكي وحددي الموقع على الصورة

Dim x As Graphics = Graphics.FromHwnd(PictureBox1.Handle)
		Dim f As New Font("Times New Roman", 16, FontStyle.Bold)
		x.DrawString(Label5.Text, f, Brushes.Black, 50, 50)
#3

ألف شكر لك ...أخي

ولكن !!

أين أكتب هذا الكود هل أكتبه في الليبل أم ماذا ؟ ...

هل ممكن توضيح أكثر من فضلك ...

وجزاك اللهـ خيرا..

مع كل الود...

#4

هذا عبارة عن رسم نص وتقوم بتحديد الكائن الذي تريد الرسم ونحن حددنا المقبض(PictureBox1.Handle) رسم على الصورة وممكن وضع الكود في أي حدث مثل عند تحميل الفورم أو الضغط على زر أو الضغط على الصورة

#5

اختي الفاضلة

أختي الفاضلة لو استخدمتي هذه الفكره فانت لست بحاجه الي Label علي الاطلاق

استخدمي الكود بالشكل التالي


Dim m_font As New Font("Times New Roman", 40, FontStyle.Bold)
Dim m_Text As String = "Omar Amin"

Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

e.Graphics.DrawString(m_Text, m_font, Brushes.Black, 0, 0, StringFormat.GenericTypographic)
m_font.Dispose()

End Sub

End Class
Public Class Form1

وده الكود الذي أضافة الزميل الفاضل الساهر 24

يكتب هكذا



Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

Dim x As Graphics = Graphics.FromHwnd(PictureBox1.Handle)
Dim f As New Font("Times New Roman", 16, FontStyle.Bold)
x.DrawString(Label5.Text, f, Brushes.Black, 50, 50)


f.Dispose()

End Sub


End Class
Public Class Form1

الرقمين صفر و صفر يحددان مكان بداية رسم التكست داخل الصوره أو كما في الكود الذي وضعه الأخ الساهر24 هو اختار القيم 50 و 50

ملحوظه:

بما أنك تستخدمين صورة متحركه وهي من الصور التي امتدادها gif

إذن رسم التكست داخل الصورة قد لا ينفع في حالتك تلك

بالتوفيق

أخوك عمر

تم تعديل هذه المشاركة بواسطة a_pess في 20 نوفمبر 2008 في 06:29

#7

جزاكم اللهـ خيراً جميعاً ،،،

أخي ..a_pess

هذا الكود لم يتنفذ .. بعد التنفيذ يطلع خطأ ..

e.Graphics.DrawString(m_Text, m_font, Brushes.Black, 0, 0, StringFormat.GenericTypographic)

إذا تقدر تشرح لي الكود هذا شرح مبسط لأنني لم أفهم مالمقصود منهـ ...

وهل أستطيع إضافتهـ أكثر من مرة في الصورة ؟ لأن الصورة أريد أن أربطها بكذا فورم ...

أرجوا الرد سريعاً ..

وجزاكم اللهـ خيراً جميعاً ...

تم تعديل هذه المشاركة بواسطة وفاء ثابت في 20 نوفمبر 2008 في 22:06

#8

أختي الفاضلة

في الموضوع التالي ستجدين ما تبحثين عنه تماما

/index.php?showtopic=177809

بالتوفيق

أخوك عمر

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