SCROLL CONTROL USER POUR DÉROULER LES CONTROLES ET ENREGISTRER LES COORDONNÉES.

Londonic
Messages postés
298
Date d'inscription
jeudi 22 janvier 2009
Statut
Membre
Dernière intervention
26 septembre 2009
- 21 mars 2009 à 21:24
Londonic
Messages postés
298
Date d'inscription
jeudi 22 janvier 2009
Statut
Membre
Dernière intervention
26 septembre 2009
- 26 mars 2009 à 10:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/49589-scroll-control-user-pour-derouler-les-controles-et-enregistrer-les-coordonnees

Londonic
Messages postés
298
Date d'inscription
jeudi 22 janvier 2009
Statut
Membre
Dernière intervention
26 septembre 2009

26 mars 2009 à 10:36
Bonjour BADOQUEALEX,

Ce code fait défiler un panel vbNet entre HscrollBar et VScrollBar.
Il permet de développer rapidement et simplement des applications visuelles plus grandes que la fenêtre, et de focaliser sur une partie en particulier.

Un explorateur, Par exemple

L'application est brève:
Public Class Form1
Dim Exemple As New Surf
Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
Text = "Mon site rouille"
Controls.Add(Exemple)
Exemple.init() '("http://ogame.fr/", 750, 420)
End Sub
End Class


Le développement de l'application est court.
Public Class Surf
Inherits UserControl
Dim Fly As New WebBrowser
Friend Page As New Scroller(Fly)
Friend Sub New(Optional ByVal Largeur As Single = 1200, _
Optional ByVal Hauteur As Single = 1200)
Text = "Surf"
Fly.SetBounds(0, 0, Largeur, Hauteur) 'Taille de la Page webb
Fly.ScrollBarsEnabled = False
Controls.Add(Page)
Dock = DockStyle.Fill
End Sub
Friend Sub init(Optional ByVal Site As String = "http://www.vbfrance.com/", _
Optional ByVal XOffset As Single = 870, _
Optional ByVal YOffset As Single = 200)
Fly.Navigate(Site)
Page.init(XOffset, YOffset)
End Sub
End Class

Je posterais cette nouvelle version plus intuitive suivant l'audience. Les modifications sont minimes.
BadoqueAlex
Messages postés
129
Date d'inscription
mardi 20 juillet 2004
Statut
Membre
Dernière intervention
6 juin 2009

23 mars 2009 à 07:35
euh ... Quoi d'neuf docteur ? Bref, ca sert à quoi ?