文字列のバインディングソースの名前

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 

を このコンボボックスのbindingsouceを作成し、コンボボックスに接続します。

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