来自字符串的绑定资源的名称

Question

我该怎么做？可能吗？

Dim i As String 

Dim ps() As String = {"p3", "p4", "p5", "p6", "p7", "p8", "p9", "p10", "p11"} 
For Each p In ps 
    i = "BS_" & p 
    Dim i As New BindingSource 
Next 

Answer 1

我有9 comboboxs P3，P4，P5 ..... 和每个我有这样的代码：

bs_p3.DataSource = ds_pom 
      bs_p3.DataMember = "P3" 
      RemoveHandler p3_f.SelectedIndexChanged, AddressOf roletka_EditValueChanged 
      p3_f.DataSource = bs_p3 
      p3_f.ValueMember = "volba" 
      p3_f.DisplayMember = "volba" 
      p3_f.GroupMember = "skup" 
      p3_f.SelectedValue = p3 
      AddHandler p3_f.SelectedIndexChanged, AddressOf roletka_EditValueChanged 

我要创建函数，其中我把组合框和功能鉴定 为此组合框创建绑定并将其连接到组合框。

像这样：

function pripoj_combo(p as string) as integer 
dim "bs_" & p as new bindingsource 
"bs_" & p.DataSource = ds_pom 
"bs_" & p.DataMember = p 
.... 
end function