Bouton avec clic [Résolu]

Signaler
Messages postés
453
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
11 janvier 2013
-
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
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

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
voir
AddHandler


Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
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