? En kombinationsruta kontroll utelämnar behovet av att ha en textruta och en listruta kontroll i Visual Basic-projekt . En kombinationsruta visas en textruta i kombination med en listruta kontroll , vilket ger användaren möjlighet att ange ett alternativ eller markera ett objekt i listan . Föremålen Fastigheten ger dig flexibiliteten att manipulera objekt i kombinationsrutan kontroll . Använd en kontroll kombinationsrutan för att ge användaren en lista över objekt att välja bland och sedan använda det valda objektet för att fatta beslut i andra delar av ditt projekt . Instruktioner
1
Launch Microsoft Visual Basic Express , klicka på " Nytt projekt ... " från den vänstra rutan på datorskärmen och välj " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " ComboBox " från " Toolbox " rutan för att lägga till en ny kontroll kombinationsrutan i formuläret. Dubbelklicka på " knappen " för att lägga till en ny knapp . Lägg två ytterligare knappar med hjälp av samma teknik .
3
Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul . Skriv följande under " Button1_Click " för att lägga produkter i din kombinationsruta :
Me.ComboBox1.Items.Add ( " Data Item" ) katalog
Me.ComboBox1.Items.Add ( " Data Item " ) katalog
Me.ComboBox1.Items.Add ( " Data Item " ) katalog
Me.ComboBox1.Items.Add ( " Data Item " ) katalog
Me.ComboBox1 . Items.Add ( " Data Item" ) katalog
Me.ComboBox1.Items.Add ( " Data Item" )
4
Klicka på " Form1.vb [ Design ] " och dubbel - klicka " Button2 " för att lägga till kod till händelsen click . Skriv följande kod för att radera dubbletter i kombinationsrutan :
Dim xCnt As Integer
Dim yCnt As Integer
För xCnt = 0 Till Me.ComboBox1.Items . Count - 2 Review
För yCnt = Me.ComboBox1.Items.Count - 1 Till xCnt + 1 Step -1
p Om Me.ComboBox1.Items ( xCnt ) ToString = Me.ComboBox1 . . objekt ( yCnt ) . ToString Sedan
Me.ComboBox1.Items.RemoveAt ( yCnt ) katalog
End If
Nästa
Nästa
5
Klicka på " Form1.vb [ Design ] " och dubbelklicka på " Button3 " för att lägga till kod till händelsen click . Skriv följande kod för att radera alla poster från kombinationsrutan :
Me.ComboBox1.Items.Clear ( )
6
Klicka på " Form1.vb [ Design ] " och dubbel på kombinationsrutan exekvera kod Om den valda posten ändras . Skriv följande kod för att visa det markerade objektet genom en meddelanderuta :
MsgBox ( " Du valde : " & Me.ComboBox1.Text.Trim )
7
Tryck " F5 " att köra programmet och klicka på " Button1 " för att lägga produkter i din kombinationsrutan . Klicka " Button2 " för att ta bort duplicerade objektet . Klicka " Button3 " för att ta bort alla objekt i kombinationsrutan .
