COMO SABER QUANDO O CLIENTE CLICA EM UM ARQUIVO.

H.VILLELA 15/03/2010 00:23:34
#336959
Olá pessoal, gostaria de saber como faço para quando clicar em um documento HTML ele exibisse o nome do arquivo clicado em um text1.text e quando clicasse duas vezes nesse arquivo ele exibisse em um web no WebBrowser1 automáticamente.

Meu codigo fonte ainda está basico e ele só abre quando executo manualmente o sistema e clico no File list. [Ô]ver anexo[Ô].


Private Sub File1_Click()
Dim RetNome As String

RetNome = Me.File1.FileName

Me.WebBrowser1.Navigate ([Ô]C:\DIBOS\[Ô] & RetNome)
Me.WebBrowser1.Refresh

MsgBox ([Ô]Aguarde até que o arquivo [Ô] + RetNome + [Ô] carregue em seu computador![Ô])

End Sub




Private Sub Form_Load()
Dim RetVal As String

RetVal = Dir(Me.File1.FileName, vbArchive)

If RetVal = Me.File1.FileName Then
MsgBox ([Ô]arquivos encontrado [Ô] & RetVal)
Me.WebBrowser1.Navigate ([Ô]C:\DIBOS\[Ô] & RetVal)
Me.WebBrowser1.Refresh
End If

If RetVal = [Ô][Ô] Then
Me.WebBrowser1.Navigate ([Ô]C:\DIBOS\index.html[Ô])
Me.WebBrowser1.Refresh
End If


End Sub
H.VILLELA 16/03/2010 15:22:04
#337096
ninguêm. rs
TECLA 16/03/2010 15:59:57
#337098 
Private Sub File1_DblClick()
Text1 = File1.FileName
[txt-color=#007100][ô] Aqui poderia vir a rotina para carregar o ARQUIVO no WEBBROWSER[/txt-color]
End Sub
FADSYSTEM 19/03/2010 14:17:12
#337407
Dim RetNome As String

Private Sub File1_Click()
RetNome = File1.Path & IIf(Right(File1.Path, 1) = [Ô]\[Ô], [Ô][Ô], [Ô]\[Ô]) & File1.FileName
Text1.Text = RetNome
End Sub

Private Sub File1_DblClick()
WebBrowser1.Navigate RetNome
End Sub

Atenciosamente,

Fabio Araujo Damascena
Tópico encerrado , respostas não são mais permitidas
Voltar