Question

我有一个包含固定数量项目的保管箱，定义为：

＆＃34; A ---项目1＆＃34;

＆＃34; B ---第2项＆＃34;

＆＃34; C ---第3项＆＃34;

从程序的其他地方我得到一个字符串，其中包含项目的第一个字母。例如乙当带有dropbox的表单加载时，我想预先选择带有该字母的索引。

我想过使用InStr，但它似乎没有用。

With Frm
Dim TmpStr as String = String.Empty
TmpStr = Str.InStr(0,1)

Select Case TmpStr
 Case "A"
   cbox.SelectedValue = 0
 Case "B"
   cbox.SelectedValue = 1
 Case "C"
   cbox.SelectedValue = 2
End Case
End With

Answer 1

要获取角色，您可以使用TmpStr = Str.Substring(0,1)以字符串格式获取单个字符，或使用TmpStr = Str.First()将第一个字母作为字符类型返回。

然后，如我的评论中所述，在您的选择中，将Combobox的SelectedIndex属性设置为相应的索引。

注意：您还需要将End Case更改为End Select

Answer 2

而不是硬编码的Select Case，请使用For Loop来查找匹配项：

Dim Str As String = "B"
With Frm
    For i As Integer = 0 To cbox.Items.Count - 1
        If cbox.Items(i).ToString.ToUpper.StartsWith(Str.ToUpper) Then
            cbox.SelectedIndex = i
            Exit For
        End If
    Next
End With

根据预定义的字符串选择Dropbox index

2 个答案: