ما هو كود الاستعراض في الفيجوال بيسك؟

يمكن استعمال ادوات مختلفة لذا الغرض و هي ال Common dialog

http://www.juicystudio.com/tutorial/vb/cdl.asp

او

File, Dir Drive controls

browsing.zip

استعمل الاداة microsoft common dialog و لنفرض ان اسمها cd

استعمل الدوال

cd.showopen

cd.showcolor

cd.showfont

لفتح برنامج و لون و خط على التوالي

السلام عليكم

مشكورين اخواني راكان وhishamnasr على الرد......وما قصرتوا

واسمح لي أخي hishamnasr أن اطلب منك توضيح أكثر ...

لأني بعد ما نزلت الاداة microsoft common dialog وادرجتها في المشروع ما ادري اشلون أضع الكود؟؟

يمكن وضع الكود في اي حدث تريده مثل

CmdBrowse_Click()

Form_Load()

cmdbrowser = commandbutton

Private sub Command1_Click()
CD.ShowOpen
If CD.FileName = "" then
msgbox "you did not select a file"
end if 
ENd sub

السلام عليكم..

تحملني أخوي راكان اذا كنت اذيتك......

قمت بنسخ الكود في شيفرة الزر ولم احصل على النتيجة المطلوبة ...

يطلع ليي error في السطر التالي

CD.ShowOpen

ما ادري ليش ؟؟هل اسم الأداة خطأ ؟؟

هل بإمكاني أطلب منك أن تضع برنامج به هذه الخاصية ؟؟؟ لان هذا سيكون اوضح

بالمناسبة ابارك لك حصولك على العضو المميز ...

:)

وينكم يا اخوان؟؟؟؟؟

مثلا ادرج الاداة و اعطها الاسم cd

اضف زر و اضف له الكود التالي

cd.showcolor
form1.backcolor = cd.color

يمكن ايضا ادراج الcomponent media player و لنسمها mp , و اضف الكود التالي

cd.showope
mp.filename=cd.filename

و هكذا

و هكذا

في نافذة الخصائص على اليمين... قم بايجاد خاصية Name

و من ثم اكتب CD

السلام عليكم

اذا ضغطت ضغطة و احدة على اي اداة موجودة في الفورم فستجد ان اول خاصية في جدول الخواص ( باليمين ) هي خاصية name قم بتغييرها

اقتباس

غيير الكود لل media player للاتي

cd.showopen

نسيت فيها الحرف الاخير n