منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تلوين كلمة البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : تلوين كلمة البحث (/showthread.php?tid=10180)

الصفحات: 1 2


تلوين كلمة البحث - sameerhesen - 22-08-13

يا اخواني ارجو تلوين كلمة البحث في الملف المرفق مثلا :
محمد احمد سالم
محمد محمد حميد
عوض حميد محمد
احمد محمد ابراهيم
فتكون كلمة محمد في MSFlexGridا اينما كانت ملونة يا ليت تفيدوني


تلوين كلمة البحث - VB_Coder - 22-08-13

السلام عليكم

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

- تحياتي .


تلوين كلمة البحث - sameerhesen - 22-08-13

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


تلوين كلمة البحث - VB_Coder - 22-08-13

السلام عليكم

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


تلوين كلمة البحث - sameerhesen - 22-08-13

والله حلو ما شاء الله عليك خلاص تمام
بس انفعني في حاجة واحدة
اريد ارسال محتويات الـ MSFlexGrid الى المفكرة الله يحفظك


تلوين كلمة البحث - sameerhesen - 23-08-13

اين انت يا حبيبي VB_Coder


تلوين كلمة البحث - VB_Coder - 23-08-13

السلام عليكم

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

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

- تحياتي .


تلوين كلمة البحث - sameerhesen - 24-08-13

انا لم يضبط معي ارجوك اعمله في الملف المرفق


تلوين كلمة البحث - VB_Coder - 24-08-13

السلام عليكم

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

- تحياتي .


تلوين كلمة البحث - sameerhesen - 24-08-13

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