عبد الله فتحي

أرجو تحديد ما هو المقصود بالفواصل ؟

:( بالنسبة لرسالة الخطأ فهي ناتجة عن عدم وجود الأداة 'COMDLG32.OCX' وهي مرفقة مع هذا الرد .. COMDLG32.rar

يحتوي البرنامج على حوالي 650 كود للفيجول بيسيك 6.0 وهو هدية من المبرمج هيثم رسمي الباز منقول من مجلة ال PC Magazine العدد الأخير يمكنكم التحميل من هنــــــا

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

على الرحب أخي flyer13 :( وإذا كانت هناك خاصية يمكن تغييرها كما ذكر الأخ مهند عبادي فأعتقد أن هذا سيكون أسهل .. بالتوفيق :(

الكود يتم كتابته في شاشة الكود والتي يمكن إظهارها عن طريق الضغط على alt + F11 .. على سبيل المثال قم بتصميم نموذج جديد يحتوي على أداتي زري Command Button وأداة مربع نص TextBox .. قم بالنقر بزر الماوس الأيمن على الأداة Command Button وقم باختيار إنشاء حدث ثم منشئ البرامج .. هنا ستظهر نافذة الكود .. ستجد بأعلى نافذة الكود قائمتين منسدلتين بجوار بعضهما البعض .. اختر في اليسرى General وهنا سينقلك لقسم التصريحات العامة حيث يمكنك تعريف المتغيرات العامة هنا أو استخدام دوال ال API كما هو الحال بالنسبة لهذا الخلاص .. الخلاصة: قم بنسخ السطر التالي هناك Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long ثم بعد ذلك اختر من القائمة المنسدلة إحدى أدوات ال Command Button وقم بوضع هذا السطر: LoadKeyboardLayout "00000401", 1 وفي الأداة الثانية قم بوضع السطر الآخر LoadKeyboardLayout "00000409", 1 بعد ذلك قم بتجربة البرنامج وانظر كيف نقوم بالتحويل بين اللغتين عن طريق الضغط على الأزرة .. تحياتي :(

هذ السطر في قسم التصريحات العامة General_Declarartion: Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long وهذا للتحويل إلى اللغة العربية: LoadKeyboardLayout "00000401", 1 وهذا للتحويل إلى اللغة الإنجليزية: LoadKeyboardLayout "00000409", 1 :)

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

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

طيب ولو إنو الإستاذ محمد أجاب الإجابة الوافية .. فقط قم بتغيير الرقم واحد إلى صفر في هذا السطر s = fs.GetSpecialFolder(1)

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const SW_HIDE = 0 Private Const SW_SHOW = 5 Sub Hide_Clock() Dim shelltraywnd As Long Dim traynotifywnd As Long Dim trayclockwclass As Long shelltraywnd = FindWindow("shell_traywnd", vbNullString) traynotifywnd = FindWindowEx(shelltraywnd, 0&, "traynotifywnd", vbNullString) trayclockwclass = FindWindowEx(traynotifywnd, 0&, "trayclockwclass", vbNullString) Call ShowWindow(trayclockwclass, SW_HIDE) End Sub Sub Show_Clock() Dim shelltraywnd As Long Dim traynotifywnd As Long Dim trayclockwclass As Long shelltraywnd = FindWindow("shell_traywnd", vbNullString) traynotifywnd = FindWindowEx(shelltraywnd, 0&, "traynotifywnd", vbNullString) trayclockwclass = FindWindowEx(traynotifywnd, 0&, "trayclockwclass", vbNullString) Call ShowWindow(trayclockwclass, SW_SHOW) End Sub Private Sub CmdShow_Click() Show_Clock End Sub Private Sub CmdHide_Click() Hide_Clock End Sub

من المهم البحث في الموقع أولاً قبل السؤال .. حتى ننظم الجهود :( وجدت الإجابة هنا: http://www.officena.net/ib/index.php?showtopic=953 ولك خالص تحياتي :(

ولكن الدالة لم تأخذ الكسور :o ..

بعد إذن الأستاذ محمد طاهر أولاً لاختبار اللغة الحالية إليك هذا الكود: Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long Private Sub Command1_Click() If GetKeyboardLayout(KLF_ACTIVATE) = 67699721 Then MsgBox "English" Else MsgBox "Arabic" End If End Sub وهو يفترض أن المستخدم عنده لغتين (عربي - إنجليزي) .. وسأحاول العودة بخصوص التغيير ما بينهما ..

على كما يبدو أن العيب من النسخة نفسها كما ذكر الأخ egyptian_eg

سأعطيك هذا المثال .. والذي قد يساعدك .. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then MsgBox "F1" End If End Sub

thanx

هنـــــا تجدون دروساً متخصصة جداً وسهلة في هذا المجال .. للأستاذ هيثم القلاف مشرف منتدى الفيجول بيسيك بمنتدى الإبداع

أهلاً: طبعاً بإمكانك ذلك .. هل تريد عمل الزر في شريط الأدوات .. بإمكانك ذلك من خلال تخصيص في القائمة أدوات ..

آسف لتأخري أخي جمال .. مشغول كثير بالامتحانات .. بالنسبة لما ذكرته فنحن سنقوم بإنشاء مدخل قيمة نصي .. وذلك عن طريق الضغط على زر الماوس الأيمن في المسار المحدد .. ثم اختيار add ثم string value .. أو اختيار إضافة ثم قيمة سلسلة جديدة .. بعد ذلك نعطيها الاسم UserDriveLetterAssignment .. ونعطيها القيمة حرفين لمحرك الأقراص المضغوطة .. وأرجو تجنب الخطأ والتأكد من أن الأحرف كبيرة .. لا تنس إعادة تشغيل الويندوز لملاحظة النتيجة .. أتمنى أن تقوم بزيارة الرابط التالي: http://www.al-ebda3.info/ib/index.php?showtopic=3254 ربما تجد فيه ما يفيدك بهذا الخصوص .. وإليك تحياتي (f)

أخي tag4m تم تحميل البرنامج أكثر من 1400 مرة وأنت ثاني من يعاني من هذه المشكلة ,, وفي العاد ستكون المشكلة من عندك: بأي حال راجع الموضوع في الرابط التالي: http://www.al-ebda3.info/ib/index.php?showtopic=3644

بخصوص تغيير رمز محرك الأقراص المضغوطة من النظام نفسه، فهناك طريقتين: - إما بالطريقة التقليدية عن طريق الذهاب إلى إدارة الأجهزة في النظام وتغيير الرمز من خصائص الـ CD-Rom .. - أو أن نقوم بذلك من خلال الريجستري .. طبعاً في حالتنا هذه، وإذا كنا نريد تغيير الرمز من خلال البرنامج فسيتعين علينا اختيار الطريقة الثانية .. ولكن هناك عيوب لهذه الطريقة: 1- لا بد من معرفة (اسم) نوع الـ CD-Rom الذي نريد تغيير رمزه .. 2- سنحتاج إلى إعادة التشغيل لكي يتم تفعيل التغييرات .. وإليكم الطريقة مع الأخذ في الاعتبار أنني قمت بتجربتها على ويندوز ملينيوم فقط، وأن أي خطأ قد يؤدي إلى فشل تشغيل الويندوز نهائياً: سنقوم بفتح الريجستري من خلال إبدأ >> تشغيل >> RegEdit نقوم بالذهاب إلى المسار التالي: HKEY_LOCAL_MACHINE\Enum\SCSI تحت المفتاح (SCSI) سنجد مفاتيح فرعية تمثل أنواع محركات الأقراص الموجودة بالنظام .. نقوم باختيار نوع محرك الأقراص المضغوطة والذي نريد تغيير رمزه .. سنجد - على الأغلب - في داخله مفتاحاً فرعياً بالاسم: MF&CHILD0001&PCI&VEN_8086&DEV_244B&SUBSYS_24408086&REV_05&BUS_00&DEV_1F&FUNC_0100 نقوم بالدخول إلى هذا المفتاح .. سنجد قيماً كثيرة بداخله .. نبحث عن مدخل القيمة النصي UserDriveLetterAssignment وفي حال لم نجده نقوم بإنشائه .. بعد إنشائه نقوم بإعطائه قيمة نصية مكونة من الحرف الجديد الذي نريد أن نرمز به لهذا المحرك مكرراً مرتين .. على سبيل المثال لو كنا نريد تغيير رمز محرك الأقراص إلى X فيجب أن تكون القيمة XX .. ومن المهم جداً كتابة الحرفين في شكلهما الكتابي الكبير Capital .. بمعنى أنه لا يمكن كتابة qq والصحيح QQ .. اتمنى أن تكون الطريقة مفهومة .. يمكن تجربتها يدوياً وفي حال كونها الطريقة الملائمة فمن السهل ترجمتها إلى كود .. وللجميع خالص التحية ..

أخي هشام (y) (y) (y) أخي noursh .. سؤال في غاية الأهمية وهو أن الأكواد الذي نراها كثيرة .. ولكن في الحقيقة أخي هي ليست كذلك وإنما في البداية نحس بذلك لأننا ليس لدينا أي دراية بهذه الأكواد .. لكن بعد قليل من الدراسة ستجد أنك بدأت تلم بكل هذه الأكواد .. نعم هناك طريقة لمعرفة التعليمات المطلوبة .. ولنأخذ على سبيل المثال برنامج الفيجول بيسيك .. فإننا عند عمل أي مشروع فإنه يستخدم أربع مكتبات - قابلة للزيادة طبعاً - وإذا قمت بمعرفة جميع أوامر هذه المكتبة الأربعة فإنك ستكون قد وصلت إلى مرحلة ممتازة .. ولمعرفة هذه الأوامر كل ما عليك هو الضغط على F2 وستجد جميع أوامر هذه المكتبات .. وستجد شرحاً مبسطاً لها .. ولاحقاً سأقوم بوضع رابط لشرح لمعظم هذه الأوامر .. وإليكم تحياتي ..

جزاك الله خيراً .. عرفناك دائماً مبدعاً :fff: ..

حمل المثال السابق مرة أخرى .. ولاحظ التعديلات .. أعتذر عن عدم تواجدي في الفترة القادمة ... وللجميع تحياتي ..