MMSs

إذا ربما لا تكتمل (عرض جيد وبدون قائمة About Flash)، إلا إذا كان هناك طريقة أخرى؟؟؟

شكراً لك أخي Visitor_OM، لقد اتضحت لي الفكرة الآن وعرفت سبب عدم عمل هذه الشيفرة مع Windows 98 عندما قرأت الشرح المرفق في صفحة تحميل البرنامج الذي ذكرته.

فكرة البرنامج ممكنة ولكن ليس عندي فكرة برمجية مساعدة لأجله. ولكني قد أراني أحد أصدقائي منذ فترة برنامجاً يستطيع معرفة حالة الكمبيوتر أهو متصل بالإنترنت أم لا وكان ذلك عن طريق بعض توابع API، وأعتقد أنه بالمثل يوجد توابع API تستطيع فصل الإتصال بالإنترنت. لذلك عل…

بإمكانك استخدام الدالة Randomize قبل استخدام الدالة Rnd() لتوليد عشوائية جديدة. أتمنى أن أكون قد حللت لك المشكلة.

لقد جربت الكود المرفق في المشاركة التي سبق وذكرت الرابط لها مع Windows Me بالإضافة لما ذكرت وقد عمل بشكل جيد. لذلك أعتقد ما من مشكلة عندما يعمل مع Win98.

حسن، تكرم عينك، أضف الشيفرة التالية إلى بداية الشيفرة المذكورة في الأعلى: Dim strNameOfFile As String strNameOfFile = "C:\Lists.txt" Open strNameOfFile For Output As #1 Close #1 ثم أضف السطر التالي إلى نهاية الشيفرة المذكورة في الأعلى: SendKeys "%{F4}{Enter}" …

إذهب إلى الرابط التالي في هذا المنتدى لترى كود معرفة سيريال المعالج. /index.php?showtopic=58029

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

حسب معلوماتي، لا تستطيع تغييرإيطار الـ Form بعد تحميله أي بعد حدوث الحدث Form_Load في فترة التشغيل Run Time. الوقت الوحيد الذي تستطيع شكل إيطار الـ Form هو فترة التصميم. وهذا هو ما أراد قوله لك الأخ romantic_boy.

طبعاً، ليصبح النصفي الـ TextBox في ملف يمكن حفظه عن طريقة Open "List.txt" for Output as #1 write #1, txtText.Text Close #1 فقد نسيت أن أكتب هذا من أجل الحفظ في الشيفرة السابقة المرفقة.

بإمكانك استبدال السطر Form1.Show بالعبارة Shell App.Path & "\yourProgName.exe" حيث yourProgName هو اسم برنامجك الكامل الذي تريده أن يعمل عند انتهاء، ويجب أن يكون كلا البرنامجين في نفس المجلد.

أتمنى أن يفي هذا الملف بالغرض المطلوب. Deal_with_TextBox_and_Values.zip

هذه الشيفرة تفتح الـ Notepad وتصدر القائمتان إليها. Dim strExportList As String, n As Integer strExportList = "List1" & vbTab & "List2" & vbCr For n = 0 To 25 strExportList = strExportList & List1.List(n) & vbTab & List2.List(n) & vbCr Next Shell "notepad.exe"…

شكراً للأخ amervb على هذه الأمثلة، لقد درست اثنين منها واكتشفت طريقة عدم إظهار قائمة الزر الأيمن للفلاش في VB فقط. وللفائدة أذكرها؛ عليك تغير خاصية WMode للـ Flash ActiveX المضاف إلى الـ Form إلى Transparent، فقط!.

حسب معلومات المتواضعة فإن ScaleHieght وScaleWidth تعبر عن قياس الارتفاع والعرض الفعلي بالترتيب للـ Form مثلاً، أما Height وWidth فهي لقياس الارتفاع والعرض الكامل للـ Form إي مع قياس الإطار المحيط به والذي يحوي في الأعلى العنوان وأزرار الإغلاق والتكبير والتصغير…

لا بأس على كل الأحوال وإن كان نفس الموضوع قد نشر سابقاً، على كل الأحوال إن طريقة مختلفة عن طريقته، وهذا بحد ذاته جميل، ونسأل الله أن يجزيكم الخير ويبارك لكم في علمكم..

شكراً لك على هذه الشيفرة. ولكن هذه الشيفرة تعطي نفس النتيجة التي كانت تعطيها الشيفرة التي تم ذكرها سابقاً من الأخ HnHn. فهي تعطي السيريال نمبر لدرايف محددة مثل C فهل هناك طريقة أخرى تعطي السيريال (ربما "الحقيقي") للهارد بحيث لا يتغيير عن إعادة تجزئة هذا الهارد…

مع الأسف الشديد!!!! ولكن لا يمكن ذلك!!! حتى أن VS.Net عند تنزيله على Windows2000 يحتاج إلى ثلاث أقراص ليزيرية إضافية، وفي البداية كان يتم تحديثه من الإنترنت حتى يتمكنوا من إنزال الـ VS.NET عليه. على كل الأحوال، إذا كان جهازك بطيئاً فلا أنصحك بتنصيب VS.Net عليه…

آسف!! نسيت أن أشكرك أخي seahmad، فموضوعك جميل جداً وسأستفيد منه كثيراً لأني أحب الاهتمام بالناحية الجمالية والفنية للبرامج التي أطوراها.

لفتح الملف الذي أرفقه الأخ seahmad في vb2002 إذهب إلى الرابط التالي /index.php?showtopic=58026 لتعرف الطريقة.