الدرس الرابع (تصميم برنامج لعرض اعلام الدول)

التعريف بالبرنامج : هو برنامج تكتب فيه اسم الدولة وتضغط على بحث يظهر لك علم الدولة.

الادوات المستخدمة :

1- أداة textbox

2- أداة button

3- أدوات picturebox

4- اعلام الدول اضغط هنا لتحميل اعلام الدول

تغيير الخصائص :

ونكرر ذلك مع اعلام الدول

وعند وضع picturebox توضع فوق بعضها.

كتابة الكود للمفتاح button :

Dim country as string

Country = textbox1.text

If country = "مصر" then

egypt.visible=true

sodan.visible=false

………….

………

End if

وتكرر جملة if مع جميع الدول .

ويمكن استخدام select case بدلا من جملة if

dim country as string

country = textbox1.text

egypt.visible = false

sodan.visible = false

.................

.................

select case country

case "مصر"

egypt.visible = true

case "السودان"

sodan.visible = true

..........

.........

else case

...........

end select