إلى خبراء الفيجوال بيسك
 

أريد شرح مفصل لي طريقة وضع فلاش في الفورم اي يوم يفتح الفورم يظهر الفلاش ولكم جزيل الشكر.

سير توقيقي وابحث في ذلك المنتدى موجود فيه موضوع من طقطق الى السلام عليكم

عاد ما توقيع هذا ... متوفر فيه كل شيء

لسلام عليكم اخي الكريم
بأمكانك تنزيل flash or dirctor بذاهاب الى
project-> components سوف طلع لك قائمه اختر منها فلاش ثم اضغط على ابليapply بعد ذلك وكه ok)

سوف تلاحظ اظافتها في التول بوس toolbox اسحب هذه الاظافه الى الفورم form

بعد ذلك اكتب الباث path في البروبرتيز properties (يعني ذلك اين واضع الفلاش الي تريد تخليه في الفورم)

اعمل رن run للبرنامج سوف يعمل الفلاش ان شاء الله

وهذه بعض الاكواد
هذا الكود يقوم بأخفاء الماوس من الكبيوتر
Declarations

Declare Function ShowCursor& Lib "user32"(ByVal bShow As Long)

code

ShowCursor (False)


وهذا الكود يقوم بفتح السدي روم

Declarations:-


Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long




Code:-




Dim lngReturn As Long
Dim strReturn As Long

'To open the CD door, use this code:
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)

مشكور أخي ابو عبيده على المعلومة الحلوة

اتمنى ان ارى منك الجديد والمفيد

تحياتي يا أخي العزيز