none
請問如何將combobox1的items 加入到 combobox2 RRS feed

  • 問題

  • 例如下面程式 combobox4 裡加入了11樣項目

    我想在combobox5 也加入同樣11樣項目 有比較簡單的方式加入嗎

    還是一樣要這樣打11條程式碼呢

      ComboBox4.Items.Add(kl & "級 " & (System.Text.Encoding.Default.GetString(sk).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl1 & "級 " & (System.Text.Encoding.Default.GetString(sk1).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl2 & "級 " & (System.Text.Encoding.Default.GetString(sk2).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl3 & "級 " & (System.Text.Encoding.Default.GetString(sk3).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl4 & "級 " & (System.Text.Encoding.Default.GetString(sk4).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl5 & "級 " & (System.Text.Encoding.Default.GetString(sk5).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl6 & "級 " & (System.Text.Encoding.Default.GetString(sk6).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl7 & "級 " & (System.Text.Encoding.Default.GetString(sk7).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl8 & "級 " & (System.Text.Encoding.Default.GetString(sk8).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl9 & "級 " & (System.Text.Encoding.Default.GetString(sk9).Split(Chr(0))(0)))
            ComboBox4.Items.Add(kl10 & "級 " & (System.Text.Encoding.Default.GetString(sk10).Split(Chr(0))(0)))

    2014年11月2日 上午 11:20

解答

  • 你可以用迴圈......

    強力監督SQL Injection問題!!

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    • 已標示為解答 有夢最美 2014年11月2日 下午 02:39
    2014年11月2日 上午 11:48
    版主

所有回覆

  • 你可以用迴圈......

    強力監督SQL Injection問題!!

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    • 已標示為解答 有夢最美 2014年11月2日 下午 02:39
    2014年11月2日 上午 11:48
    版主
  • 程式碼供參考:

    '方式一:小朱前輩回答的迴圈: ComboBox5.Items.Clear() For Each obj In ComboBox4.Items() ComboBox5.Items.Add(obj) Next '方式二:另一種較不常用的方式: Dim objs(ComboBox4.Items.Count - 1) As Object ComboBox4.Items.CopyTo(objs, 0) ComboBox5.Items.Clear() ComboBox5.Items.AddRange(objs)

    方式二有條件, 如果 ComboBox4 還沒有任何項目的話會出錯, 要先判斷 .Items.Count >= 1.

    所以還是用迴圈吧...


    • 已編輯 Ader.Chen 2014年11月2日 下午 02:00 方式二要先判斷 .Items.Count >= 1
    2014年11月2日 下午 01:53
  • 謝謝

    真是幫了大忙了

    因為有很多選項要這樣做

    可以讓程式小一點

    也不會那麼亂

    2014年11月2日 下午 02:41