منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تلوين كلمة البحث
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
يا اخواني ارجو تلوين كلمة البحث في الملف المرفق مثلا :
محمد احمد سالم
محمد محمد حميد
عوض حميد محمد
احمد محمد ابراهيم
فتكون كلمة محمد في MSFlexGridا اينما كانت ملونة يا ليت تفيدوني
السلام عليكم

- لا أعلم إن كان هناك طريقة لتلوين جزء من محتوى خلية في أداة الفليكس قريد ولكن ما أعلمه أنه يمكنك تلوين محتوى الخلية كامل ، ولكن سأعطيك طريقة لنقل مثلاً بدل تلوين كلمة البحث تضع كلمة البحث بين قوسين ، يعني أي جزء من محتوى الخلية مطابق لكلمة البحث يتم وضع قوسين حوله ، سأعدل على الجزء الخاص بالإستعلام ولنفترض أن الحقل الخاص بالإسم هو 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

- تحياتي .
عدل الملف المرفق حسب الذي قلته
السلام عليكم

- حاضر ياسيدي أسويلك مثال , لكن عفوا أخي الكريم , وجدت أن الإستعلام في الأكسس لايدعم دالة الـ Replace لذلك , وضعت الدالة في اللووب .
- تحياتي .
والله حلو ما شاء الله عليك خلاص تمام
بس انفعني في حاجة واحدة
اريد ارسال محتويات الـ MSFlexGrid الى المفكرة الله يحفظك
اين انت يا حبيبي VB_Coder
السلام عليكم

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

كود :
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

- تحياتي .
انا لم يضبط معي ارجوك اعمله في الملف المرفق
السلام عليكم

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

- تحياتي .
ما شاء الله عليك يا استاذ VB_Coder وشكرا لك
بس يا ليت تعمل لي ProgressBar
لأن لدي مليون اسم لأجل اعرف هل جاري البحث ام لا ولم استطع ارفع لك الملف لأن حجمه 130 ميغا
الله يحفظك ولو تعبتك معي
الصفحات : 1 2