4 fenetre pour la navigation internet + pop +

Soyez le premier à donner votre avis sur cette source.

Vue 5 365 fois - Téléchargée 405 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_raoul59
Messages postés
1
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
27 décembre 2002
-
ouaip dommage mais on garde l'idée !
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
ouin... nullos tres simple
cs_devilass
Messages postés
5
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
8 janvier 2002
-
id = maison
pass = nieppe
cs_devilass
Messages postés
5
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
8 janvier 2002
-
id = maison
pass = nieppe
cs_devilass
Messages postés
5
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
8 janvier 2002
-
g mis l'ocx a d/l sur http://frederic.joly1.free.fr/geoffroy/FlatBtn2.ocx
pr ceux qui voudrait d/l le pgm

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.