關于VB.net下拉框的問題

設置一個全局變量：

創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比佳縣網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式佳縣網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們，業(yè)務覆蓋佳縣地區(qū)。費用合理售后完善，十載實體公司更值得信賴。

Public item As String

然后在第一個窗口那里取：

item = ComboBox1.SelectedItem.ToString()

然后加到第二個窗口那里：

ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（這個不可改內容的設定可以在建立ComboBox的時候就設定了）

ComboBox2.Items.Add(item) （加入內容，你或者也可以用別的，比如insert，這個可以加到指定的位置）

ComboBox2.SelectedItem = item （顯示那個剛加進來的內容）

這樣應該可以了，建議你多看MSDN。

如何設置VB中下拉菜單有多個選擇？

Private Sub Combo1_Change()

q = Combo1.Text

End Sub

Private Sub Command1_Click()

If Combo1.Text = "xsh" And Text1.Text = "123456" Then

Form2.Show

Form1.Hide

ElseIf Combo1.Text = "hhr" And Text1.Text = "12345" Then

Form2.Show

Form1.Hide

ElseIf Combo1.Text = "smt" And Text1.Text = "1234" Then

Form2.Show

Form1.Hide

Else

MsgBox "密碼錯誤或賬號錯誤，請重新輸入!"

End If

End Sub

.net中怎么實現(xiàn)下拉框多選，然后獲取選中的值

您可以選擇使用CheckListBox控件。CheckListBox支持多選。

由于不清楚您用什么語言，所以我寫了VB.net?、C#.net

vb.net?Code

'?Determine?if?there?are?any?items?checked.

If?CheckedListBox1.CheckedItems.Count??0?Then

'?If?so,?loop?through?all?checked?items?and?print?results.

Dim?x?As?Integer

Dim?s?As?String?=?""

For?x?=?0?To?CheckedListBox1.CheckedItems.Count?-?1

s?=?s??"Checked?Item?"??(x?+?1).ToString??"?=?"??CheckedListBox1.CheckedItems(x).ToString??ControlChars.CrLf

Next?x

MessageBox.Show(s)

End?If

C#.net?Code

//?Determine?if?there?are?any?items?checked.

if(checkedListBox1.CheckedItems.Count?!=?0)

{

//?If?so,?loop?through?all?checked?items?and?print?results.

string?s?=?"";

for(int?x?=?0;?x?=?checkedListBox1.CheckedItems.Count?-?1?;?x++)

{

s?=?s?+?"Checked?Item?"?+?(x+1).ToString()?+?"?=?"?+?checkedListBox1.CheckedItems[x].ToString()?+?"\n";

}

MessageBox.Show?(s);

}

vb.net?Code

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?selectstr?As?String?=?""

For?i?As?Integer?=?0?To?Me.CheckedListBox1.Items.Count?-?1

If?Me.CheckedListBox1.GetItemChecked(i)?Then

selectstr?=?Me.CheckedListBox1.Items(i).ToString

End?If

Next

MsgBox(selectstr)

End?Sub

希望能幫到您。