Current location - Plastic Surgery and Aesthetics Network - Plastic surgery and medical aesthetics - How to use VB6.0 to realize the drop-down box of searching by region?
How to use VB6.0 to realize the drop-down box of searching by region?
For a simple example, the form has two drop-down boxes, and the code is as follows:

Private Subgroup 1_Click ()

Combination 2. clear

Select case combination 1. List index

Case 0

Combination 2. AddItem "Nanjing"

Combination 2. AddItem "Xuzhou"

Case 1

Combination 2. AddItem "Hefei"

Combination 2. AddItem "Chuzhou"

End selection

Combination 2. ListIndex = 0

End joint

Private Sub-Form _Load ()

Combo 1。 AddItem "Jiangsu"

Combo 1。 AddItem "Anhui"

Combo 1。 ListIndex = 0

End joint