Vb6 combox question - very urgent ThnX

I have a question..

i'm making a live stream radio (witch works btw) but now i want to have a combobox where i can choose some station's NOW... this is not the problem... but... how must i make the onclick event to show up a form?

I have a question..

i'm making a live stream radio (witch works btw) but now i want to have a combobox where i can choose some station's NOW... this is not the problem... but... how must i make the onclick event to show up a form?


It's so simple... What you have to do is... load all the stations to combo

I'm attaching a example code... just check it out



Private Sub Combo_Click()
Select Case Combo1.Text
Case "GIL 90.8" ' Station

Case "HOT 92.1" ' Station

End Select
End Sub


you got it ....

cheers
xBox

I have a question..

i'm making a live stream radio (witch works btw) but now i want to have a combobox where i can choose some station's NOW... this is not the problem... but... how must i make the onclick event to show up a form?

This may or may not be the best way, but in my instances of using the combo box, I've just used the click event, and the text property to make it do something


If combobox1.text = "whatever" then
'write whatever u want it to do
end if

i think u mis understand me.


If i click on "station1" it must show a form. I really need help on this. I appreciate youre help :)

it's a combobox btw

Private Sub Combo_Click()
Select Case Combo1.Text
Case "Station-1"
Form1.Show
Case "Station-2"
Form2.Show
End Select
End Sub


I hope This will helps u...
Cheers
xBox

Thnx for the help so far...

xBox
i have a question for you. Then is try youre code and i select "1" on my combobox if doesnt do anything :S

To run the following example u need to some steps...

1. Insert 3 Forms
2. Goto the Form1 and place a combo control
3. Copy following code to Form1.
4. Run the program...

just check whether this what u want....


[VB]
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Station - 1"
Form2.Show
Case "Station - 2"
Form3.Show
End Select
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "Station - 1"
.AddItem "Station - 2"
End With
End Sub
[VB]

good day
xBox

xbox it works !!!!, dunno why it doesn't work on my project though.
Thnx and good day :0

Hey ...

Did u understood my coding.............

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Station - 1"
Form2.Show
Case "Station - 2"
Form3.Show
End Select
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "Station - 1"
.AddItem "Station - 2"
End With
End Sub

nvm i saw it :/


Private Sub Form_Load()
With COMBO1 <--------------forgot to add combo 1 >,<
.AddItem "Station - 1"
.AddItem "Station - 2"
End With