طلب لو سمحتم يامبرمجين

اخي العزيز

اكتب هذا الكود

if text1.text = "م" then
msgbox "ممتاز"
end if

if text1.text = "ج" then
msgbox "جيد"
end if

if text1.text = "جج" then
msgbox "جيد جدا"
end if

طبعا انت بتقوله لو اللي مكتوب في التيكست بوكس 1 بيساوي م اعمل كذا

وهاكذا

طبعا هذا الكود في حدث الكليك بتاع الزرار

[b]اكتب الكود التالى فى حدث

كليك للكومند

select case text1.text

case "م"

lable1.caption="ممتاز"

case "ج ج"

lable1.caption="جيد جدا"

case "ج"

lable1.caption="جيد"

case "ل"

lable1.caption="مقبول"

case "ض"

lable1.caption="ضعيف"

case "ض ج"

lable1.caption="ضعيف جدا"

case else

lable1.caption="هذا الاختيار غير صحيح"

End select

[code]

اخي الكود فيه خطأ أرجوا الإسراع في تصحيحه

اخى الغالى

اسف على التاخير

Private Sub Text1_Change()
Select Case Text1.Text
Case "م"
Label1.Caption = "ممتاز"
Case "جج"
Label1.Caption = "جيد جدا"
Case "ج"
Label1.Caption = "جيد"
Case "ل"
Label1.Caption = "مقبول"
Case "ض"
Label1.Caption = "ضعيف"
Case "ض ج"
Label1.Caption = "ضعيف جدا"
Case Else
Label1.Caption = "هذا الاختيار غير صحيح"
End Select
End Sub

الرجاء اضافه

text1

و

Label1

على

form

ووضع الكود السابق

وعلى فكره مكنش فى خطا

انا كنت مسمى اليبل

lable1

بدلا من

Label1

كفيت ووفيت وجزاك الله خير ويجعلها بميزان حسناتك