IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

[VB.NET] Ligne horizontal +label


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    284
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Mars 2006
    Messages : 284
    Par défaut [VB.NET] Ligne horizontal +label
    Bonjour

    Je souhaiterai créer un usercontrol qui me perttrait d'afficher un label avec une ligne en dessous.
    exemple :

    leLabel :____________________

    J'ai déjà un usercontrol qui me permet de tracer des lignes mais je ne sais pas comment ajouter le Label qui serait en autosize comment ca je n'aurais que la dimension de la ligne à manipuler.

    Voici le code que j'ai trouvé sur le net pour tracer une ligne

    Public Class LigneHorizontale
    Inherits System.Windows.Forms.UserControl

    #Region " Code généré par le Concepteur Windows Form "

    Public Sub New()
    MyBase.New()

    'Cet appel est requis par le Concepteur Windows Form.
    InitializeComponent()

    'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

    End Sub

    'La méthode substituée Dispose du UserControl pour nettoyer la liste des composants.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
    If Not (components Is Nothing) Then
    components.Dispose()
    End If
    End If
    MyBase.Dispose(disposing)
    End Sub

    'Requis par le Concepteur Windows Form
    Private components As System.ComponentModel.IContainer

    'REMARQUE*: la procédure suivante est requise par le Concepteur Windows Form
    'Elle peut être modifiée en utilisant le Concepteur Windows Form.
    'Ne la modifiez pas en utilisant l'éditeur de code.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    '
    'LigneHorizontale
    '
    Me.Name = "LigneHorizontale"
    Me.Size = New System.Drawing.Size(150, 2)

    End Sub

    #End Region

    Private Sub LigneHorizontale_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

    Dim objPen1 As Pen = New Pen(Color.Gray, 1)
    Dim objPen2 As Pen = New Pen(Color.White, 1)

    Dim objPoint1 As Point = New Point(0, 0)
    Dim objPoint2 As Point = New Point(Me.Size.Width, 0)
    Dim objPoint3 As Point = New Point(0, 1)
    Dim objPoint4 As Point = New Point(Me.Size.Width, 1)

    e.Graphics.DrawLine(objPen1, objPoint1, objPoint2)
    e.Graphics.DrawLine(objPen2, objPoint3, objPoint4)

    End Sub


    End Class

    D'avance merci pour votre aide.

    OLBI

  2. #2
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 194
    Par défaut
    plusieurs méthodes
    deja sur le meme code à la place de inherits usercontrol tu mets inherits label
    et c'est fini ^^

    enfin faut vérifier ce qu'il se passe au redimensionnement du controle
    si la ligne s'efface c'est à toi de la retracer à chaque fois
    m'enfin vu que l'evenement paint est géré ca doit etre bon
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    284
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Mars 2006
    Messages : 284
    Par défaut
    Yes, c'est juste bien


    Merci beaucoup pour le coup de main!!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VB.NET] charger un label avec les donnees d'une bd
    Par paleronel dans le forum Accès aux données
    Réponses: 1
    Dernier message: 17/04/2007, 10h50
  2. vb.net: path et label
    Par 1coni dans le forum Windows Forms
    Réponses: 1
    Dernier message: 16/06/2006, 11h37
  3. [VB.NET] ligne et cadre
    Par olbi dans le forum Windows Forms
    Réponses: 4
    Dernier message: 15/04/2006, 20h22
  4. [Vb.net] ligne du dataset
    Par prophetky dans le forum Windows Forms
    Réponses: 2
    Dernier message: 21/12/2005, 10h05
  5. [VB.NET] [ListBox / ComboBox] Label de l'item sélectionné?
    Par Giuseppe dans le forum Windows Forms
    Réponses: 5
    Dernier message: 14/12/2005, 14h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo