J'ai mis ici que la partie du code de mon programme servant a "jouer" avec 4 fenetres internet sur une meme form vous devres ajouter 4 * le composant "M$ internet controle" normalment par defaut avec vb6 ici "web(0),web(1),web1(0) et web1(1), ainsi que 5 command et apres pk pas 1 barre de navigation ...
Source / Exemple :
Private Sub Command4_Click()
web(0).Width = 15135
web(0).Height = 9736
web(0).Left = 120
web(0).Top = 840
web(0).Visible = True
web(1).Visible = False
web1(0).Visible = False
web1(1).Visible = False
Form1.Caption = web(0).LocationName
end sub
Private Sub Command9_Click()
web(1).Width = 15135
web(1).Height = 9736
web(1).Left = 120
web(1).Top = 840
web(1).Visible = True
web(0).Visible = False
web1(0).Visible = False
web1(1).Visible = False
Form1.Caption = web(1).LocationName
end sub
Private Sub Command6_Click()
web1(0).Width = 15135
web1(0).Height = 9736
web1(0).Left = 120
web1(0).Top = 840
web1(0).Visible = True
web1(1).Visible = False
web(1).Visible = False
web(0).Visible = False
Form1.Caption = web1(0).LocationName
END SUB
Private Sub Command5_Click()
Form1.Caption = web(0).LocationName + "/" + web(1).LocationName + "/" + web1(0).LocationName + "/" + web1(1).LocationName
web1(0).Visible = True
web1(1).Visible = True
web(0).Visible = True
web(1).Visible = True
web(0).Height = 4695
web(0).Width = 7455
web(1).Width = 7455
web(1).Height = 4695
web(1).Top = 840
web(1).Left = 7800
web(0).Top = 840
web(0).Left = 120
command7(0).Visible = True
command7(1).Visible = True
web1(0).Height = 4935
web1(0).Width = 7455
web1(1).Height = 4935
web1(1).Width = 7455
web1(0).Top = 5640
web1(1).Top = 5640
web1(1).Left = 7800
end sub
Private Sub Command10_Click()
web1(1).Width = 15135
web1(1).Height = 9736
web1(1).Left = 120
web1(1).Top = 840
web1(1).Visible = True
web1(0).Visible = False
web(1).Visible = False
web(0).Visible = False
Form1.Caption = web1(1).LocationName
end sub
Private Sub Form_Load()
web1(0).Visible = True
web1(1).Visible = True
web(0).Height = 4695
web(0).Width = 7455
web(1).Width = 7455
web(1).Height = 4695
web(1).Top = 840
web(1).Left = 7800
web(0).Top = 840
web(0).Left = 120
web1(0).Height = 4935
web1(0).Width = 7455
web1(1).Height = 4935
web1(1).Width = 7455
web1(0).Top = 5640
web1(1).Top = 5640
web1(1).Left = 7800
End Sub
Conclusion :
jai joint une version presque fini de mon pgm
elle sera surement bientot en d/l sur www.caratwin.fr.st ou www.devil-world.fr.st
sinon pr les debutant en vb perseverer tjr ,g moi meme 15 ans et j'utilise vb depuis pres d'1 an et ce pgm a entierement ete realise par moi seul, je trouve le resultat bien satisfaisant
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.