SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: gabperez en Jueves 22 de Agosto de 2002, 18:57

Título: Texto de archivos
Publicado por: gabperez en Jueves 22 de Agosto de 2002, 18:57

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

Título: Re: Texto de archivos
Publicado por: RadicalEd en Viernes 14 de Enero de 2005, 01:07

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

Título: Re: Texto de archivos
Publicado por: cpmario en Viernes 14 de Enero de 2005, 05:36

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.  

 :)