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

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

RadicalEd

Código: Text

Dim Line As String
DIM Linea As String
Open TxtSave.Text For Input As #1
Linea=Empty
Do While Not EOF(1)
Input #1, TextLine
Linea=Linea & vbCrLf & TextLine
Loop
Close #1
Text1.text=Linea
End Sub
 

Otro mas

cpmario

Para abrir una página de internet desde VB

Coloca lo siguiente en la sección de Declaraciones de una forma.

Código: Text

Private Declare Function ShellExecute Lib &#34;shell32.dll&#34; Alias &#34;ShellExecuteA&#34; (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
Const SW_SHOW = 5

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

Código: Text

Private Sub cmdAceptar_Click()
  ShellExecute 0, &#34;open&#34;, &#34;http://www.misitio.com&#34;, &#34;&#34;, &#34;&#34;, SW_SHOW
End Sub
 
 

SoloCodigo

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

gabperez

Texto de archivos

RadicalEd

Re: Texto de archivos

cpmario

Re: Texto de archivos