Problème Webbrowser double (VB6)
Hors ligneEclair14 Le 10/07/2006 à 03:21 Profil de Eclair14 Configuration de Eclair14

Bonjour

Je vais vous expliquer mon petit problème

Je concoit une application qui permet de comparer des skew-t permettant les prévisions sur les orages . Mon programme permet de charger dans deux fenêtres (frmbrowser1 et frmbrowser2) les deux pages (dans frmbrowser1 le composant web wb1 et ainsi de même dans l'autre formulaire).

Lorsque je génère les cartes . Je regarde les adresses et elles sont comme elle le devrait SAUF que le contenu de la page n'est pas du tôut ce que l'on s'attend . Voici des captures

Voici l'interface principale , on remarque que la seule différence est au niveau des stations


Lorsqu'on clique sur générer, voici le deuxième navigateur , il est correct il affiche la carte de CYUL



Cependant , le navigateur 1 qui est supposé affiché CYQB affiche CYUL même si l'adresse est correcte



Il faudrait que le navigateur 1 affiche la bonne image , je regarde mon code et je vois pas ce qui a de croche
Hors ligneAnthony Le 10/07/2006 à 12:48 Profil de Anthony Configuration de Anthony

Fou du volant
Salut,

si tu nous montrais ton code, juste le nom des deux zones de texte et des deux webbrowsers ?
--

Hors ligneEclair14 Le 10/07/2006 à 23:00 Profil de Eclair14 Configuration de Eclair14

Voivi le code lorsqu'on appuie sur générer

Private Sub cmdGenerer_Click()
Dim strmodele1 As String
Dim strmodele2 As String
'Génération des transfert
If chkstation.Value = 1 Then txtstation2.Text = txtstation1.Text
If chkheure.Value = 1 Then lstheure2.Text = lstheure1.Text
If chkmodele.Value = 1 Then lstmodele2.Text = lstmodele.Text
If chkrun.Value = 1 Then lstrun2.Text = lstrun1.Text
'Génération du String Modèle 1
If lstmodele.Text = "ETA" Then strmodele1 = "eta4"
If lstmodele.Text = "ETA-AK" Then strmodele1 = "etk"
If lstmodele.Text = "NGM" Then strmodele1 = "ngm"
If lstmodele.Text = "NGM-AK" Then strmodele1 = ngak
If lstmodele.Text = "NGM-NA" Then strmodele1 = ngna
If lstmodele.Text = "AVN-US" Then strmodele1 = avn_us
If lstmodele.Text = "AVN-NA" Then strmodele1 = avn_na
If lstmodele.Text = "AVN-NH" Then strmodele1 = avn_nh
If lstmodele.Text = "RUC 3H" Then strmodele1 = ruc
If lstmodele.Text = "RUC 1H" Then strmodele1 = rc1
'Copie de strmodele1 dans la zone texte
txtmodA.Text = strmodele1
'ETA -AK
'ngm
'ngm -AK
'ngm -NA
'AVN -US
'AVN -NA
'AVN -NH
'MRF -NH
'RUC 3H
'RUN 1H

'Génération du 1er code browser
txt_A.Text = "http://vortex.plymouth.edu/cgi-bin/gen_grbsnd.cgi?id=" & txtstation1.Text _
& "&mo=" & txtmodA.Text & "&pl=skewt&ft=h" & lstheure1.Text & "&cu=" & lstrun1.Text & "&pt=parcel&size=480x360"
'Ouverture du navigateur
frmbrowser1.Show
frmbrowser1.txtURL.Text = txt_A.Text
frmbrowser1.wb1.Navigate frmbrowser1.txtURL.Text
'Vérification si ouverture d'un deuxième navigateur
If chkstation.Value = 1 Then
    If chkheure.Value = 1 Then
        If chkmodele.Value = 1 Then
            If chkrun.Value = 1 Then
            Exit Sub
            End If
        End If
    End If
End If
'Vérification du 2e modèle
'Génération du String Modèle 1
If lstmodele2.Text = "ETA" Then strmodele2 = "eta4"
If lstmodele2.Text = "ETA-AK" Then strmodele2 = "etk"
If lstmodele2.Text = "NGM" Then strmodele2 = "ngm"
If lstmodele2.Text = "NGM-AK" Then strmodele2 = ngak
If lstmodele2.Text = "NGM-NA" Then strmodele2 = ngna
If lstmodele2.Text = "AVN-US" Then strmodele2 = avn_us
If lstmodele2.Text = "AVN-NA" Then strmodele2 = avn_na
If lstmodele2.Text = "AVN-NH" Then strmodele2 = avn_nh
If lstmodele2.Text = "RUC 3H" Then strmodele2 = ruc
If lstmodele2.Text = "RUC 1H" Then strmodele2 = rc1
'Copie de strmodele1 dans la zone texte
txtmodB.Text = strmodele2
'Génération du 2e code browser
txt_B.Text = "http://vortex.plymouth.edu/cgi-bin/gen_grbsnd.cgi?id=" & txtstation2.Text _
& "&mo=" & txtmodB.Text & "&pl=skewt&ft=h" & lstheure2.Text & "&cu=" & lstrun2.Text & "&pt=parcel&size=480x360"
'Ouverture du 2e browser
'Ouverture du navigateur
frmbrowser2.Show

frmbrowser2.txtURL.Text = txt_B.Text
frmbrowser2.wb2.Navigate frmbrowser2.txtURL.Text

End Sub
Hors ligneAnthony Le 11/07/2006 à 07:25 Profil de Anthony Configuration de Anthony

Fou du volant
Je ne vois pas d'erreur malheureusement
--

Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels