锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术属性

vb.net中怎么向excel表中添加个复选框点击“开始”-“Excel选项”vb.net下拉多选框，在“基本设置”选项卡中勾选右侧vb.net下拉多选框的“在功能区上显示‘开发工具’”vb.net下拉多选框 ， 使其显示出来 。
切换到“开发工具”功能区vb.net下拉多选框，点击插入”下拉列表框 ， 在弹出的列表中选择“复选框（ActiveX控件）” 。
然后在文档区域拖动以绘制一个复选框 。并在该复选框上右键单击，在弹出的菜单中选择“属性”以打开“属性对话框” 。
在打开的“属性对话框”中将“Caption”设置为空，”BackStyle“设置为透明，边框效果设置为0类型 ， 完成后关闭”属性对话框“ 。
关于VB.net下拉框的问题设置一个全局变量：
Public item As String
然后在第一个窗口那里?。?
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里：
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（这个不可改内容的设定可以在建立ComboBox的时候就设定了）
ComboBox2.Items.Add(item)（加入内容，你或者也可以用别的 ， 比如insert，这个可以加到指定的位置）
ComboBox2.SelectedItem = item （显示那个刚加进来的内容）
这样应该可以了，建议你多看MSDN 。
.net中怎么实现下拉框多?。?然后获取选中的值您可以选择使用CheckListBox控件 。CheckListBox支持多选 。
由于不清楚您用什么语言，所以我写了VB.net 、C#.net
vb.net Code
' Determine if there are any items checked.
If CheckedListBox1.CheckedItems.Count0 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).ToStringControlChars.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中如何实现下拉多选框下拉框本来就是为了单选存在的……
你弄成下拉框的样子，又要多选 ， 那么多选后你如何显示出来你的选择呢？
如果你硬要这样，只能自己写自定义控件了！
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))

推荐阅读


上一篇：mysql5.5源码包安装的简单介绍

下一篇：斗鱼直播george，斗鱼直播间