عندي خطأ عند كتابة Select Case

Select Case List1.ListIndex

و ليس

List1.ListIndex Select Case

وفى مسافة بين Select و Case

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

اختي العزبزه انت تريدين استخدام احد القواعد الشرطيه وهي تسمى بـ Select Case

حيث ان طريقة عملها انك في البدايه تقومين بتحديد الشرط الذي بتم المقارنه على اساسه وهو الاصح في مثالك :

Select Case List1.ListIndex

وهو الحالات الذي يعود بها الوسيط Index الخاص بـ الـ Listbox المسماه بـ List1

ثم بعد ذلك يتم تنفيذ اقرب حالة تحققت من الحالات او الشروط الذي قمتي بتحديدها وذالك من خلال الكلمة المحجوزه Case وهي خاصه ايضا بهذه القاعده :

ثم لابد وان تنتهي بـ End Select .

فالكود الصحيح هو :

	Select Case List1.ListIndex

	Case 0

		Label4.Caption = "xxx"

	Case 0

		Label4.Caption = "xxxx"

	End Select

بأفتراض ان xxxx هو اي نص سيتم وضعه في الـ Label4

بالتوفيق ,,,,,,

A7med_prof

مو عارفة كيف اشكركم اخواني يعطيكم الف عافية يارب لهذا التوضيح

بس سؤال عند التجريب طلعلي ايرور ثاني عند Case0 مو عارفة شو الخطأ يعني لازم ابدأ من 1 ولة كيف

وهذي صورة

اسفة على اسئلتي الكثيرة

بس لآني بجد حابة اتعلم

العفو اختي العزيزه الله يوفقك

اتركي مسافه بين الـ Case و رقم الـ Index

Case 0

اخي احمد فعلا عملت مثل ماقلت وصار صحيح

الحمد لله عرفت اتعامل مع شرط select case

الف شكر اللك للمساعدة

وجزاك الله خير الجزاء يارب

مثال , ضعي تايمر واضبطيه ليعمل بعد 1 ثانية (القيمة 1000)

الكود :

Dim X

Private Sub Timer1_Timer()
	X = X + 1
	'
	Select Case X
	Case 1
	MsgBox X
	Case 2
	MsgBox X
	Case 3
	MsgBox X
	End Select
End Sub

تحليل الكود :

تم تعريف المتغير العام X (يمكن استبدال المتغير بمربع نص أو غيره)

إخطار البرنامج ببداية تركيب Select Case وسيكون عن قيمة X

الحالة الأولى إن كان X = 1

تظهر رسالة

وهكذا

إنهاء التركيب

اخي علاء الف شكر لك على المثال والتوضيح

بارك الله فيك استفدت كثيرا

اقتباس

اخي علاء الف شكر لك على المثال والتوضيح

بارك الله فيك استفدت كثيرا

اخى علاء والله كثير رائع انت