أولا أكتب في combobox القيم التالية
0
2.5
وتفضل الكود التالي ضعه في اي مكان في الفورم
كود :
Private Sub calc()
If txtpris.Text = "" Then Exit Sub
If Ctax.Text = "" Then Exit Sub
Dim x As Double
Dim y As Double
Dim z As Double
y = Ctax.SelectedItem.ToString
x = CDbl(txtpris.Text)
z = x * y / 100
Tax.Text = z
txttotal.Text = CStr(x + z)
End Sub
ثم في حدث txtpris_TextChanged
ضع الكود التالي
ثم في حدث Ctax_SelectedIndexChanged
ضع الكود التالي
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي