ACIONAR COMMANDBUTTON

USUARIO.EXCLUIDOS 28/02/2005 06:32:45
#70212
tenho uma imagem dentro do webrowser e preciso atravez do vb acionar esta imagem,ou seja um botao dentro da pagina html.
Ja tenho o codigo pra acionar o botao,mas nao tenho o de acionar a imagem,ele ta assim + ou - :

<td class="texto" colspan="2">
<div align="center"><img src="images/bot_continuar.gif" width="77" height="22" usemap="#login" border="0"></div>

quando clicamos nessa imagem,a pagina se dirige pra outro local,como se fosse um button submit,mas nao e.
USUARIO.EXCLUIDOS 28/02/2005 08:16:37
#70222
você pode explicar melhor?........
USUARIO.EXCLUIDOS 28/02/2005 08:45:27
#70234
mais!?vou tentar...
Tenho dentro de webrowser um botao,so que ele e uma figura,quero acionar ele atravez do vb...quero clicar em um commandbutton dentro do meu exe e acionar o batao q ta dentro do webbrowser.
USUARIO.EXCLUIDOS 28/02/2005 10:32:09
#70263
hehehe, sinceramente, nao consegui entender.
USUARIO.EXCLUIDOS 28/02/2005 11:02:28
#70281
Ve assim vc nao entedeu pq nao conhece sobre o assunto...
DANIELCPAETE 28/02/2005 11:50:28
#70298 Resposta escolhida
carol fassa assim va em referencias e adcione Microsoft HTML obsject libare

depois use esta função


'para testar este exemplo voce precisa colocar num form um webbrowser e um commandbutton espero que te ajude
Private Sub Command1_Click()
  Call Click("image", "editlink.gif") 'Use esta chamada para imagem
  'Call Click("Links", "Seu Link")'use esta chamada para links
End Sub

Private Sub Form_Load()
  WebBrowser1.Navigate ("http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=70212&varSubPagina=1&varFiltro=Nulo")
End Sub


Public Sub Click(Tipo As String, Compara As String)

Dim Imagem As HTMLImg
Dim MeuLink As HTMLAnchorElement

Select Case Tipo
     
     Case "image"
         For Each Imagem In WebBrowser1.Document.images
           If Imagem.nameProp = Compara Then
             Imagem.Click
           End If
         Next
    Case "Links"
         For Each MeuLink In WebBrowser1.Document.links
         If MeuLink.innerText = Compara Then
             MeuLink.Click
             Exit For
         End If
         Next
End Select

End Sub
DANIELCPAETE 28/02/2005 11:51:26
#70300
so mais uma coisa antes de clicar no botao faça o login no site pois usei a imagem do form de resposta
USUARIO.EXCLUIDOS 28/02/2005 12:00:17
#70304
Olha ai,ta dando 1 erro:

user-defined type not defined
CLINS 28/02/2005 12:01:45
#70305
Citação:

Ve assim vc nao entedeu pq nao conhece sobre o assunto...



Carol,

Achei uma falta de consideração sua dar um fora destes num cara que está tentando te ajudar. Todos que respondem as questões aqui tentam a sua maneira ajudar e o mínimo que vc pode fazer e rever o que escreveu e se há dúvidas reescrever o problema de modo a facilitar a compreensão do mesmo. Eu até agora não consegui entender também.

Não sei se sua dúvida é ASP, sobre HTML ou se um mixto dos dois no VB.
USUARIO.EXCLUIDOS 28/02/2005 12:20:40
#70310
Jamais tive essa intençao de dar fora em alguem,apenas fui sincera,pra quem conhece do que estou falando sabe exatamente o que eu quero,apenas achei que nao fosse a area dele.
USUARIO.EXCLUIDOS 28/02/2005 12:37:38
#70316
eu tirei :

Dim Imagem As HTMLImg
Dim MeuLink As HTMLAnchorElement

Fucionou legal,muito obrigada!
Tópico encerrado , respostas não são mais permitidas
Voltar