Discussion :

[ghost emperor]

bonjour à tous,

Je suis en train de créer un frmulaire sur lequel, si une certaine personne se connecte (j'ai un formulaire d'identification avant), un bouton d'accès a la zone d'administration apparait. Le code pour faire apparaître le bouton est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' création du bouton
Dim AddUser AsNew Button
AddUser.Name = "AddUser"
AddUser.UseVisualStyleBackColor = True
AddUser.Text = "Administration"
AddUser.Width = 100
AddUser.Height = 35
AddUser.Left = 250
AddUser.Top = 535
 
Me.Controls.Add(AddUser)

Le bouton apparaît bien quand il le doit.

Ensuite, dans le code j'ai ceci :

Code :

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

1
2
3
4
5

PrivateSub AddUser_Click()
MsgBox("Hello wold !")
EndSub

Le compilateur ne signale aucune erreur, pourtant, quand je teste l'appli et que je clique sur le bouton rien ne se passe et je ne comprend pas pourquoi...

Quelqu'un aurait-il une solution ?

Merci d'avance

[dietrich]

il faut lui rajouter l evenement

si tu n y arrive pas

recherche ajouter un bouton dynamiquement sur le net

[leSeb]

Ecris un truc du style :

Code :

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

1
2
3
PrivateSub AddUser_Click(Byval sender As Object, Byval e As EventArgs) Handles AddUser.Click
   MsgBox("Hello wold !")
EndSub

[ghost emperor]

Ecris un truc du style :


Code :
PrivateSub AddUser_Click(Byval sender As Object, Byval e As EventArgs) Handles AddUser.Click
MsgBox("Hello wold !")
EndSub

Cela ne marche pas non plus.

Mais j'ai fini par trouver une solution qui fonctionne, il suffisait de rajouter un handler sur le bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' création du bouton
Dim AddUser AsNew Button
AddUser.Name = "AddUser"
AddUser.UseVisualStyleBackColor = True
AddUser.Text = "Administration"
AddUser.Width = 100
AddUser.Height = 35
AddUser.Left = 250
AddUser.Top = 535
Me.Controls.Add(AddUser)
AddHandler AddUser.Click, AddressOf AddUser_Click

et pour le click :

Code :

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

1
2
3
4
PrivateSub AddUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("Hello wold !")
EndSub

(ce qu'il y a dans les () n'est pas obligatoire apparament...)

Et donc comme ça sa marche