Discussion :

[djouk]

Bonjour,

J'ai créer un user Control. le problème j'arrive pas a l'ajouter dans ma form en Click sur un button

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports WindowsControlLibrary1
Public Class frm1
   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New fleche
        f.X1 = 1
        f.Y1 = 23
        f.X2 = 9
        f.Y2 = 78
        f.panderation = 12
        Me.Controls.Add(f)
 
    End Sub
 
end class

[Pol63]

le code a l'air bon, après ca peut etre plein de choses comme le controle qui s'ajoute bien mais à un endroit non visible (hors fenetre ou sous un autre)

[djouk]

Bonjour,

apres votre reponse j'ai changer mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New fleche
        f.X1 = 1
        f.Y1 = 23
        f.X2 = 9
        f.Y2 = 78
        f.panderation = 12
        f.Location = New Point(132, 123)
        Me.Controls.Add(f)
 
    End Sub

mais toujours rien mon contrôle flèche n'apparait pas dans la form

[keats]

Effectivement, le code semble correct. As-tu essayé d'ajouter un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.BringToFront()

Après ton Controls.Add au cas où il serait bien caché par un autre control.

[Danyel]

Ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.visible=true

[methylene]

Ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.visible=true

Si je ne me trompe pas les contôles que l'on ajoute ont la propriété "visible" à True par défaut.

[Danyel]

Si je ne me trompe pas les contôles que l'on ajoute ont la propriété "visible" à True par défaut.

Tout depends de son objet fleche et de ses attributs

[djouk]

Bonjour,

merci pour les réponses maintenant ça marche très bien voici le nouveau code .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
  Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New fleche
        f.X1 = 1
        f.Y1 = 23
        f.X2 = 9
        f.Y2 = 78
        f.panderation = 12
        f.Size = New Size(123, 345)
        f.Location = New Point(132, 123)
        f.BringToFront()
        Me.Controls.Add(f)
        f.BringToFront()
    End Sub

mais il faut toujours détermine le size du contrôle et ca c'est pas bon pour moi
je veux savoir est ce que possible de rendre le size automatiquement (autosize)