Gambling
https://www.flipkart.com/realme-3-pro-lightning-purple-64-gb/p/itmfgzr2jckcttnx?pid=MOBFFMG3H499XJZY&srno=b_1_1&otracker=hp_omu_Top%2BOffers_1_3.dealCard.OMU_WYRHQN9SP4EX_3&otracker1=hp_omu_PINNED_neo%2Fmerchandising_Top%2BOffers_NA_dealCard_cc_1_NA_view-all_3&lid=LSTMOBFFMG3H499XJZYWPM7DZ&fm=neo%2Fmerchandising&iid=6ae4bae1-fb00-4df5-99a5-f8da0f11a805.MOBFFMG3H499XJZY.SEARCH&ppt=browse&ppn=browse&ssid=ttxnoph43s2x69s01571763522573

Tuesday 3 June 2014

FILTER COMBOBOX IN VB

17:49:00    No comments

HERE IS SIMPLE WAY TO FILTER COMBO BOX IN VB

Here u can learn how to filter combo box in visual basic programing and other.  Suppose u want to filter country and State. 

For example if u select India in country in first combobox It will show list of all States of India in second combo box . If u select America in Country U will find list of all state of America in second combo box.

Here is example of bike. If u select PLATINA 100 in first combo box It will show only PLATINA 100 COLORS in second combo box. i.e. Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4

Black Chrome
Black with Maroon
Flame Red Decal Red







Coding is given Below_

Public Sub ChangeItem_Combo2()

If Combo1.ListIndex = 0 Then

Combo2.Clear



Combo2.AddItem "Black Chrome"

Combo2.AddItem "Black with Maroon"

Combo2.AddItem "Flame Red Decal Red"

ElseIf Combo1.ListIndex = 1 Then

Combo2.Clear

Combo2.AddItem "Black Deccal Magenp"

Combo2.AddItem "Black Deccal Red Magenp"

Combo2.AddItem "Flame Red Deccal Red"

Combo2.AddItem "Black Decal Gold"

Combo2.AddItem "Black Decal Blue"

Combo2.AddItem "Black 2 with Red Magenp"

Combo2.AddItem "Black 2 with Gold"

ElseIf Combo1.ListIndex = 2 Then

Combo2.Clear

Combo2.AddItem "Black Decal Magenp"

Combo2.AddItem "Black Decal Red Magenp"

Combo2.AddItem "Flame Red Decal Red"

Combo2.AddItem "Black Decal Gold"

Combo2.AddItem "Black Decal Blue"

Combo2.AddItem "Black 2 with Red Magenp"

Combo2.AddItem "Black 2 with Gold"

ElseIf Combo1.ListIndex = 3 Then

Combo2.Clear

Combo2.AddItem "Black Decal Magenp"

Combo2.AddItem "Black Decal Red Magenp"

Combo2.AddItem "Flame Red Decal Red"

Combo2.AddItem "Black Decal Gold"

Combo2.AddItem "Black Decal Blue"

Combo2.AddItem "Black 2 with Red Magenp"

Combo2.AddItem "Black 2 with Gold"

ElseIf Combo1.ListIndex = 4 Then

Combo2.Clear

Combo2.AddItem "Black Decal Magenp"

Combo2.AddItem "Black Decal Red Magenp"

Combo2.AddItem "Flame Red Decal Red"

Combo2.AddItem "Black Decal Gold"

Combo2.AddItem "Black Decal Blue"

Combo2.AddItem "Black 2 with Red Magenp"

Combo2.AddItem "Black 2 with Gold"

ElseIf Combo1.ListIndex = 5 Then

Combo2.Clear

Combo2.AddItem "Black Decal Magenp"

Combo2.AddItem "Black Decal Red Magenp"

Combo2.AddItem "Flame Red Decal Red"

Combo2.AddItem "Black Decal Gold"

Combo2.AddItem "Black Decal Blue"

Combo2.AddItem "Black 2 with Red Magenp"

Combo2.AddItem "Black 2 with Gold"

ElseIf Combo1.ListIndex = 6 Then

Combo2.Clear

Combo2.AddItem "Black Decal Magenp"

Combo2.AddItem "Black Decal Red Magenp"

Combo2.AddItem "Flame Red Decal Red"

Combo2.AddItem "Black Decal Gold"

Combo2.AddItem "Black Decal Blue"

Combo2.AddItem "Black 2 with Red Magenp"

Combo2.AddItem "Black 2 with Gold"

ElseIf Combo1.ListIndex = 7 Then

Combo2.Clear

Combo2.AddItem "Black Decal Magenp"

Combo2.AddItem "Black Decal Red Magenp"

Combo2.AddItem "Flame Red Decal Red"

Combo2.AddItem "Black Decal Gold"

Combo2.AddItem "Black Decal Blue"

Combo2.AddItem "Black 2 with Red Magenp"

Combo2.AddItem "Black 2 with Gold"

ElseIf Combo1.ListIndex = 8 Then

Combo2.Clear

Combo2.AddItem "Black Decal Magenp"

Combo2.AddItem "Black Decal Red Magenp"

Combo2.AddItem "Flame Red Decal Red"

Combo2.AddItem "Black Decal Gold"

Combo2.AddItem "Black Decal Blue"

ElseIf Combo1.ListIndex = 9 Then

Combo2.Clear

Combo2.AddItem "Passion Red"

Combo2.AddItem "Jet Black"

Combo2.AddItem "Passion Red"

ElseIf Combo1.ListIndex = 10 Then

Combo2.Clear

Combo2.AddItem "Midnight Black"

Combo2.AddItem "Passon Red Dual Decal"

ElseIf Combo1.ListIndex = 11 Then

Combo2.Clear

Combo2.AddItem "Midnight Black"

Combo2.AddItem "Passon Red Dual Decal"

Combo2.AddItem "Jet Black"

ElseIf Combo1.ListIndex = 12 Then

Combo2.Clear

Combo2.AddItem "Midnight Black"

Combo2.AddItem "Passon Red Dual Decal"

Combo2.AddItem "Jet Black"

ElseIf Combo1.ListIndex = 13 Then

Combo2.Clear

Combo2.AddItem "Midnight Black"

Combo2.AddItem "Passon Red Dual Decal"

Combo2.AddItem "Jet Black"

ElseIf Combo1.ListIndex = 14 Then

Combo2.Clear

Combo2.AddItem "Ebony Black"

ElseIf Combo1.ListIndex = 15 Then

Combo2.Clear

Combo2.AddItem "Cherry Black"

End If

End Sub



Private Sub Combo1_Click()

Call ChangeItem_Combo2

End Sub





Private Sub Form_Load()

Combo1.AddItem "Platina 100 "

Combo1.AddItem "Discover 100 Kick start "

Combo1.AddItem "Discover 100 self start"

Combo1.AddItem "Discover 100 D-104KS"

Combo1.AddItem "Discover 100 D-104ES"

Combo1.AddItem "Discover 125KS"

Combo1.AddItem "Discover 125ES"

Combo1.AddItem "Discover 125 DISk"

Combo1.AddItem "Discover 150"

Combo1.AddItem "Pulsar 135"

Combo1.AddItem "Pulsar 150"

Combo1.AddItem "Pulsar 180"

Combo1.AddItem "Pulsar 200"

Combo1.AddItem "Pulsar 220"

Combo1.AddItem "Boxer 150"

Combo1.AddItem "Pulsar 200 N.S."

Combo1.AddItem "Discover 125 ST"

End Sub
 

0 comments:

Post a Comment

Subscribe to: Post Comments (Atom)