大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
成都创新互联公司拥有10多年成都网站建设工作经验,为各大企业提供做网站、成都网站设计服务,对于网页设计、PC网站建设(电脑版网站建设)、重庆APP开发公司、wap网站建设(手机版网站建设)、程序开发、网站优化(SEO优化)、微网站、国际域名空间等,凭借多年来在互联网的打拼,我们在互联网网站建设行业积累了很多网站制作、网站设计、网络营销经验,集策划、开发、设计、营销、管理等网站化运作于一体,具备承接各种规模类型的网站建设项目的能力。
If Text1.Text = "1" Then Combo1.Text = "增加"
If Text1.Text = "2" Then Combo1.Text = "修改"
If Text1.Text = "3" Then Combo1.Text = "删除"
End Sub
那同样可以关联,和这个思路反过来,只是事件不是KeyUp,而是combo的change过程
Private Sub Combo1_Change()
select case combo1.text
case "增加"
text1.text=1
case "修改"
text1.text=2
case "删除"
text1.text=3
case else
text1.text=""
end select
End Sub
删除所有列表项目
combobox2.Clear
增加新项目,n为你选中第一个Combobox索引,来确定你二维数组的值
n = Combobox1.Items.SelectIndex
GetLength(1) 是得到你二维数组的长度
for i = 0 to aTemp.GetLength(1)
if aTemp(n,i) "" then
Combobox2.Items.Insert aTemp(n,i)
end if
next
这里有个JS的能实现你的功能,你下载那个JS,按照说明做就行了。
另一种方法是把所有的省市区保存到数据库里,打开网页的时候把省查出来并显示,选择省的时候更改关联的市 区。当然这也有两种方法,一种用ajax,另一种则是在打开网页的时候全查出来生成JS代码,然后改变,各有优劣,自己看着办吧。
如果用上面那个JS的话,数据库里保存的省市区是以汉字保存的,还有是因为是JS代码,维护起来有点麻烦,不过省市区这些东西,基本上固定的;而用数据库的话,则可以省市区可以以代码的开式保存在数据库里(如北京可以用1,天津2这样的形式)维护起来相对容易。还是那句自己看着办吧
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
啥叫“下拉菜单”?到底是要做菜单,还是做下拉列表?!
如果是做菜单,那就直接设置好一、二级菜单;
如果是下拉列表,那就在一级列表的click事件中,根据选择的项目,动态设置二级列表的内容就行了。
设置一个全局变量:
Public item As String
然后在第一个窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(这个不可改内容的设定可以在建立ComboBox的时候就设定了)
ComboBox2.Items.Add(item) (加入内容,你或者也可以用别的,比如insert,这个可以加到指定的位置)
ComboBox2.SelectedItem = item (显示那个刚加进来的内容)
这样应该可以了,建议你多看MSDN。