4 fenetre pour la navigation internet + pop +

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.