asked on
Public Class CompanySearch
Public Function Search(ByVal searchText As String) As CompanyName
Dim companySearchList As New CompanyNameCollection(searchText, False)
If companySearchList.Count = 1 Then
Dim company As CompanyName = companySearchList.Item(0)
Return company
Else
Using CompanySearchForm = New CompanySearch()
With CompanySearchForm
.SearchTextBox.Text = searchText
.SearchResultDataGridView.DataSource = companySearchList
.ShowDialog()
End With
Dim company As CompanyName = companySearchList.Item(0)
Return company
End Using
End If
End Function
End Class
Dim company As New CompanyName
company = CompanySearch.Search(CompanyNameTextBox.Text)