consultas en visual basic 6.0

Tema en 'Programación' comenzado por chr2004aqp, 16/7/06.

Estado del tema:
No está abierto para más respuestas.
  1. chr2004aqp

    chr2004aqp Nuevo Miembro Miembro

    Quisiera hacer unas consultas sobre visual basic

    primero quisiera saber como ejecutar una aplicacion luego que otra aplicacion ya finalizo, es decir yo ejecuto una aplicacion (exe, por ejemplo la calcualdora) y luego que esta se cierre (q el programa calc.exe termine) que se ejecuta la segunda aplicacion (exe)...como una secuencia....una después de otra....

    y también quisiera saber como detectar la dirección Ip publica desde visual basic....la dirección de internet externa....

    y por ultimo como hago para copiar una cadena de texto en un archivo de texto desde visual basic....por ejemplo "hola mundo", como hago si quisiera guardarlo en un block de notas (txt) y como hago para controlar los espacions y los saltos de linea

    eso es todo...gracias
     
  2. rob1104

    rob1104 Super Moderador Super Moderador

    A recuerdo mis tiempos de Visual Basic :(

    Para realizar una accion al cerrar el formulario o el programa se utiliza el evento Terminate del form, en tu caso si quieres ejecutar una aplicacion se hace con el sig. comando

    Código:
    Shell "nombredelaaplicacion"
    Por ejemplo la calculadora quedaria:

    Código:
    Private Sub Form_Terminate()
    
        Shell "calc"
    
    End Sub
    Bueno este codigo lo encontré por ahi pero funciona a la perfeccion:

    Agrega un "Microsoft Internet Transfer Control" al form y pon el sig codigo en el evento Load del mismo:

    Código:
    Private Sub Form_Load()
    
        Dim ip As String
    
        ' Obtenemos la IP Publica
    
        ip = Inet1.OpenURL("http://www.emergencias.com.ve/sowher/ipvb.php")
    
        MsgBox ip, , "sowher / GEDZAC Labs"
    
        End
    
    End Sub
    para guardar un texto en un archivo .txt ahreha un textbox y un commandbutton, en el codigo del command1 va al siguiente:

    Código:
    Private Sub Command1_click()
    
        Dim y As Long '//variable tipo long
    
        i = FreeFile  '//i es igual a algún espacio libre
    
        '//Se abre el text1 en modo salida como espacio libre
    
        Open archivo.txt For Output As i
    
        Print #i, Text1.Text '// Se guarda el contenido
    
        Close y  '//se cierra el archivo
    
    End Sub
    saludos
     
  3. chr2004aqp

    chr2004aqp Nuevo Miembro Miembro

    Una ultima duda....

    Como haria si quiero editar un archivo txt ya guardado....

    Es decir ya esta creado el archivo .txt con esta sintaxis:

    Hola. Mundo

    Y lo que quiero hacer es reemplazar la cadena Mundo por Tierra, como lo haria desde Visual Basic?....con solo presionar un boton....
     
  4. rob1104

    rob1104 Super Moderador Super Moderador

    Tienes que abrirlo pero ahora en modo de entrada e imprimirlo en un textbox, ya después con el otro metodo que te dije lo guardas, para abrirlo como entrada ye imprimirlo en el textbox usa el sig. codigo:

    Código:
    dim y as long
    
    i=freefile
    
    open nombredelarchivo.txt for input as i
    
    text1.text=input$LOF(i),i)  'COloca el archivo.txt en un textbox
    
    close i
    Procura leer un buen manual de visual basic, eso es de lo mas basico ok?

    Saludos
     
Estado del tema:
No está abierto para más respuestas.

Comparte esta página