SCROLL CONTROL USER POUR DÉROULER LES CONTROLES ET ENREGISTRER LES COORDONNÉES.
Londonic
Messages postés298Date d'inscriptionjeudi 22 janvier 2009StatutMembreDernière intervention26 septembre 2009
-
21 mars 2009 à 21:24
Londonic
Messages postés298Date d'inscriptionjeudi 22 janvier 2009StatutMembreDernière intervention26 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.
Londonic
Messages postés298Date d'inscriptionjeudi 22 janvier 2009StatutMembreDernière intervention26 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és129Date d'inscriptionmardi 20 juillet 2004StatutMembreDernière intervention 6 juin 2009 23 mars 2009 à 07:35
euh ... Quoi d'neuf docteur ? Bref, ca sert à quoi ?
26 mars 2009 à 10:36
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.
23 mars 2009 à 07:35