Read Only

بعد هذه السطرين 'تجزئة الملفات الموجودة في السلسلة في مصفوفة نصية sArr = Split(str_AllFiles) استخدم الكود MsgBox sArr(Int(Rnd * (UBound(sArr) + 1))) ولاتنسى العبارة Randomize في اعلى الاجراء.

اذا كان المقصود استخدام الاداة WMP فهذا تعديل لمثالك السابق مع ملاحظة أنني لم أعتمد كثيرا على احداث الاداة ... اما اذا كان بخلاف هذه الاداة أرجو التوضيح بأي تقنية تريد فهناك طرق متعددة. Private Sub Command1_Click() MediaPlayer1.PlayCount = Val(Text1) MediaPlay…

في المثال السابق افترضت أنك تريد تشغيل ملف Wav ولذلك استخدمت الدالة sndPlaySound أيضا توقعت أنك تريد حساب كم مرة سيقوم المستخدم بتشغيل الملف الصوتي. ولكن من خلال الملف لاحظت أنك تريد تحديد عدد معين من المرات لتشغيل الملف الصوتي. وبما أنك تستخدم الاداة WMP فهذا…

هذه مشاركة متواضعة أرجو أن يكون فيها الفائدة ... الوظيفة: دالتي واجهة برمجة التطبيقات DrawText ونسختخها الاحدث DrawTextEX تقوم بطباعة نص معين في مستطيل محدد. ملاحظة: الدوال المنتهية بالامتداد EX تعمل على مختلف أنظمة ويندوز. تصريح الدالة حسب لغة فيجوال بيسك: De…

الاخ/NASSER ALSAIDI يجب عليك في هذه الحالة أن تحاكي عمل أداة FileListBox وتقوم باستخراج الملفات من المجلد المحدد وتضعها في مصفوفة. وهذا مثال يقوم بهذا العمل يعتمد على الدالة التي ذكرتها سابقا. Private Sub Command1_Click() Dim sArr() As String 'AAA حيث أن المجل…

لا أعتقد أن هناك داعي لاستخدام حلقة تكرارية لأن استخدام متغير استاتيكي سيفي بالغرض. 'sndPlaySound تصريح الدالة Private Declare Function sndPlaySound Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private…

لم توضح ماهي المشكلة المتولدة لأن البرنامج لن يصدر أي خطأ فهو مجرد فحص .. على العموم يمكنك قلب الحلقة التكرارية للوصول للمطلوب ... وهناك ملاحظة نسيت التنويه عليها وهي أنه يجب أن يكون اسم المجلد الذي تحويه الاسطوانة طويلا كيلا يتشابه مع أسماء مجلدات أخرى لأي مح…

بالنسبة لعرض الصورة يجب عليك أولا ضبط المسار إلى المسار الجديد ' I حيث 'قيمة متزايدة باستمرار كما عملت أنت في برنامجك Picture1 = LoadPicture(CdDir("AAA") & "" & File1.List(I)) وهذه طريقة أخرى 'API تصريحات دوال Private Declare Function PathFileExists Lib "shlwa…

يمكنك ذلك بعدة طرق وهذه احداها وهي باستخدام المكتبة Microsoft Scripting Runtime ... قم باخفاء الاداة FileListBox وحذف الاداتين DirListBox و DriveListBox ثم استعمل الكود Function CdDir(FolderName As String) Dim Obj_FSO As Object, Obj_Drive As Object Set Obj_FSO…

حقيقة لم افهم جيدا ماذا تقصد .. لكن مافهمته أن لديك اسطوانة وعلى مجلد معين منها توجد مجموعة من الصور تريد من برنامجك أن يتعرف على مشغل الاقراص الذي يحوي هذه الاسطوانة ثم يقوم يتكوين المسار وبعد ذلك يقوم بعرض الصور الموجودة في ذلك المجلد بتعاقب فهل هذا ماتقصده؟…

ربما أكون لم افهم السؤال لكني سأجيب حسبما فهمت: ضع الصور في نفس مجلد البرنامج ثم استخدم الخاصية Path للكائن App .. مثلا لنفترض أن الصورة AA.bmp على نفس مجلد البرنامج فاننا نقوم بتشغيلها على النحو التالي: Private Sub Command1_Click() Path = IIf(Right(App.Path, …

ملاحظتين (اواستفسارين) صغيرين. - لماذا لم تستخدم الدالة FileLen مباشرة MsgBox FileLen("C:Edit.hlp") - لماذا استخدمت القسمة على 1000 بدلا من القسمة على 1024 .