القيمة بإنشاء كائن مثال الخاصية (Font)

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة modress

جزاكم الله خيرا وربنا يكرمك
بس ياريت لو افهم ازاى اختار الامر المراد تنفيذه يعنى معلم او معلم اول او غيره

جرب الكود ده واعمل كومبو وحط فيه وظائف المعلم
Dim JobTitle As String
Dim Salary As Single
JobTitle = Me.ComboBox1.SelectedItem

Select Case JobTitle
Case "معلم مساعد"
Salary = 3000
Case "معلم"
Salary = 3500

Case "معلم أول"
Salary = 3000

Case "معلم أول أ"
Salary = 4000

Case "معلم خبير"
Salary = 4500

Case "معلم كبير"

End Select
Me.Label1.Text = "الراتب " & Salary
[/QUOTE]
واضح إن عندك أمل بالأرقام دى
طلع نأبنا على شونه