Imports Ultra_file.Form1
Public Class frmSearch
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
If cmbField.SelectedIndex < 0 Then
MsgBox("Selezionare un campo per la ricerca!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each L As ListViewItem In Form1.lstFile.Items
L.ForeColor = Color.Black
L.Font = New Font(L.Font, FontStyle.Regular)
Application.DoEvents()
Next
For Each L As ListViewItem In Form1.lstFile.Items
If L.SubItems(cmbField.SelectedIndex).Text.ToLower.Contains(txtName.Text.ToLower) Then
L.ForeColor = Color.Red
L.Font = New Font(L.Font, FontStyle.Bold Or FontStyle.Underline)
End If
Next
End Sub
Private Sub frmSearch_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
For Each L As ListViewItem In Form1.lstFile.Items
L.ForeColor = Color.Black
L.Font = New Font(L.Font, FontStyle.Regular)
Application.DoEvents()
Next
End Sub
Private Sub frmSearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each S As String() In FieldTable
cmbField.Items.Add(S(0))
Next
End Sub
End Class