Question

我的应用程序将从文本框中取出的一个单词传递给子。我在一个包含很多行的两列动态数组中加载了一些单词。数组结构如下：

David, Peterson

Fred , Alba

...  , ,,,,

我想如果用户在文本框中键入例如David或Fred，则应用程序搜索数组并将其对应值发送给该函数。（在那个例子中，Peterson应该被发送而不是david）。否则只传递文本框文本。但我不知道如何搜索该数组。

Dim MyArray() As String
Dim thestring as string
Private Sub Command_Click()
if textbox1.text'was in myarray then
    thestring=  'its correspondent value in the array
    Theeventsub thestring

else
    Theeventsub textbox1.Text

ENDIF

End Sub

Answer 1

根据您的要求，我们必须声明一个包含2列和n行的二维数组。

Dim str_array(20, 2) As String ' array declaration

假设具有如下元素的数组，采用以下数组格式：

fred   alex
paul   fem
gigi   gigo
jakson john
jack   mike
rose   frank

让 textbox1 是搜索框， button1 是搜索按钮。下面的代码将为您提供相应的结果：

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 For i As Integer = 0 To ListBox1.Items.Count
 If str_array(i, 0) = TextBox1.Text Then
 MsgBox(str_array(i, 1))' gives the value as fem if the textbx1 having values paul
 ' replace the msgbox with function call
 ' if you need to pass value to anothe function
 End If
 Next
 End Sub

搜索两列动态数组

1 个答案: