Jump to content

[Vb6] Combo Box item selecionado. Ajuda me?


Guest

Recommended Posts

oi....

eu tenho form com um timer, labels e txt...

já fiz um program que abre o btuge fecha a horas programadas. o que eu quero é o seguinte.

tenho uma combo box com vários programas....

Msn

windows media player

btuga e etc...

eu queria quando selecionavamos uma opção na combox  abri o programa e fecha a hora programada...

Private Sub Combo1_Change()
Select Case Combo1.ListIndex
Case Btuga  " btuga ou 1??????????????????????????????????????????????????????????
    If y = Time Then
Dim RetVal
RetVal = Shell("C:\Programas\BTuga Revolution 2.1\Btuga.exe")
End If
If x = Time Then
Dim strExe As String
strExe = "btuga.exe" 'neste caso btuga.exe
KillApp (strExe)
End If 'carrega um prog
End Sub

isto não faz nada.......

Link to comment
Share on other sites

Combo1.ListIndex dá-te um número do index seleccionado.

Se o btuga está em primeiro na lista então o seu index é 0

Logo

Select Case Combo1.SelectedIndex 'Visto tu quereres ir buscar o valor seleccionado
Case 0
etc.

EDIT: Reparei agora que isto é vb 6 :/ não sei se existe o SelectedIndex em VB6 mas a estrutura do Select Case deve ser igual

Revolt Website Antigo Nick: Pauzinhos
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.