المشاركات : 138
المواضيع 67
الإنتساب : Jul 2018
السمعة :
1
الشكر: 7
تم شكره 57 مرات في 40 مشاركات
Sub load_Glass()
'ListView1.Columns.Clear()
ListView1.Items.Clear()
ListView1.MultiSelect = False
ListView1.FullRowSelect = True
ListView1.GridLines = True
ListView1.Font = New Font("Times New Roman", 10, FontStyle.Regular)
ListView1.Columns.Clear()
ListView1.Columns.Add("كود الزجاج", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("الوصف", 250, HorizontalAlignment.Center)
ListView1.Columns.Add("الثمك", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("الفئة", 100, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.ShowGroups = True
SelectAll_stock_in_tbl_Glass()
Dim myrow As DataRow
For Each myrow In dt_stock_in_tbl_Glass.Rows
ListView1.Items.Add(myrow.Item(1).ToString, 4)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(9))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))
'ListView1.Text = ImageList1.Images.Count.ToString
Next
End Sub
Public dt_stock_in_tbl_Glass As New DataTable
Public Sub SelectAll_stock_in_tbl_Glass()
Dim da As New SqlDataAdapter
dt_stock_in_tbl_Glass.Clear()
da = New SqlDataAdapter("select * from tbl_Materials where Ref= '" & TextBox3.Text & "'", Con)
da.Fill(dt_stock_in_tbl_Glass)
End Sub
هذا كود تحميل من جدول الى عرض listview
يوجد textbox اريد ان ابحث بداخلة عن خانة معينة عند الحدث textchanged
المشاركات : 360
المواضيع 41
الإنتساب : Nov 2019
السمعة :
89
الشكر: 798
تم شكره 736 مرات في 325 مشاركات
(04-08-22, 11:28 AM)Lathe1 كتب : Sub load_Glass()
'ListView1.Columns.Clear()
ListView1.Items.Clear()
ListView1.MultiSelect = False
ListView1.FullRowSelect = True
ListView1.GridLines = True
ListView1.Font = New Font("Times New Roman", 10, FontStyle.Regular)
ListView1.Columns.Clear()
ListView1.Columns.Add("كود الزجاج", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("الوصف", 250, HorizontalAlignment.Center)
ListView1.Columns.Add("الثمك", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("الفئة", 100, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.ShowGroups = True
SelectAll_stock_in_tbl_Glass()
Dim myrow As DataRow
For Each myrow In dt_stock_in_tbl_Glass.Rows
ListView1.Items.Add(myrow.Item(1).ToString, 4)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(9))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))
'ListView1.Text = ImageList1.Images.Count.ToString
Next
End Sub
Public dt_stock_in_tbl_Glass As New DataTable
Public Sub SelectAll_stock_in_tbl_Glass()
Dim da As New SqlDataAdapter
dt_stock_in_tbl_Glass.Clear()
da = New SqlDataAdapter("select * from tbl_Materials where Ref= '" & TextBox3.Text & "'", Con)
da.Fill(dt_stock_in_tbl_Glass)
End Sub
هذا كود تحميل من جدول الى عرض listview
يوجد textbox اريد ان ابحث بداخلة عن خانة معينة عند الحدث textchanged
جرب ما يلي
PHP كود :
Private SrchParameter As String = "" Private NxtStrtRow As Integer = 0 Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown If e.KeyCode = Keys.F3 Then SearchListView() End If End Sub Private Sub SearchListView() ' selects the row containing data matching the text parameter ' sets NxtStrtRow (a form level variable) value for a "find next match" scenario (press F3 key) If ListView1.Items.Count > 0 Then If SrchParameter <> "" Then Dim thisRow As Integer = -1 For x As Integer = NxtStrtRow To ListView1.Items.Count - 1 ' each row For y As Integer = 0 To ListView1.Columns.Count - 1 ' each column If InStr(1, ListView1.Items(x).SubItems(y).Text.ToLower, SrchParameter.ToLower) > 0 Then thisRow = x NxtStrtRow = x + 1 Exit For End If Next If thisRow > -1 Then Exit For Next If thisRow = -1 Then MsgBox("Not found.") NxtStrtRow = 0 TextBox1.SelectAll() TextBox1.Select() Else ' select the row, ensure its visible and set focus into the listview ListView1.Items(thisRow).Selected = True ListView1.Items(thisRow).EnsureVisible() ListView1.Select() End If End If End If End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged If Not String.IsNullOrWhiteSpace(TextBox1.Text) Then SrchParameter = TextBox1.Text NxtStrtRow = 0 SearchListView() End If End Sub
المشاركات : 1,043
المواضيع 15
الإنتساب : May 2016
السمعة :
255
الشكر: 682
تم شكره 1913 مرات في 993 مشاركات
قم باستخدام هذا الكود فانه يقوم بتحديد كل ما يتشابه مع بدايه أي عنصر من القائمة
وكلما أضفت أحرف أكثر ضاق نطاق التحديد ..:
كود :
Private Sub SearchWord(strWord As String)
If ListView1.Items.Count <= 0 Then Exit Sub
If Trim(strWord) = "" Then
For i = 0 To ListView1.Items.Count - 1
ListView1.Items(i).Selected = False
Next
Exit Sub
End If
For i = 0 To ListView1.Items.Count - 1
If LCase(strWord) = LCase(Mid(ListView1.Items.Item(i).Text, 1, Len(strWord))) Then
ListView1.Items(i).Selected = True
Else
ListView1.Items(i).Selected = False
End If
Next
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
SearchWord(TextBox1.Text)
End Sub
أو استخدم هذا الكود للبحث عن أي عنصر يشابه بجزء منه ما تبحث عنه حتى لو لم يكن من البدايه ويحدده
وكلما أضفت أحرف أكثر ضاق نطاق التحديد ..:
كود :
Private Sub SearchWord2(strWord As String)
If ListView1.Items.Count <= 0 Then Exit Sub
If Trim(strWord) = "" Then
For i = 0 To ListView1.Items.Count - 1
ListView1.Items(i).Selected = False
Next
Exit Sub
End If
For i = 0 To ListView1.Items.Count - 1
For j = 1 To Len(ListView1.Items.Item(i).Text)
If LCase(strWord) = LCase(Mid(ListView1.Items.Item(i).Text, j, Len(strWord))) Then
ListView1.Items(i).Selected = True
Exit For
Else
ListView1.Items(i).Selected = False
End If
Next
Next
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
SearchWord2(TextBox1.Text)
End Sub
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
المشاركات : 138
المواضيع 67
الإنتساب : Jul 2018
السمعة :
1
الشكر: 7
تم شكره 57 مرات في 40 مشاركات
(04-08-22, 12:29 PM)asmarsou كتب : (04-08-22, 11:28 AM)Lathe1 كتب : Sub load_Glass()
'ListView1.Columns.Clear()
ListView1.Items.Clear()
ListView1.MultiSelect = False
ListView1.FullRowSelect = True
ListView1.GridLines = True
ListView1.Font = New Font("Times New Roman", 10, FontStyle.Regular)
ListView1.Columns.Clear()
ListView1.Columns.Add("كود الزجاج", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("الوصف", 250, HorizontalAlignment.Center)
ListView1.Columns.Add("الثمك", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("الفئة", 100, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.ShowGroups = True
SelectAll_stock_in_tbl_Glass()
Dim myrow As DataRow
For Each myrow In dt_stock_in_tbl_Glass.Rows
ListView1.Items.Add(myrow.Item(1).ToString, 4)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(9))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))
'ListView1.Text = ImageList1.Images.Count.ToString
Next
End Sub
Public dt_stock_in_tbl_Glass As New DataTable
Public Sub SelectAll_stock_in_tbl_Glass()
Dim da As New SqlDataAdapter
dt_stock_in_tbl_Glass.Clear()
da = New SqlDataAdapter("select * from tbl_Materials where Ref= '" & TextBox3.Text & "'", Con)
da.Fill(dt_stock_in_tbl_Glass)
End Sub
هذا كود تحميل من جدول الى عرض listview
يوجد textbox اريد ان ابحث بداخلة عن خانة معينة عند الحدث textchanged
جرب ما يلي
PHP كود :
Private SrchParameter As String = "" Private NxtStrtRow As Integer = 0 Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown If e.KeyCode = Keys.F3 Then SearchListView() End If End Sub Private Sub SearchListView() ' selects the row containing data matching the text parameter ' sets NxtStrtRow (a form level variable) value for a "find next match" scenario (press F3 key) If ListView1.Items.Count > 0 Then If SrchParameter <> "" Then Dim thisRow As Integer = -1 For x As Integer = NxtStrtRow To ListView1.Items.Count - 1 ' each row For y As Integer = 0 To ListView1.Columns.Count - 1 ' each column If InStr(1, ListView1.Items(x).SubItems(y).Text.ToLower, SrchParameter.ToLower) > 0 Then thisRow = x NxtStrtRow = x + 1 Exit For End If Next If thisRow > -1 Then Exit For Next If thisRow = -1 Then MsgBox("Not found.") NxtStrtRow = 0 TextBox1.SelectAll() TextBox1.Select() Else ' select the row, ensure its visible and set focus into the listview ListView1.Items(thisRow).Selected = True ListView1.Items(thisRow).EnsureVisible() ListView1.Select() End If End If End If End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged If Not String.IsNullOrWhiteSpace(TextBox1.Text) Then SrchParameter = TextBox1.Text NxtStrtRow = 0 SearchListView() End If End Sub
الكود لا يعمل
|