+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid. (/showthread.php?tid=3506)
فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid. - king2512010 - 18-07-14
السلام عليكم ورحمة الله وبركاته
اخوانى الاعزاء
فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid.
مرفق مثال آمل التعديل عليه
وكل عام وانتم بخير
تقبل الله منكم صيامكم وقيامكم
رمضان كريم
RE: فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid. - king2512010 - 18-07-14
ده الكود المستخدم للبحث
PHP كود :
Private Sub cmdSearch_Click()
Dim target_name As String
Dim r As Integer
' Get the name.
target_name = InputBox("Name", "Name", "")
If Len(target_name) = 0 Then Exit Sub
' Search for the name, skipping the column heading row.
target_name = LCase$(target_name)
For r = 1 To Grid.Rows - 1
If LCase$(Grid.TextMatrix(r, 0)) = _
target_name Then
' We found the target. Select this row.
Grid.Row = r
Grid.RowSel = r
Grid.Col = 0
Grid.ColSel = Grid.Cols - 1
' Make the row visible.
Grid.TopRow = r
Exit Sub
End If
Next r
' We didn't find it.
Beep
End Sub
لا ادرى اين المشكلة !!!!!!!!!
RE: فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid. - king2512010 - 18-07-14
وده كود تانى لم يفلح ايضا معى
PHP كود :
Private Sub Command4_Click()
With Grid
Dim row As Integer: For row = 1 To .Rows - 1
If InStr(.TextMatrix(row, 1), Me.Text7.Text) > 0 Then
.FocusRect = flexFocusNone
.SelectionMode = flexSelectionByRow
.row = row
.Col = .Cols - 1
.ColSel = 1
.TopRow = IIf(row > 1, row - 1, row)
Exit For
End If
Next
End With
End Sub
ارجو المساعدة ... شاكرا مقدما
RE: فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid. - king2512010 - 18-07-14
البحث عن طريق الادارات .....
RE: فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid. - علاء الدين - 18-07-14
Private Sub Text1_Change()
Text1.BackColor = vbWhite
Dim ft
On Error GoTo 11:
prevbookmark = Adodc1.Recordset.Bookmark
ft = Text1.Text
If ft = "" Then
Adodc1.Recordset.Filter = adFilterNone
Else
Adodc1.Recordset.Filter = " country_name like '" & ft & "%'"
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.Bookmark = prevbookmark
End If
End If
Exit Sub
11:
Adodc1.Recordset.Filter = adFilterNone
Text1.BackColor = vbYellow
End Sub
حسب علمي تريد عمل بحث في التكست بوكس من اول حروف وظهور الجمل في قامة اللست
RE: فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid. - abulayth - 18-07-14
بارك الله فيك
يعطيك العافية