Sujet Précédent Sujet Suivant

Bouton avec clic

Résolu
scromania Messages postés 453 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 - 14 févr. 2012 à 09:52
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 - 14 févr. 2012 à 11:45
bonjour,

je parviens pas à mettre en place le clique sur un bouton que je crée dans une form depuis un module voici mon code: 
  Private Sub frmAuthentificationOledb()

        If My.Settings.sUserOledb "" And My.Settings.sPassOledb "" Then

            Dim frmOledb As New Form
            Dim txtUser As New TextBox
            Dim txtPass As New TextBox
            Dim lbUser As New Label
            Dim lbPass As New Label


            frmOledb.Select()
            frmOledb.FormBorderStyle = FormBorderStyle.Fixed3D
            frmOledb.Text = "Paramètre de connexion à la base"
            frmOledb.Size = New Size(400, 200)
            frmOledb.StartPosition = FormStartPosition.CenterScreen

            txtUser.Location = New Point(200, 50)
            txtPass.Location = New Point(200, 80)
            lbUser.Location = New Point(110, 50)
            lbPass.Location = New Point(120, 80)
            btnEnregistre.Location = New Point(200, 110)

            btnEnregistre.Text = "Enregistrer"

            txtUser.Parent = frmOledb
            txtPass.Parent = frmOledb
            lbUser.Parent = frmOledb
            lbPass.Parent = frmOledb
            btnEnregistre.Parent = frmOledb

            lbUser.Text = "Nom d'utilisateur : "
            lbPass.Text = "Mot de passe : "

            frmOledb.ShowDialog()


        Else


        End If




    End Sub


donc je créer 2 textbox,2 label et 1 bouton,comme pour faire en mode Design je souhaite mettre en place le clique sur le btnEnregistre.

Par avance merci.

2 réponses

Réponse 1 / 2
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 72
14 févr. 2012 à 10:00
voir
AddHandler


Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
3
Réponse 2 / 2
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 56
14 févr. 2012 à 11:45
Salut

où est la déclaration de
btnEnregistre
et aussi les controls crées dynamiquement il
faut les ajouter à ta form (au control container
qui les contient) 
frmOledb.Controls.Add(txtUser)
etc...
declarer un évenement à un control crée dynamiquement 
AddHandler toncontrol.MouseClick, AddressOf  toncontrolclick
3
Rejoignez-nous