مشكور اخوي msh-fahm

فعلا هو اللي كنت اريده
الله يعطيك العافية كفيت ووفيت

السلام عليكم ورحمة الله وبركاته
ما هي أخباركم جميعاً ؟
أتمنى أن تكونوا في خير حال وأتم الصحة والعافية - كما يحب ربنا ويرضى - .

أخي (صقر الجزيرة) :
لا شكر على واجب .. واعذرني على التأخر - يعلم الله لولا الظروف ما كنت تأخرت عليك في الرد أبداً - .

أختي (نسمة هواء) :
الله يكرمك .. ويبارك لك .
إن احتجت أي شئ أنا تحت أمرك .. واعذريني عن التأخر .

(ها يا شباب/شابات) : من لديه أسئلة .. قبل أن نغلق ؟!

تحياتي
أبو عبد الله عمر

السلام عليكم ورحمه الله وبركاته

اخي ابو عبدالله

كيف الحال ان شاء الله بخير

ومبرووووووك على الاشراف تستاهل والله

اخي في ردك السابق لفت انتباهي لملاحظات حقاً مهمه وهي كانت في بالي ولكن لا اعرف الطريقه الكامله لها

وهي عن ( التحكم بعدد الحروف او الارقام في text)

ولي اعرفه هو

dim a as strnig*6 فقط
وهو اخذ الاحرف او الارقام السته الاول فقط حتى لو ادخل المستخدم اكثر من سته ارقام

فكيف اجعل text لا يكتب غير سته حروف فقط

سؤالي الثاني

بنسبه textbox كيف اجعله يكتب حروف فقط او العكس

ارجوا منك الشرح ياصديقي العزيز

والسلام عليكم ورحة الله

السلام عليكم ورحمة الله وبركاته
ما هي أخباركم جميعاً ؟
اتمنى ان تكونوا في خير حال وأتم الصحة والعافية كما يحب ربنا ويرضى .

أخي (صقر الجزيرة) :
بارك الله لك .. وأشكرك على السؤال .

بالنسبة لنقطتي سؤالك فجوابهما كالتالي :
النقطة الأولى :
وهي خاصة بعدد الحروف أو الأرقام بمربع النص .. يمكن فعل هذا بسهولة عبر خاصية موجودة بخصائص مربع النص وهي :
MaxLength
وهذه تعني أقصى عدد من الحروف/الأرقام بمربع النص .. والقيمة الأصلية لها هي (صفر) وتعني (بلا حد معين) .
يمكنك تحديد حجم النص قبل التشغيل عن طريق كتابة قيمة الخاصية .. ويمكنك فعل ذلك عن طريق الكود
Text1.MaxLength = 7
أتمنى أن تكون هذه النقطة واضحة .

النقطة الثانية :
وهي خاصة بمنع كتابة الحروف فيمكن ذلك عن طريق أحد طريقتين :
- منع كتابة الحروف أصلاً - هذا يعني أنك لو ضغطت على زر الحروف لن يكتب - .. ويمكن فعل هذا عن طريق الكود التالي :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

شرح مبسط :
كل زر من أزرار الكيبورد يأخذ قيمة في كود Ascii والأرقام من 0 إلى 9 (العشرة أرقام) تأخذ القيم من 48 إلى 57 في جدول Ascii Code وكل ما فعلناه هنا هو مراقبة ضغطة المفتاح .. هل هي داخل هذه الأرقام أم لا .
إن كانت لا (المضغوط حرف ) يرسل الفيجوال بيسك بدلاً عن قيمة الزر (صفر) يعني لا يكتب شيئاً .
وإن كانت نعم (المضغوط رقم) .. فلا يفعل شيئاً .
أتمنى أن تكون الطريقة واضحة .

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

- الطريقة الثانية وهي مكملة للأولى لأنك إن منعتني من الكتابة عن طريق لوحة امفاتيح فما أسهل أن أكتب في مربع النص عن طريق اللصق باستخدام Control +V أو غيرها من الطرق .
الطريقة تتلخص في الكشف عن هويّة النص المكتوب داخل مربع النص عن تركه والإنتقال لآداة أخرى . - هذه تعمل في حالة منع كتابة الحروف فقط - .
الكود :

