Anuncio

Colapsar
No hay anuncio todavía.

[VB6] Cargar un archivo de texto en un control Textbox

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
    • Compartir

    [VB6] Cargar un archivo de texto en un control Textbox

    '----------------------------------
    'Joshua M. Curtis-This should open
    'file into any text box -fast.
    'http://www.CurtisOnline.net
    '----------------------------------
    Dim FileLength

    'Abre el archivo "yourfile.txt" , si quieres lo puedes cambiar por "c:\archivo.txt"
    Open "yourfile.txt" For Input As #1

    'calcula el largo del archivo
    FileLength = LOF(1)

    'cargo en la variable var1 el contenido del archivo
    var1 = Input(FileLength, #1)

    'asigno al control Textbox con el nombre Text1 el contenido de la variable
    Text1.Text = var1

    'cerrar archivo
    Close #1
    Visita mi pagina de facebook: http://www.facebook.com/wansoftweb
    • Compartir

    #2
    Respuesta: [VB6] Cargar un archivo de texto en un control Textbox

    holas wansof como andas. teng una pregunta quieroa ser un launcher que muestre si el server esta online o offline me podras desir como prodia aser??
    salu2

    Comentario

      • Compartir

      #3
      Respuesta: [VB6] Cargar un archivo de texto en un control Textbox

      Originalmente publicado por duplex Ver Mensaje
      holas wansof como andas. teng una pregunta quieroa ser un launcher que muestre si el server esta online o offline me podras desir como prodia aser??
      salu2
      lo podes hacer con un simple winsock
      haces que conect al server

      private sub load()
      winsock1.conect "IP", "55901"
      End Sub

      y hay haces que te diga los resultados.

      winsock1.conect()
      msgbox "server On"
      end sub

      y para que te diga off
      winsock1.error
      msgbox "Server Off"
      end sub

      saludos

      Comentario

        • Compartir

        #4
        Respuesta: [VB6] Cargar un archivo de texto en un control Textbox

        Obviamente que ese codigo pertenece a visual basic 6 xd

        Originalmente publicado por n_chicago Ver Mensaje
        lo podes hacer con un simple winsock
        haces que conect al server

        private sub load()
        winsock1.conect "ip", "55901"
        end sub

        y hay haces que te diga los resultados.

        Winsock1.conect()
        msgbox "server on"
        end sub

        y para que te diga off
        winsock1.error
        msgbox "server off"
        end sub

        saludos

        Comentario

        Trabajando...
        X