السلام عليكم ورحمة الله وبركاته
اريد عند فتح الفورم يكون مكتوب بداخل حقل التكست
مثل هذا الشكل
وعند بداية تعبئة الحقل بالارقام لا اريد أن تنمسح هذه العلامة - من الحقل
اريد عند تعبئته بالارقام تنضاف الارقام مع وجود هذه العلامة -
ما هو الكود المناسب بارك الله فيكم
وشكراً
تم تعديل هذه المشاركة بواسطة جواد في 1 فبراير 2012 في 12:29
هل يوجد حل بارك الله فيكم
السلام عليكم...
استعمل المكون Microsoft Masked Edit Control مع ضبط الخاصية Mask على:
##-##-##-##
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
شكراً أخي najy_zl
هذه الاداة استخدمتها ولكن جننتني لما احفظها بقاعدة بيانات اكسس
تنحفظ وبعدين لما استدعيها تجي ناقة صفر او ناقصر رقم او رقمين
يعني مثلاً
انا حفظتها بهذا الشكل
0120-0965
ولما استدعيها تجي بهذا الشكل
965-012
تجي مخربطة وغير مزبوطة وليس كما حفظتها
فلذالك انا لجأت للطريقة التي وضعتها تعتبر افضل
جواد كتب:شكراً أخي najy_zl
هذه الاداة استخدمتها ولكن جننتني لما احفظها بقاعدة بيانات اكسس
تنحفظ وبعدين لما استدعيها تجي ناقة صفر او ناقصر رقم او رقمين
يعني مثلاً
انا حفظتها بهذا الشكل
0120-0965
ولما استدعيها تجي بهذا الشكل
965-012
تجي مخربطة وغير مزبوطة وليس كما حفظتها
فلذالك انا لجأت للطريقة التي وضعتها تعتبر افضل
لماذا لا تقوم بوضع أكثر من Text ومن ثم زر يضع الناتج في المربع نص الثالث كما في المرفق
رجعت ومازال الفريق خاملاَ :(
لا اخي bahbah ما بصير انا اريدها بالطرقة التي وضعتها بكون افضل بالنسبة لي بكثير
الا يوجد حل اخواني لهذه المشكلة
هل تريد الكود ام تريد مساعدة في كتابة الكود ؟؟!
اذا كنت تريد مساعدة في كتابة الكود فسأقدمها لك ,,
لاداة الـ TextBox حدث يسمى KeyPress وينشط عند الكتابة في الـ Text
هذا هو الحدث الذي يجب ان تستخدمه حيث ان هذا الحدث يحتوى بارامتر KeyAscii وهو البارامتر الذي يحمل رقم الحرف الذي نضغط عليه
وهذا الحدث ينشط عند الضغط على الزر وقبل الكتابة , فبوضع القيمة 0 لهذا البارامتر نلغى الزر المضغوط فلا يتم كتابة شئ داخل الـ Text كالاتي :
Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub
وهذا البارامتر يحمل رقم الحرف وليس الحرف, ولمعرفة الحرف المكتوب نستخدم الـ Function : Chr كالاتي :
MsgBox Chr(KeyAscii)
إذاً بإمكاننا ان نعرف الحرف المضغوط ونلغي كتابته في نفس الوقت
وهذا ما سنفعله لننا لا نريده ان يمسح العلامة "-" وايضاً لا نريده ان يكتب اكثر من حرفين (مثلاً)
لذلك سنعرف الحرف المضغوط ونلغي كتابته ثم ننظر إذا كان الحرف المراد كتابته مصرح به للكتابة في مكان المؤشر نكتبه من خلال الكود وكأن المستخد هو من كتبه, وان لم يكن لا نكتبه.
إذاً فكيف نعرف في اي موضع يقف المؤشر في الـ Text ؟
هذا يكون من خلال الخاصية Text1.SelStart
ونستطيع معرفة او تحديد عدد حروف التحديد من خلال الخاصية Text1.SelLength
ويمكننا استخدام هذه الخصائص لتحديد نص معين وإستبداله, فمثلاً لإستبدال اول حرفين برقم 12 نكتب الكود :
Text1.SelStart = 0 Text1.SelLength = 2 Text1.SelText = "12"
ومعنى هذا الكود:
1- نضع بداية التحديد من المكان 0 (اي في البداية)
2- نجعل حجم التحديد حرفين
3- نستبدل نص التحديد بالنص "12"
هذا ما تحتاجه إن كنت تريد المساعدة في كتابة كودك
حاول وان وقفت في شئ نحن معك ...
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
اخي العزيز محمد مصطفي غريب ممكن تضعها بفورم لاني ما فهمتها
وبعدها ما تضعها بفورم سوف اجربها واخبرك ما النتيجة
شكرا لك وبارك الله فيك
في المرفقات مثال لما يمكنك عمله بحدث الـ KeyPress , انا ارشدتك للطريق وانت يجب عليك كمبرمج ان تسلك طريقك بنفسك وإذا قابلتك عقبة فنحن هنا لنساعد
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
السلام عليكم...
بناءً على سؤال الأخ جواد قمت بتصميم أداة تحرير (Edit Control) متعددة الخانات، و أرجو أن تكون مفيدة.
تجد الأداة مرفقة في موضوع: أداة تحرير متعددة الخانات.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
الله يعطيك العافية ويسلمو ايديك أخي najy_zl
أخي najy_zl ممكن مثال على الأداة
والف شكر لك
ما قصرت
تم تعديل هذه المشاركة بواسطة جواد في 8 فبراير 2012 في 13:39