De nuevo jejeje otra duda, bien, lo que me gustaria saber es que poner, para que el proyecto ejecute el codigo que pone en un textbox, es decir, un ejemplo.
Pongo en el textbox
msgbox "Hola", vbinformation, "hola"
y creo un private sub, lo que quiero es que ese private sub lea lo que pone en el textbox, y lo ejecute, es decir, creo un private llamado.
private sub empezar()
codigo
end sub
lo que no se es que tengo que poner donde pone codigo, para que al poner
call empezar
haga lo que pone en el textbox, es algo lioso, pero lo necesito, o que lo haga al pulsar un commandbutton, pero lo necesito mas para el call, gracias, espero sus respuestas, saludos.
Y para qué quieres un textbox, crea una función que haga lo que quieras y llámala cuando lo necesitas, en lugar de un texbox:
private sub empezar()
msgbox "loquesea"
end sub
Y luego haces un call empezar.
No es más fácil así?
Si, pero es para una funcion distinta, por ejemplo, imaginate que un user quiere usar su code, pues lo pone en el textbox, y al darle al commandbutton, el programa ejecuta lo que pone en el textbox, esa no es la funcion que usare con el, pero es un ejemplo, me podeis ayudar?
Mmm n ose bien si es esto a lo que te reifers...
Agregas un timer con enabled en False
Private Sub Form_Load()
Timer1.Enabled = True
End sub
Private Timer1_Timer()
MsgBox "Hello World",vbinformation,"Hello"
End sub
Saludos!
Cita de: Sharki en 20 Octubre 2008, 19:08 PM
Mmm n ose bien si es esto a lo que te reifers...
Agregas un timer con enabled en False
Private Sub Form_Load()
Timer1.Enabled = True
End sub
Private Timer1_Timer()
MsgBox "Hello World",vbinformation,"Hello"
End sub
Saludos!
No sé si estoy en lo cierto pero el se refiere (en su ejemplo) a que si pones en el textbox "MsgBox "Hola"" Escriba esto en el código:
Sub comenzar()
MsgBox "Hola"
End Sub
Y lo ejecute claro.
Yo te diría que es imposible ya que si lo pones, se representara todo entre "", por lo tanto lo pondrá como texto, no como codigo.
Cita de: Sharki en 20 Octubre 2008, 19:08 PM
Mmm n ose bien si es esto a lo que te reifers...
Agregas un timer con enabled en False
Private Sub Form_Load()
Timer1.Enabled = True
End sub
Private Timer1_Timer()
MsgBox "Hello World",vbinformation,"Hello"
End sub
Saludos!
Eso no tiene nada que ver con lo que el se refiere.
Una cosa asi como mucho...
Dim data() As String
data = Split(Text1.Text, "|")
MsgBox data(0), vbInformation, data(1)Eso lo que hace es lo siguiente, si escriben "Hola | Muy bien" en el Campo de texto sin las comillas sale un mensaje con texto Hola y de titulo Muy Bien ¿Asi te serviria? Y despues puedes hacer,
Dim data() As String
data = Split(Text1.Text, "|")
If data(3) = "Informacion" Then
MsgBox data(0), vbInformation, data(1)
elseif data(3) = "Critical" Then
MsgBox data(0), vbCritical, data(1)
End IFAhi seria "Hola | Muy bien | Informacion" ¿Ahora entiendes? ;)
Si no me equivoco, lo que queres es digamos, un pequeño compilador, osea, que vos le pongas un codigo en un textbox y que te lo interprete y lo corra...
Es eso?
No es eso del todo, no solo tiene que ser msgbox, es decir, sea cual sea el codigo, lo ejecute, como si lo ubiese puesto en el commandbutton, es decir, si pone en el commandbutton
shell (cmd.exe /C "Start www.google.es")
pues al pulsar commandbutton, el commandbutton lea lo que pone en el textbox, y en este caso abriria google.
Lo que estás planteando es muy jodido y requiere muucho codigo, tenes que interpretar cada uno de los comandos y pasarle los argumentos, estás hablando de algo muy extenso...
Cita de: eldiabloxico en 20 Octubre 2008, 19:46 PM
No es eso del todo, no solo tiene que ser msgbox, es decir, sea cual sea el codigo, lo ejecute, como si lo ubiese puesto en el commandbutton, es decir, si pone en el commandbutton
shell (cmd.exe /C "Start www.google.es")
pues al pulsar commandbutton, el commandbutton lea lo que pone en el textbox, y en este caso abriria google.
Si fuera para utilizar pocos códigos si que se puede hacer... seria algo mas sencillito... pero si quieres hacer que acepte todos los códigos... bufff
Lo que podria hacer es guardar un historial de codigos, y luego en visual pues lo interpretas, o lo catalogas... Por Mensajes, Comandos, Etc...
Pues creo que are eso, que cuando ponga algo pues lo busque y saque el code segun sabe, como comandos, de todas formas gracias, saludos.
No se si te he entendido bien, pero CREO que lo que quieres es, utilizar el textbox a modo de consola ms-dos.
Si eso es lo que quieres (que no lo se), prueba con:
sub boton_click()
dim texto as string
texto = textbox1.text
shell(texto)
end sub
una palabra...Microsoft Script control
Cita de: seba123neo en 21 Octubre 2008, 00:06 AM
una palabra...Microsoft Script control
Eso son 3 palabras xDDDD
Cita de: seba123neo en 21 Octubre 2008, 00:06 AM
una palabra...Microsoft Script control
Y como ago?
Wenas, como te dijeron antes puedes usar el microsoft script control para lo que quieres hacer.
Yo estuve viendo una pagina en que explicaban algo que creo que te servira:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/203-microsoft-script-control.htm (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/203-microsoft-script-control.htm)
ya nos cuentas ;)
un saludo