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

تشغيل الشفرة تلقائياً وقت بدء تحميل النموذج

مغلق
بدأه ابن مسقط في 23 يونيو 2006 · 2 رد · 486 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الشفرة التالية هي لرسم شكل دائري على نموذج بعد أن يتم النقر على الزر Button1 :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim drawArea As Graphics
Dim redBrush As New SolidBrush(Color.RosyBrown)
drawArea = picLogo.CreateGraphics()
drawArea.FillEllipse(redBrush, 8, 8, 65, 60)
End Sub

لقد قمت بوضع الشفرة في حدث عند التحميل للنموذج ولكن لم تعمل ، إلا في حالة وضع الكود المذكور أعلاه تحت حدث النقر" للزر "

فما أن أقوم بالنقر يعمل الكود وتظهر الصورة. و أنا لا أريده بهذا الشكل وأنما أود أن يعمل وقت تحميل النموذج بشكل تلقائي

السؤال :-

كيف يمكن تشغيل الشفرة مباشرةً وقت تحميل النموذج ليتم إظهار الرسم بدون أن يتم النقر على الزر ؟

مع العلم أني أعمل على فجوال إصدار 2003 ، وللإيضاح حول ما أنشده أرفقت نسخة من المثال ، عسى أن تساعد في توصيل الفكرة والله الموفق

Drwaing.rar

ibnmusqat.gif
#2

لكي يتم الرسم تلقائياً وقت بدء تحميل الفورم يجب أن تستخدم الحدث Paint الخاص للـ Control الذي تريد الرسم عليه:

  Private Sub picLogo_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles picLogo.Paint
		Dim redBrush As New SolidBrush(Color.RosyBrown)
		e.Graphics.FillEllipse(redBrush, 8, 8, 65, 60)
	End Sub

في هذه الحالة يمكنك الاستغناء عن المتغير drawArea وإستخدام e.Graphics عوضاً عنه..

رأس الحكمة الإيمان بالله

#3

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

ألف شكر لك يأستاذ / محمد على إستجابتك وردك السريع وبالفعل عمل الرسم تلقائياً

زادك الله إيماناً وعلما ورزقاً.

ibnmusqat.gif

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

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