Private Sub Text1_Validate(Cancel As Boolean)
If IsNumeric(Text2) = False Then MsgBox "Error .."
End Sub

IsNumeric(Text2) = False هذه تعني عند فحص هل هذا النص رقمي وأثبت الفحص أنه غير رقمي (يحتوي على حروف بداخله) .

أخيراً .. أتمنى أن اكون قد أفدتّك في شئ .. وأنتظر منك الكود الخاص بمنع الأرقام في مربع النص .. فكّر وحاول وستنجح إن شاء الله.. وإن واجهتك أي مشاكل أنا تحت أمرك .

تحياتي
أبو عبد الله عمر

مرحبااااااااااااااا

عندي سؤال
انا اريد الكود اللي يشغل برنامج الاوتلوك 2003 من داخل البرنامج تبعي
بصراحة انا عملتي زر امر من شريط الادوات وربطه بكود يعمل على تشغيل البرنامج بس ما رضى يشتغل معي بالرغم اني عملت لاكثر من برنامج مثل وورد والاكسل والانترنت واشتغلوا عادي
ممكن تفيدوني جزاكم الله عني كل خير



الدال على الخير كفاعله
واسمحولي عااااااااااااااااااد اسئلتي كثيرة

السلام عليكم ورحمة الله وبركاته
ما هي أخباركم جميعاً ؟
أتمنى أن تكونوا في خير حال واتم الصحة والعافية كما يحب ربنا ويرضى .

أختي (نسمة هواء) :
نحن هنا جميعاً تحت أمرك وفي خدماتك .. وأتمنى منك فقط عندما يقف أمامك أي شئ أن تعرضيه علينا هنا في المنتدى فالإخوة والأخوات هنا لا يقصرون أبداً في الخير - إن شاء الله - .

باالنسبة لسؤالك أختي : (حسب فهمي واعذريني إن أخطأت في الفهم) .

هناك دالة في VB6 تختص بتشغيل الملفات التنفيذية والبرامج .. هذه الدالة هي دالة Shell .
بالنسبة لبرنامج أوتلوك 2003 فهو ككل برامج الأوفيس له مسار معين في مجلد Program Files تحت Office أيّاً كان اصدار برنامج الأوفيس - حسبما أذكر- .
مرفق مع الرد الكود الذي يمكنك من تشغيل أي ملف تنفيذي (برنامج) .. وهو يستخدم دالة Shell .

وها هو شرح مبسط للكود :

أستخدم هنا آداة Common Dialog1 وText1 وCommand1 ,Command2 .وأخيراً Label1 .

في حدث الضغط للزر الأول الذي عنوانه (اختر البرنامج) .

CommonDialog1.Filter = "Supported (exe) Files|*.exe"
هذا السطر يعني أنني أضيف (فلتر) لتصفية كل الملفات بخلاف البرنامج (Exe Files) ..
لاحظي أن Supported (exe) Files هي الجملة التي ستظهر في (خانة نوع الملف) عند ظهور مربع حوار (فتح) .
وأن *.exe هو الإمتداد الوحيد الذي أريد ظهوره .. ما سواه لن يظهر .

CommonDialog1.ShowOpen
هو الكود الخاص بظهور مربع حوار (فتح) .

Text1.Text = CommonDialog1.FileName
معناه خذ اسم ومسار الملف المختار وضعه في مربع النص .

هل هناك مشاكل حتى الآن ؟

أخيراً :
في حدث الضغط للزر الثاني الذي عنوانه (تشغيل) :
Shell Text1.Text, vbNormalFocus
تعني افتح الملف(البرنامج) الموجود مساره واسمه في مربع النص .. وافتحه في حالة عادية .

