Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 09 02:07:58

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Réseau & Internet

> 4 FENETRE POUR LA NAVIGATION INTERNET + POP +

4 FENETRE POUR LA NAVIGATION INTERNET + POP +

Information sur la source

Note :

2,67 / 10

Catégorie :Réseau & Internet Classé sous :navigation, internet Niveau :Débutant Date de création :07/01/2002 Date de mise à jour :07/01/2002 21:46:44 Vu / téléchargé :4 341 / 319

Auteur : devilass

Ecrire un message privé

Site perso

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

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

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

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

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

DevilNet.exe430 080 octets

Télécharger le zip

Sources de la même categorie

GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23

CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta

DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda

NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB

MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout

Toutes les sources de la catégorie Réseau & Internet

Sources en rapport avec celle ci

DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda

UN NAVIGATEUR INTERNET EN VB.NET par azrti

NAVIGATEUR WEB par ouattararomuald

TÉLÉCHARGEUR DE FICHIER SUR MEGAUPLOAD par tomalex1

CONNEXION INTERNET AVEC LOGIN ET MOT DE PASSE À PARTIR D'EXC... par IAORANA

Commentaires et avis

Commentaire de FScorpion le 07/01/2002 21:54:09

Tu n'a que mis l'exécutable dans ta source et ca ne fonctionne pas. LE message d'erreur est "le composant flatbtn2.ocx n'est pas correctement enregistrer...."

Commentaire de devilass le 07/01/2002 22:17:29

ok merci de me le dire c un composant qui va avec le pgm (btn un peu + cool que les normaux)

Commentaire de shivan le 07/01/2002 22:36:07

heu... je comprend pas trop l'interet....

Commentaire de Nox le 08/01/2002 04:30:14

ben... c juste 4 webBrowsers dans un form...
2/10

Commentaire de devilass le 08/01/2002 18:07:58

g mis l'ocx a d/l sur http://frederic.joly1.free.fr/geoffroy/FlatBtn2.ocx
pr ceux qui voudrait d/l le pgm

Commentaire de devilass le 08/01/2002 18:13:12

id = maison
pass = nieppe

Commentaire de devilass le 08/01/2002 18:13:15

id = maison
pass = nieppe

Commentaire de yoman64 le 05/06/2002 19:29:47

ouin... nullos tres simple

Commentaire de raoul59 le 27/12/2002 01:59:08

ouaip dommage mais on garde l'idée !

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Navigation automatique sur internet [ par gast07 ] Bonsoir, voici mon problème :Je souhaite créer un programme qui se connecte automatiquement sur un site internet. Pour cela j'ai cré&#2 Navigation par onglet [ par matrux ] Bonjour a tous,Je suis nouveau sur ce forum et j'ai le probléme suivant. :Je travaille sur un navigateur internet et j'utilise le controle activeX de forcer la navigation des favoris internet dans un webbrowser [ par amita ] mes ami(e)s j'ai essayé de chercher partout mes sans résultat voici mon probleme j'ai 2 webbrowser webbrowser1 affiche les raccourcis de favoris inte Mettre un fichier VB ou un VBexecutable sur ZOHO ou sur internet [ par Ackby ] Bonjour, J'aimerais vous posez trois questions concernant la compatibilité de VB avec ZOHO ou avec un site internet. Je suis actuellement en stage d Options internet [ par JeremyZoe ] Salut, je suis sur la réalisation d'un navigateur. Je voudrais afficher les options internet (pour la page d'accueil), mais je n'y arrive pas. J'ai es code de deconnexion de l'internet et suppression de cookies [ par dahiri10 ] slt je devloppe avec le vb.net 2008 et je veux faire une ptite app qui me deconnect sur internet adsl apres une clik . alors si qq1 a une idee ou u Recherche de programmeurs vb.net pour création d'un projet complet (travail payé) [ par aus3004 ] Bonjour, Je ne sais pas si c'est bien ici qu'il faut mettre ce type de demande, mais j'en ai déjà vu dans ce forum, donc je fais pareil en esperant q S'authentifier sur un site internet vb.net [ par atrocity ] Bonjour à vous, Voilà, je suis en train de coder un client Web en vb.net 2008. Je voudrais savoir comment faire pour s'identifier + un mot de passe su Acces à distance Ms Access [ par amgab2003 ] Bonjour, Je veux rendre une base de donnée ms access 2007(.accdb) accessible sur internet par des clients (programmes en vb 2008) J'ai trop chercher Boutons de navigation Web [ par madg33k ] Voila, j'utilise VB 2008 depuis très peu, et j'me suis lancé dans l'idée de me faire un petit navigateur custom, simple, juste histoire de ne pas avoi

Nos sponsors

Derniers Blogs

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice

TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice

Forum

VB6 + GRAPHVIZ par nouirayosra

REMPLIR UN COMBOBOX AVEC LE CONTENU D'UNE TABLE par souriant

RE : COLLAGE D'IMAGE DANS EXCEL DEPUIS LE PRESSE-PAPIER EN VBA par silencer_

RE : LIST GENERICS par NHenry

RE : LIST GENERICS par JLuc01

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Fonctionnalites supplementaires sous Joomla
Budget : 800€
Animation interactive pour I phone
Budget : 2 000€
Site web pour projet Haiti
Budget : 10 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011