Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
成都創(chuàng)新互聯(lián)公司擁有10多年成都網(wǎng)站建設(shè)工作經(jīng)驗,為各大企業(yè)提供做網(wǎng)站、成都網(wǎng)站設(shè)計服務(wù),對于網(wǎng)頁設(shè)計、PC網(wǎng)站建設(shè)(電腦版網(wǎng)站建設(shè))、重慶APP開發(fā)公司、wap網(wǎng)站建設(shè)(手機(jī)版網(wǎng)站建設(shè))、程序開發(fā)、網(wǎng)站優(yōu)化(SEO優(yōu)化)、微網(wǎng)站、國際域名空間等,憑借多年來在互聯(lián)網(wǎng)的打拼,我們在互聯(lián)網(wǎng)網(wǎng)站建設(shè)行業(yè)積累了很多網(wǎng)站制作、網(wǎng)站設(shè)計、網(wǎng)絡(luò)營銷經(jīng)驗,集策劃、開發(fā)、設(shè)計、營銷、管理等網(wǎng)站化運作于一體,具備承接各種規(guī)模類型的網(wǎng)站建設(shè)項目的能力。
If Text1.Text = "1" Then Combo1.Text = "增加"
If Text1.Text = "2" Then Combo1.Text = "修改"
If Text1.Text = "3" Then Combo1.Text = "刪除"
End Sub
那同樣可以關(guān)聯(lián),和這個思路反過來,只是事件不是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索引,來確定你二維數(shù)組的值
n = Combobox1.Items.SelectIndex
GetLength(1) 是得到你二維數(shù)組的長度
for i = 0 to aTemp.GetLength(1)
if aTemp(n,i) "" then
Combobox2.Items.Insert aTemp(n,i)
end if
next
這里有個JS的能實現(xiàn)你的功能,你下載那個JS,按照說明做就行了。
另一種方法是把所有的省市區(qū)保存到數(shù)據(jù)庫里,打開網(wǎng)頁的時候把省查出來并顯示,選擇省的時候更改關(guān)聯(lián)的市 區(qū)。當(dāng)然這也有兩種方法,一種用ajax,另一種則是在打開網(wǎng)頁的時候全查出來生成JS代碼,然后改變,各有優(yōu)劣,自己看著辦吧。
如果用上面那個JS的話,數(shù)據(jù)庫里保存的省市區(qū)是以漢字保存的,還有是因為是JS代碼,維護(hù)起來有點麻煩,不過省市區(qū)這些東西,基本上固定的;而用數(shù)據(jù)庫的話,則可以省市區(qū)可以以代碼的開式保存在數(shù)據(jù)庫里(如北京可以用1,天津2這樣的形式)維護(hù)起來相對容易。還是那句自己看著辦吧
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 '這個數(shù)組用來存儲第一個下拉框的全部值。
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
啥叫“下拉菜單”?到底是要做菜單,還是做下拉列表?!
如果是做菜單,那就直接設(shè)置好一、二級菜單;
如果是下拉列表,那就在一級列表的click事件中,根據(jù)選擇的項目,動態(tài)設(shè)置二級列表的內(nèi)容就行了。
設(shè)置一個全局變量:
Public item As String
然后在第一個窗口那里?。?/p>
item = ComboBox1.SelectedItem.ToString()
然后加到第二個窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(這個不可改內(nèi)容的設(shè)定可以在建立ComboBox的時候就設(shè)定了)
ComboBox2.Items.Add(item) (加入內(nèi)容,你或者也可以用別的,比如insert,這個可以加到指定的位置)
ComboBox2.SelectedItem = item (顯示那個剛加進(jìn)來的內(nèi)容)
這樣應(yīng)該可以了,建議你多看MSDN。