user contrôle dynamiquement

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:

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

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)

Bonjour,

apres votre reponse j'ai changer mon code

Code:

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

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

Code:

f.BringToFront()

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

Ou encore

Code:

f.visible=true

Citation:

Envoyé par Danyel

Ou encore

Code:

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.

Citation:

Envoyé par methylene

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 ;)

Bonjour,

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

Code:

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)

Citation:
Envoyé par djouk
Bonjour,

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

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
Petit note : Le BringToFront() avant le Controls.Add n'a pas lieu d'être :zoubi:

Citation:

Envoyé par djouk

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)

Soit tu définis la propriété Size par défaut de ton control dans sa partie InitializeComponent ou dans son constructeur (Sub New).
Pour l'autosize de ton control, tu dois pouvoir faire quelque chose avec sa propriété Anchor.