تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجعل MSFlexGrid لا يقبل كتابة الرموز داخله ويقبل فقط رمز @ ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
ملاحظة قبل السوال
في برنامجي المرفق يمكن الكتابة مباشرة داخل MSFlexGrid بدون إضافة Text !

السوال هنا
كيف اجعل MSFlexGrid لا يقبل كتابة الرموز داخله ويقبل فقط رمز @ ؟؟

ارجو من الله المساعده والله يحفظكم ويرعاكم ويجعل الجنه داركنم الاخير


الملفات المرفقة
.rar   Mrt.rar (الحجم : 2.03 ك ب / التحميلات : 62)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#2
.....

استخدم هذه الدالة مع النص قبل إدراجه في أي مكان سواء MSFlexGrid أو TextBox
المعامل الثالث mTrim اختياري لحذف المسافات من على جانبي النص

منقول


كود :
Public Function StringFilter(mString As String, mSymbols As String, Optional mTrim = False) As String
    Dim i As Integer: For i = 1 To Len(mString)
        If InStr(mSymbols, Mid$(mString, i, 1)) = 0 Then StringFilter = StringFilter & Mid$(mString, i, 1)
    Next i
    If mTrim Then StringFilter = Trim$(StringFilter)
End Function

طريقة الاستخدام
كود :
Private Sub Command1_Click()
    Dim filter As String
    filter = "~`!#$%^&*\/<>{}()[]|+-="
    
    Text2.Text = StringFilter(Text1.Text, filter, True)
    
End Sub

.....
الرد }}}
تم الشكر بواسطة:
#3
Question 
اخي العزيز
السلام عليكم ورحمة وبركاته
اخي كرم منك الرجاء التعديل على برنامجي المرفق ؟؟
والله العظيم حاولت التعديل على برنامجي المرفق ولم استطع
ملاحظة هامه
برنامجي المرفق يمكن الكتابة مباشره في MSFlexGrid بدون حاجة الى Text

والله يحفظكم ويرعاكم ويجعل الجنه داركم الاخير
تحياتي


الملفات المرفقة
.rar   Mrt.rar (الحجم : 2.03 ك ب / التحميلات : 61)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#4
.....

للتنبيه: قد تكون الرموز في المتغير filter ناقصة، وكما تلاحظ لا تحتوي الرمز @ لأنه مطلوب قبوله كما ذكرت في طلبك.

كود :
Private Sub fox_KeyPress(KeyAscii As Integer)
     With fox
    
        Dim filter As String
        filter = "~`!#$%^&*\/<>{}()[]|+-="
        If InStr(filter, Chr(KeyAscii)) > 0 Then
            KeyAscii = 0
            Exit Sub
        End If
          
        Select Case .Col
            Case 0, 1:
             .Text = .Text + Chr$(KeyAscii)
             Case 0, 2:
             .Text = .Text + Chr$(KeyAscii)
              Case 0, 3:
             .Text = .Text + Chr$(KeyAscii)
             Case 0, 4:
             .Text = .Text + Chr$(KeyAscii)
            Case Else:
        End Select
    End With

End Sub

.....
الرد }}}
تم الشكر بواسطة: Microformt
#5
هذا التعديل تفضل
اختكم الاصيله
الرد }}}
تم الشكر بواسطة: ابن دوعن , ابن دوعن
#6
Wink 
اخي العزيز vbnet
السلام عليكم ورحمة وبركاته
أود أن اعبر لكم عن خالص شكري وامتناني العميق للجهود المخلصة التي بذلتموها في تقم الدعم الفني واتضرع الى سبعانه أن يكفئكم على ما تقمون به من اعمال الخير
ولكم مني فائق الاحترام
تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#7
اقرأ هذا الموضوع للأستاذ الكبير/ناجى ابراهيم
يساعدك كثيييييرآ فى مثل هذه الأمور باذن الله

http://vb4arb.com/vb/Thread-%D9%82%D8%A8...8%A7%D8%AA
الرد }}}
تم الشكر بواسطة: ابن دوعن


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل تقرير برنامجي تكون السجلات ملونه مثل الذي في الصورة التأليه ؟ Microformt 0 276 29-10-23, 07:37 PM
آخر رد: Microformt
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
  [vb6.0] اظهار الرصيد السابق في اول صف في Msflexgrid جلال اليمني 5 432 26-09-23, 04:24 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 409 28-08-23, 07:19 PM
آخر رد: جلال اليمني
Information [vb6.0] كيف اجعل الارقم في التقرير باء الغه الانجليزية حتى لو كان نظام الارقام في الويندوز Microformt 0 180 16-08-23, 10:41 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل الصورة تتحرك تدريجياً الى منتصف الفورة من جهة اليمين ؟ Microformt 1 367 13-04-23, 04:57 PM
آخر رد: Taha Okla
Question [vb6.0] كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ Microformt 2 742 05-10-22, 08:53 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ Microformt 4 655 28-09-22, 04:54 PM
آخر رد: Microformt
  كيف اجعل الفورم الفرعي لا يختفي عند الضغط على الفورم الرئيسي مصمم هاوي 7 3,836 26-10-21, 12:51 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم