• Jueves 2 de Mayo de 2024, 05:18
« anterior próximo »
Páginas: [1]

Autor Tema:  Texto de archivos  (Leído 894 veces)

gabperez

  • Miembro activo
  • **
  • Mensajes: 51
    • Ver Perfil
    • http://www.enlacesjuridicos.com.ar
Texto de archivos
« en: Jueves 22 de Agosto de 2002, 18:57 »
0
Quisiera como hacer para que al cliclear en un botón, aparezca texto de un archivo .txt en un textbox, por ejemplo.
Lo mismo si quiero que se abra una página de internet o archivo HTML desde VB.
Agradecezco respuestas.
Gabperez

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Texto de archivos
« Respuesta #1 en: Viernes 14 de Enero de 2005, 01:07 »
0
Código: Text
  1. Dim Line As String
  2. DIM Linea As String
  3. Open TxtSave.Text For Input As #1
  4. Linea=Empty
  5. Do While Not EOF(1)
  6. Input #1, TextLine
  7. Linea=Linea & vbCrLf & TextLine
  8. Loop
  9. Close #1
  10. Text1.text=Linea
  11. End Sub
  12.  

Otro mas
El pasado son solo recuerdos, el futuro son solo sueños

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Texto de archivos
« Respuesta #2 en: Viernes 14 de Enero de 2005, 05:36 »
0
Para abrir una página de internet desde VB

Coloca lo siguiente en la sección de Declaraciones de una forma.
Código: Text
  1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  2. Const SW_SHOW = 5
  3.  
  4.  

Y lo siguiente en el evento clic de un botón o en también puede ser en una etiqueta:

Código: Text
  1. Private Sub cmdAceptar_Click()
  2.   ShellExecute 0, "open", "http://www.misitio.com", "", "", SW_SHOW
  3. End Sub
  4.  
  5.  

 :)
Páginas: [1]
« anterior próximo »