DDLTitle.Items.Insert(1, "5%")
DDLTitle.Items.Insert(2, "10%")
DDLTitle.Items.Insert(3, "15%")
DDLTitle.Items.Insert(4, "20%")
Dim TitleListItem As ListItem
‘’StrDDLTitle是下拉框中需要显示的内容
For Each TitleListItem In DDLTitle.Items ‘’遍历下拉框中所有的选项
If TitleListItem.Value = StrDDLTitle Then
TitleListItem.Selected = True
txtTitle.Text = TitleListItem.Text
End If
Next
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/










