|
|
|
مادة إعلانية
|
|
#3
11/03/2005, 05:34 AM
|
||||
|
||||
|
عاد ما توقيع هذا ... متوفر فيه كل شيء
|
|
#4
12/03/2005, 07:22 AM
|
|||
|
|||
|
لسلام عليكم اخي الكريم
بأمكانك تنزيل flash or dirctor بذاهاب الى project-> components سوف طلع لك قائمه اختر منها فلاش ثم اضغط على ابليapply بعد ذلك وكه ok) سوف تلاحظ اظافتها في التول بوس toolbox اسحب هذه الاظافه الى الفورم form بعد ذلك اكتب الباث path في البروبرتيز properties (يعني ذلك اين واضع الفلاش الي تريد تخليه في الفورم) اعمل رن run للبرنامج سوف يعمل الفلاش ان شاء الله |
|
#5
12/03/2005, 07:34 AM
|
|||
|
|||
|
وهذه بعض الاكواد
هذا الكود يقوم بأخفاء الماوس من الكبيوتر 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) |
|
|
