تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تلوين كلمة البحث
#1
يا اخواني ارجو تلوين كلمة البحث في الملف المرفق مثلا :
محمد احمد سالم
محمد محمد حميد
عوض حميد محمد
احمد محمد ابراهيم
فتكون كلمة محمد في MSFlexGridا اينما كانت ملونة يا ليت تفيدوني


الملفات المرفقة
.rar   aaaa.rar (الحجم : 253.25 ك ب / التحميلات : 59)
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- لا أعلم إن كان هناك طريقة لتلوين جزء من محتوى خلية في أداة الفليكس قريد ولكن ما أعلمه أنه يمكنك تلوين محتوى الخلية كامل ، ولكن سأعطيك طريقة لنقل مثلاً بدل تلوين كلمة البحث تضع كلمة البحث بين قوسين ، يعني أي جزء من محتوى الخلية مطابق لكلمة البحث يتم وضع قوسين حوله ، سأعدل على الجزء الخاص بالإستعلام ولنفترض أن الحقل الخاص بالإسم هو a وكلمة البحث ستكون في Text1 :

كود :
Set RsRe = Module1.db.OpenRecordset("select Replace(a," & Trim(Text1.Text) & ",'(" & Trim(Text1.Text) & ")') As a,b,c from d" & strLike, dbOpenDynaset)
Do Until RsRe.EOF
MSFlexGrid1.AddItem s & vbTab & RsRe!b & vbTab & RsRe!a & vbTab & RsRe!c
RsRe.MoveNext
Loop

- تحياتي .
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#3
عدل الملف المرفق حسب الذي قلته
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- حاضر ياسيدي أسويلك مثال , لكن عفوا أخي الكريم , وجدت أن الإستعلام في الأكسس لايدعم دالة الـ Replace لذلك , وضعت الدالة في اللووب .
- تحياتي .


الملفات المرفقة
.rar   aaaa-Fix.rar (الحجم : 193.33 ك ب / التحميلات : 82)
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#5
والله حلو ما شاء الله عليك خلاص تمام
بس انفعني في حاجة واحدة
اريد ارسال محتويات الـ MSFlexGrid الى المفكرة الله يحفظك
الرد }}}}
تم الشكر بواسطة:
#6
اين انت يا حبيبي VB_Coder
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم

- أهلا أخي الكريم ، إستخدم هذا الكود في تصدير محتوى الفليكس قريد إلى ملف نصي :

كود :
Private Sub Command1_Click()

Dim MaxLen(MSFlexGrid1.Cols - 1) As Integer
Dim I As Long
Dim N,F As Integer
Dim CurrentLine As String

For I = 0 To MSFlexGrid1.Rows - 1

For N = 0 To MSFlexGrid1.Cols - 1
IF Len(Trim(MSFlexGrid1.TextMatrix(I,N))) > MaxLen(N) Then
MaxLen(N) = Len(Trim(MSFlexGrid1.TextMatrix(I,N)))
End IF
Next

Next

F = FreeFil
Open App.Path & "\MSFlexGrid1.Txt" For Append As #F

For I = 0 To MSFlexGrid1.Rows - 1

CurrentLine = ""

For N = 0 To MSFlexGrid1.Cols - 1
IF Len(Trim(MSFlexGrid1.TextMatrix(I,N))) < MaxLen(N) Then
CurrentLine = CurrentLine & Trim(MSFlexGrid1.TextMatrix(I,N)) & Space(MaxLen(N) - Len(Trim(MSFlexGrid1.TextMatrix(I,N)))) & Space(5)
Else
CurrentLine = CurrentLine & Trim(MSFlexGrid1.TextMatrix(I,N)) & Space(5)
End IF
Next

Print #F , CurrentLine
DoEvents

Next

Close #F
DoEvents

MsgBox "تم التصدير بنجاح"

End Sub

- تحياتي .
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#8
انا لم يضبط معي ارجوك اعمله في الملف المرفق
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم

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

- تحياتي .


الملفات المرفقة
.rar   aaaa-Fix2.rar (الحجم : 193.7 ك ب / التحميلات : 67)
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#10
ما شاء الله عليك يا استاذ VB_Coder وشكرا لك
بس يا ليت تعمل لي ProgressBar
لأن لدي مليون اسم لأجل اعرف هل جاري البحث ام لا ولم استطع ارفع لك الملف لأن حجمه 130 ميغا
الله يحفظك ولو تعبتك معي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 87 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 203 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 1,042 29-12-15, 02:57 AM
آخر رد: awidan76
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 434 03-07-15, 05:54 PM
آخر رد: dlshad24
  [vb6.0] سوال حول البحث hadeel 6 567 02-02-15, 11:14 PM
آخر رد: مصطفى
  [vb6.0] سوال حول البحث عن الاسم الثلاثي او الرباعي hadeel 1 610 31-01-15, 08:21 PM
آخر رد: Amir_alzubidy
  ممكن حل مشكلة : البحث في قاعدة بيانات mysql في vb6 مكيد0 3 905 16-11-14, 02:04 PM
آخر رد: administrator
  [سؤال] البحث بكلمة من الجملة amrelgadaa 0 429 13-11-14, 11:22 AM
آخر رد: amrelgadaa
  افضل طرق البحث بـ ado derbaliammar 4 928 21-08-13, 01:18 PM
آخر رد: AGASHE
  اريد كود تغير كلمة في نص او جملة .. جديد 3 618 19-08-13, 09:01 PM
آخر رد: AGASHE

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


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