ملاحظة :
يمكن أن أفتح البرنامج في اكثر من حالة منها حالة عادية ومركز عليه (vbNormalFocus) كما هنا وهو الوضع الطبيعي , وأيضاً مخفي (vbHide) , أيضاً مصغر ومركز عليه (vbMinimizedFocus) ..... الخ الخيارات التي ستظهر لك بمجر كتابتك لرمز الفاصلة "," وكلها ذات أسماء واضحة المعاني .
وبالطبع قد أحتاج في وقت من الأوقات أن يعمل البرنامج في الخلفية في الوضع المخفي(Hide) .. أو مصغر (Minimized) أو مكبر (Maximized) .

والآن ما عليك هو أن تتفهمي كل ما سبق جيداً .. وبعد ذلك أن تجربي هذا البرنامج مع أوتلوك 2003 وسترين مسار البرنامج موجود في مربع النص .. انسخيه وضعيه تحت زر الأمر في برنامجك الأصلي في صورة دالة Shell كما بينت وهي :
Shell (مسار البرنامج),(حالة البرنامج)

السؤال الآن هو :
هل هذا هو ما تريدين فعله .. وهل الموضوع صعب ؟ .. وهل وفقت في الإجابة عن سؤالك ؟

ملاحظة أخيرة :
ربما ينتج أخطاء إذا كتبت مسار البرنامج على حالة جهازك أنت فربما يكون برنامج الأوفيس على C لديك لأن برنامج Windows كذلك بينما عندي أنا على D لأن الويندوز عنديعلى D .
من الممكن تلافي هذه المشكلة بمعرفة المكان الذي عليه الويندوز C أو D أو غيرهما .
والكشف هل الملف (البرنامج) موجود تحت مساره الطبيعي في Program Files .. فإن كان موجوداً أجرى له عملية التشغيل .. وإلا أظهر للمستخدم رسالة ينبهه لعدم وجود البرنامج على جهازه - ويمكن أن تكون على هذا الشكل - :
البرنامج المراد تشغيله غير موجود في المسار المفترض .. برجاء التأكد من وجوده على الجهاز .. واختياره إن كان موجود عن طريق الضغط على زر استعراض .
بالطبع لابد من وضع زر استعراض وهو نفس الزر الذي قمنا به منذ قليل وكان اسمه (اختر البرنامج) .. وبنفس الكود أيضاً ... تمام ؟!!!
هل تريدين الإستطراد أكثر ؟ ..
لا بأس ففي هذا بعض الفائدة -إن شاء الله - ...
يمكنك إن قمت بوضع زر استعراض أن تقومي بتحديد اسم الملف الذي سيتم اختياره .. حتى لا يقوم المستخدم باختيار برنامج آخر غير المراد اختياره .
وأيضاً يمكن أن نحتفظ بالمسار الذي سيتم اختياره لقي يتعرف عليه البرنامج بعد ذلك ولا يضطر المستخدم كلما أراد تشغيل البرنامج أن يختار البرنامج عن طريق استعراض !!!! .

أظن فيما سبق كفاية .. وأتمنى أن يفيد .

أخيراً :
إذا صادفت أي مشاكل .. فلا تترددي في السؤال فنحن هنا في الخدمة .


تحياتي
أبو عبد الله عمر

مشكور اخي ابو عبدالله على ردك الطيب

انا قرات الشرح الجميل بس بعدني ما طبقت بطبقه وبرد عليك بالنتيجة ومشكور مره اخرى كفيت ووفيت وبارك الله لك في كل شيء

السلام عليكم ورحمة الله وبركاته
مرحبا اخواني كيفكم عساكم طيبين
اولا: ابو عبدالله
التطبيق على السؤال عن تشغيل الاوتلوك بعده ما رضى يشتغل معي؟ بحاول ارسلك الملف مع التوضيح لاحقا.

ثانيا:
اريد اعرف كيف اجعل تنسيق مشروعي يطلع بشكل رهيب وهل توجد برامج تساعدكم في تصميم وتنسيق برامجكم ولو عندكم نصائح ياريت لو تفيدوني فيها
بصراحة انا قرات كثير عن هذه المرحلة واعرف ان تنسيق يحتاجله شخص متخصص في الموضوع عشان الانترفيس مهم جدا للبرنامج وانا احاول اني انسق برامجي باستخدام الفوتوشوب لكي اعطي لمسات حلوة على البرنامج وجزاكم الله خيرا