vb.net下拉框代码 vb下拉框添加选项代码

VB.NET判断当前下拉框是否能显示值

参考如下代码

创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都做网站、成都网站设计、重庆网络推广、成都小程序开发、重庆网络营销、重庆企业策划、重庆品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供重庆建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

1

2

$("select").val(); // 选中项目的value值

$("select option:checked").text(); // 选中项目的显示值

示例如下：

创建Html元素

1

2

3

4

5

6

7

8

请选择：

select id="sel"

option value="1"选项1/option

option value="2"选项2/option

option value="3"选项3/option

option value="4"选项4/option

/select

input type="button" value="点击查看被选项目"

编写jquery代码

1

2

3

4

5

6

7

$(function(){

$("input").click(function() {

a = $("#sel").val();

b = $("#sel option:checked").text();

alert("被选项目的值："+a+"，被选项目的显示值："+b+"。");

});

})

.net中怎么实现下拉框多选，然后获取选中的值

您可以选择使用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

希望能帮到您。

vb.net 怎么根据第一个下拉框的内容确定第二个下拉框的内容

Public Class Form1

Dim b(9)() As String

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim a(9) As String '这个数组用来存储第一个下拉框的全部值。

For i = 0 To 9

a(i) = i '赋值。

ReDim b(i)(9) '定义选择第一个下拉框的值时，第二个下拉框分别有十个值。

For j = 0 To 9

b(i)(j) = i '赋值。

Next

Next

ComboBox1.Items.AddRange(a)

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

ComboBox2.Items.Clear()

ComboBox2.Items.AddRange(b(ComboBox1.SelectedIndex))

End Sub

End Class

关于VB.net下拉框的问题

设置一个全局变量：

Public item As String

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

item = ComboBox1.SelectedItem.ToString()

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

ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（这个不可改内容的设定可以在建立ComboBox的时候就设定了）

ComboBox2.Items.Add(item) （加入内容，你或者也可以用别的，比如insert，这个可以加到指定的位置）

ComboBox2.SelectedItem = item （显示那个刚加进来的内容）

这样应该可以了，建议你多看MSDN。

在VB.net中如何将下拉列表中的内容传到文本框中

在下拉菜单的SelectionChangeCommitted事件中调用Button2_Click

Private Sub 选择列名ComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles 病情ComboBox.SelectionChangeCommitted

Button2_Click(sender, e)

End Sub

我不是很懂你的意思，如果你要用combox里的数据那就在and like之间加个

选择列名ComboBox.text

不就得了

Then str = str " and " 选择列名ComboBox.text " like '%" TextBox6.Text

vb.net中选中下拉框中的某一项，查询代码怎么写，急，请教vb高手！

是不是这样：

private

sub

form_load()

dim

r

as

string

open

"c:\1.txt"

for

input

as

#1

'假设你的文档是c:\1.txt

do

while

not

eof(1)

line

input

#1,r

combo1.additem

r

loop

close

#1

end

sub

如果这样，就直接用1.txt，但要注意的是你的1.txt要和你的程序放在同一文件夹中。