Et kombinationsboks kontrol udelader behovet for at have en tekstboks og en liste kontrol i dit Visual Basic projekt. En kombinationsboks viser en tekstboks kombineret med en liste kontrol, hvilket giver brugeren mulighed for at indtaste et element eller vælge et element på listen. De elementer Ejendommen giver dig fleksibilitet til at manipulere elementer i kombinationsboksen kontrol. Brug en kombinationsboks kontrol til at give brugeren en liste over elementer til at vælge fra , og derefter bruge det valgte element til at træffe beslutninger i andre områder af dit projekt. Instruktioner
1
Launch Microsoft Visual Basic Express , klik på " Nyt projekt ... " fra venstre rude af din computerskærm , og vælg "Windows Forms Application ". Klik på "OK".
2
Dobbeltklik på " ComboBox " fra " Toolbox" ruden for at tilføje en ny kombinationsboks kontrol til Form . Dobbeltklik på " Button " for at tilføje en ny knap . Tilføj yderligere to knapper ved hjælp af samme teknik .
3
Dobbeltklik på " Button1 " for at åbne " Form1.vb "-modulet . Indtast følgende under " Button1_Click " for at føje elementer til din combo box : Hej
Me.ComboBox1.Items.Add ( "Data Item" )
Me.ComboBox1.Items.Add ( "Data Item " )
Me.ComboBox1.Items.Add ( " Data Item " )
Me.ComboBox1.Items.Add ( " Data Item " )
Me.ComboBox1 . Items.Add ( "Data Item" )
Me.ComboBox1.Items.Add ( "Data Item" )
4
Klik på " Form1.vb [ Design ] " og dobbeltklik - klik på " button2 " for at føje kode til sin klik begivenheden . Indtast følgende kode til at slette dubletter i kombinationsboksen : Hej
Dim xCnt As Integer
Dim yCnt As Integer
xCnt = 0 Til Me.ComboBox1.Items . Count - 2
yCnt = Me.ComboBox1.Items.Count - 1 Til xCnt + 1 Step -1
p Hvis Me.ComboBox1.Items ( xCnt ) ToString = Me.ComboBox1 . . Items ( yCnt ) . ToString Så
Me.ComboBox1.Items.RemoveAt ( yCnt )
End If
Next
Næste
< br > 5
Klik på " Form1.vb [ Design ] " og dobbeltklik på " button3 " for at føje kode til sin klik begivenheden . Indtast følgende kode til at rydde alle elementer fra kombinationsboksen : Hej
Me.ComboBox1.Items.Clear ()
6
Klik på " Form1.vb [ Design ] " og dobbeltklik på kombinationsboksen eksekvere kode når det valgte element ændres. Indtast følgende kode til at vise det valgte element gennem en besked boks : Hej
MsgBox ( " Du valgte : " & Me.ComboBox1.Text.Trim )
7
Tryk på " F5 " at køre dit program og klik på " Button1 " for at tilføje punkter til din kombinationsboks. Klik på " button2 " for at fjerne duplikerede emne. Klik på " button3 " for at fjerne alle de poster i kombinationsboksen .