[Resolvido]WebBrowser Control no Formulário

Bom dia,

Inseri um WebBrowser Control no Formulário do Access a muitos anos para abrir um link toda vez que o formulário for aberto e gostaria de mudar esse link apontando para outro local e não acho mais aonde esta fazendo essa referência, não lembro.

Abri o construtor de código desse formulário e ele tem 3 procedimentos contruidos relacionados a esse CtlActiveX1: Ao abrir, Ao carregar, Ao redimensionar. Procurei em todo código e não achei o link que faz referência ao que esta abrindo.

Como eu acho aonde esse webbrowser esta apontado? Eu só preciso saber como posso alterar o caminho do flash e do gif que estão no FTP, só não lembro mais como alterar no código...

Abs,

Ola seja bem vindo ao forum;

Anexe aqui parte do seu banco, para vermos isso.

Olá, bom dia caro amigo. Obrigado pela ajuda.

Segue:

Código:

Private Sub Form_Open(Cancel As Integer)
    'Me.CtlActiveX1.Width = 16500
    'Me.CtlActiveX1.Width = 19000
    'Me.CtlActiveX1.Height = 7800
   
    'Me.CtlActiveX1.Width = 22750
    'Me.CtlActiveX1.Height = 8900
    Cparq = "N"
    Call Resolução.x
    Call GetVersionInfo
    If IsNull(Me.Mp_Docs) Then
      DoCmd.OpenForm "InfosTela"
    End If

Private Sub Form_Load()
      Set frmFormulárioAtual = Me
    Call Centra_Form
   
 
  If InternetCheckConnection("http://www.google.com.br/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
    Me.CtlActiveX1.Visible = False
    internet = "nao"
  Else
    Me.CtlActiveX1.Visible = True
    internet = "sim"
  End If

Private Sub Form_Resize()
    'If booWin Then
        'If Resolu = 1 Or Resolu = 2 Then
            'Me.CtlActiveX1.Width = Me.InsideWidth * 3.14
            'Me.CtlActiveX1.Height = Me.InsideHeight * 1.6 - 220
        'ElseIf Resolu = 3 Then
            'Me.CtlActiveX1.Width = Me.InsideWidth * 1.8
            'Me.CtlActiveX1.Height = Me.InsideHeight
        'End If
    'Else
        'Me.CtlActiveX1.Width = Me.InsideWidth - 300 '12900
        'Me.CtlActiveX1.Height = Me.InsideHeight - 1100
    'End If
End Sub


Private Sub Rótulo35_Click()
    txtVínculos.Visible = True
    Me.txtVínculos = ""
    Me!CtlActiveX1.Navigate Me!txtVínculos
End Sub

Private Sub Rótulo42_Click()
    'Me.txtVínculos = "http://"
    Me.txtVínculos = "http://"
    Me!CtlActiveX1.Navigate Me!txtVínculos
End Sub

Private Sub Rótulo12_Click()
    'Me.txtVínculos = ""
    Me.txtVínculos = ""
    Me!CtlActiveX1.Navigate Me!txtVínculos
End Sub


Private Sub OLENãoAcoplado57_Click()
    ShrinkMe (Me.Name)
    DoCmd.Close
End Sub

Private Sub Imagem52_Click()
DoCmd.OpenForm "Cad"
End Sub

Private Sub txtVínculos_AfterUpdate()
    On Error Resume Next
   

    If Len(Me!txtVínculos) > 0 Then
        Me!CtlActiveX1.Navigate Me!txtVínculos
    End If
   
 
End Sub



O mais estranho é que todos os trechos aonde entram urls, nenhum deles é aonde esta o URL atual. O arquivo é um flash (swf), já vasculhei o código atrás de .swf também não acho.

Um Abraço!

Ele navega para o local que está escrito na caixa de texto;

Me!CtlActiveX1.Navigate Me!txtVínculos

Eu tenho um na ENTRADA e outro na SAÍDA. O da saída eu já consegui localizar...

Eu sei que fica nesse trecho que o amigo citou, só que existem mais de 1 Me!CtlActiveX1.Navigate Me!txtVínculos. Inutilizei um a um para ver se ia sumir o flash hospedado, mesmo assim permanece...

Estranho... inutilizei todas as entradas Me!txtVínculos e mesmo assim ele aparece, é como se fosse uma espécie de "CACHE" que armazenou.

Vou continuar tentando... Obrigado já pela sua colaboração

Se preferir, anexe aqui parte do seu banco para vermos em concreto.

Amigo consegui!

Tinha um redirect em uma página em asp que jogava para outro destino. Na verdade o certo era realmente estar no Me!CtlActiveX1.Navigate Me!txtVínculos (o meu outro browser esta assim) e este que não estava achando estava no redirect.

Muito obrigado pela ajuda!

Valew;

Resolvido, resolvido está, fico feliz.