Programación General > Visual Basic 6.0 e inferiores

 Aclarenme Porfa

(1/2) > >>

sircuit:

--- Código: Text --- Select Case Su nombre casi nos define lo que es: Selecciona, dependiendo del caso, un determinado juego de instrucciones: Select Case variable ' variable es una variable que puede tomar los valores (p.e.) de 1 a 4 Case 1 Instrucciones a ejecutar en caso de que variable = 1 Case 2 Instrucciones a ejecutar en caso de que variable = 2 Case 3 Instrucciones a ejecutar en caso de que variable = 3 Case 4 Instrucciones a ejecutar en caso de que variable = 4 End Select 
esa es parte de un manual pero estuve intentando hacer algunos ejemplos pero no me salio

la primera linea, por ejemplo puse:

--- Citar ---Private Sub Form_Load()
Select Case Text1
Case Is = "hola"
Shell "notepad.exe"
End Select
End Sub
--- Fin de la cita ---

pero no pasa nada...

help

RadicalEd:
El Shell necesita una variable para poder activarlo ese es el unico error, de resto todo esta bien.

--- Código: Text --- Private Sub Form_Load()Dim xSelect Case TextBox1.TextCase Is = "hola"x = Shell("notepad.exe")AppActivate xEnd SelectEnd Sub  
Ojala te sirva.
Chao

sircuit:
pero aclarame una cosa...
cuando declaro una variable sin poner el tipo que es, el vb me la denomina como variant o me equivoco ? no seria mejor declarar previamente la x como un string ?

en todo caso al escribir hola no pasa nada y se debiera ejecutar notepad.exe :unsure:

_vgt_:
hola!!, al no declarar la variable si has puesto el option explicit te dara un error y sino creo k estas en lo cierto y te la crea el solo automaticamente como variant...
lo de ejecutar un programa tengo un procedimiento alternativo para ejecutar programas, te la posteo la pruebas a ver si tienes suerte...


--- Código: Text ---  Public Sub ExecuteFile(FilePath As String) Dim ret On Error GoTo errorret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath), 1)Exit Suberror:  MsgBox err.Description, vbExclamation, "Error" End Sub   
en truco esta en pasarle en la variable FilePath la direccion completa del programa k kieres ejecutar...

Espero haberte ayudado

Saludos !!

eliza_marti:
Hola sircuit!.. :hola: ..veo que recién estás aprendiendo... :)  y eso es bueno ..practica mucho!..mira..lo que está mal en tu code no es el uso del select case ni del shell....tu error está en donde lo validas...si pones lo que pusiste en un Load Form..(cuando se carga tu Form)...es lógico que no va a pasar nada porque tu Text1.text (date cuenta que es Text1.text no Text1)... seguro no tiene la palabra hola ... ;)  ...ahora...si por ahi le pones un botoncito.. :rolleyes: ...y dentro del botón validas lo que hay dentro del Text1 con el select case entonces te puede funcionar... :) ..mira este ejemplo...te funcionará... :P :


--- Código: Text ---Private Sub Command1_Click()    Select Case Text1.Text    Case Is = "hola"        Shell "notepad.exe"    End SelectEnd Sub Private Sub Form_Load()    Text1.Text = ""End Sub 
Claro!.. que tienes que escribir la palabra hola en el text... :P
Espero ser de ayuda!...y sigue Practicando!... :hola:  :comp:  bye!...

Navegación

[0] Índice de Mensajes

[#] Página Siguiente