Some simple programs in Visual Basic 6 Part 4

تكملة بعض البرامج البسيطة فى الفيجوال بيسك 6

تصميم برنامج قارئ للميديا

بعد الدخول للبرنامج

اضغط على Ctrl+t

اختر Windows Media Player و Microsoft Common Dialog Control 6.0

اضف 1 كوماند و 1تكست بوكس والاداتين الجديدتين ليصبح هكذا

الكود 

ضع هذا الكود فى زرار افتح

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

WindowsMediaPlayer1.URL = Text1.Text

WindowsMediaPlayer1.Controls.play

فكرة تصميم قاموس بسيط                

ادخل للبرنامج           

اضف 2 تكست بوكس و1 كوماند على هذا الشكل 

الكود 

نضع هذا الكود فى زرار ترجم

If Text1.Text = "cut" Then

Text2.Text = "change the place of the file"

End If