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

ما هو الخطأ الموجود في هذا الكود ؟

مغلق
بدأه محمد فؤاد تركي في 9 مارس 2007 · 8 رد · 575 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الافاضل

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

اليكم هذا الكود وبرجاء مساعدتي في ... الاتي

أولاً : - اليكم الكود بالكامل

[Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If T1.Text = "261177" Then
			Me.Hide()
			Dim x As New Form1()
			x.Button8.Enabled = False

			Dim z As New Form2()
			z.Show()
		Else
			MsgBox("Wrong Password please try again !", MsgBoxStyle.Critical, "Password confirmation")
			T1.Text = " "
		End If

	End Sub

ثانياً : المطلوب

لا يتم تنفيذ هذا الاجراء بالطريقة المطلوبة

بمعني يتم فتح فورم 2 ولا يتم تنفيذ الاجراء الموجود في فورم 1

شكرا لكم

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#2

لكنك لم تقم بكتابة إسم الإجراء الذي تريد تنفيذه في الـ Form1

اقتباس
How to get experience without a job, and how to get a job without experience
#3

كيف ؟ ؟

الاجراء المطلوب تنفيذه في Form1 هو

x.Button8.Enabled = False

ولكن هذا الاجراء لا يستجيب معي ولا ينفذ لماذا ؟

شكراً علي استجابتك

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#4

أخي الكريم إذا ممكن أن ترفع البرنامج حتى أستطيع المساعدة إن شاء الله

لا أدري إذا كان أحد الأخوة أدرك ما هي المشكلة

عندي سؤال: الكود المذكور أعلاه في أي Form موجود؟

اقتباس
How to get experience without a job, and how to get a job without experience
#5

أخي الغالي حمزة

الموضوع بمنتهي البساطة

عندي عدد 3 فورم

الفورم الاول عبارة عن شاشة باص ورد دخول البرنامج

وتم كتابة تحت حدث الضغط علي زر ( دخول ) الكود التالي

[Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If T1.Text = "261177" Then
			Me.Hide()
Dim z As New Form2()
			z.Show()
		Else
			MsgBox("Wrong Password please try again !", MsgBoxStyle.Critical, "Password confirmation")
			T1.Text = " "
		End If

End Sub

وشرح هذا الكود اذا تحقق الشرط وهو الرقم السري الصحيح يقوم البرنامج بفتح الفورم التالي وهو فورم رقم 2 كما هو موضح بالكود

المشكلة هنا تكمن في شيء

أريد أن اضيف اجراء آخر تحت نفس الحدث وهو

عند الضغط علي نفس الزر

يقوم البرنامج بتنفيذ التالي

Dim x As New Form1()
			x.Button8.Enabled = False

وهذا هو الفورم الثالث الذي أريد أن أفعل علية شيء وهو عدم تفعيل زر واسم الزر button8

المشكلة عندي في شيئين

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

أما أن يفتح الفورم وذلك في الاجراء الاول

أم أما يقوم بعدم تفعيل الزر الموجود علي الفورم الاخر

والمطلوب أريد أن اقوم بتشغيل الاجرائين مع بعض

اذا الامر ما زال غامضاً أم أنا لم استطيع توضيح الامور سأرفق لك مثال لما اريد

شكرا علي سعة صدرك

واسف علي الاطاله

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#6

أخي الكريم محمد,

لقد قمت بعمل 3 FORMS كما قلت و سأرلهم لك, الكود شغال 100%

يا ريت ترسل لي بالبرنامج الذي عندك

MOHAMMAD.zip

اقتباس
How to get experience without a job, and how to get a job without experience
#7

أخي الغالي حمزة

أنظر الي هذا المثال المرفق

الرقم السري للمثال 123

ومن خلال فورم 2 قم بفتح فورم 3 من خلال القائمة الموجودة علي الفورم ولا حظ عدم تفعيل الزر مع ان الكود بيقول ان الزر غير مفعل

شكرا علي الاهتمام

Test.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#9

فعلاً هذا هو المطلوب بالضبط

الله يعطيك ألف عافية يا أخي الغالي

شكراً لك

certifiedj.jpg

 

 

Image Hosted by ImageShack.us

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

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

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

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

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

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