Problème bouton [Résolu]

Signaler
-
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
-
Bonjour a tous,

je suis actuellement entrain de construire une petite application en VB.NET et j'ai un petit soucis sur mon formulaire principal. C'est à dire que tout les boutons et le bouton quitter ne fonctionne pas, je peux cliquer dessus mais il ne se passe rien. Si vous avez des idées je suis prenante.


Merci d'avance Amandine.

13 réponses

Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
5
Amandine,

Entendu, problème réglé donc, cordialement, Joe.
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Salut

C'est à dire que tout les boutons et le bouton quitter ne fonctionne pas, je peux cliquer dessus mais il ne se passe rien.



clique plus fort peut etre avec un marteau

tu es penses qu'on va deviner
Montre le codes c tout pour toi!!!


Soyons Toujours à la disposition des autres
Mon code est le suivant :


Imports System.Data.SqlClient
Imports System.Windows.Forms


Public Class Form1



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'DataSet11.information'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        'Me.InformationTableAdapter.Fill(Me.DataSet11.information)
        'TODO: cette ligne de code charge les données dans la table 'DataSet1.information'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.InformationTableAdapter.Fill(Me.DataSet1.information)
        'TODO: cette ligne de code charge les données dans la table 'DataSet1.materiel'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.MaterielTableAdapter.Fill(Me.DataSet1.materiel)

    End Sub



    Private Sub lst_materiel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_materiel.SelectedIndexChanged
        Dim idmateriel As New DataView

        idmateriel.Table = DataSet1.information
        idmateriel.RowFilter = "id_materiel=" & lst_materiel.SelectedItem(0)
        DataGridView1.DataSource = idmateriel
    End Sub






    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Dim i As Integer = e.RowIndex 'Numero de la ligne
        Dim col1 As String
        Dim col2 As String
        Dim col3 As String
        Dim col4 As String
        Dim col5 As String
        Dim col6 As String


        col1 = Me.DataGridView1.Rows(i).Cells(0).Value.ToString
        col2 = Me.DataGridView1.Rows(i).Cells(1).Value.ToString
        col3 = Me.DataGridView1.Rows(i).Cells(2).Value.ToString
        col4 = Me.DataGridView1.Rows(i).Cells(3).Value.ToString
        col5 = Me.DataGridView1.Rows(i).Cells(4).Value.ToString
        col6 = Me.DataGridView1.Rows(i).Cells(5).Value.ToString




        Details.txt_lieu.Text = col1
        Details.txt_adresseip.Text = col2
        Details.txt_idinfo.Text = col6
        Details.txt_type.Text = col3
        Details.txt_nserie.Text = col4
        Details.ShowDialog()




    End Sub

   
   
    
  
    Private Sub btn_quitter_Click(sender As Object, e As EventArgs) Handles btn_quitter.Click
        Me.Close()
    End Sub



    Private Sub btn_valider_Click(sender As Object, e As EventArgs) Handles btn_valider.Click
        Me.InformationBindingSource.EndEdit()
        Me.InformationTableAdapter.Update(Me.DataSet1.information)
    End Sub


   
End Class
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
5
Bonjour,

btn_quitter_Click(sender As Object, e As EventArgs) Handles btn_quitter.Click
 End
End Sub


Mais ça sert à rien la form a déjà de quoi la quitter avec sont bouton rouge en [X].

Cordialement, Joe.
Bonjour,

le bouton quitter en rouge en haut de la page ne fonctionne pas.

Cordialement, Amandine.
le bouton quitter en rouge en haut de la page ne fonctionne pas.

peut être
Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        End
    End Sub



Soyons Toujours à la disposition des autres
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
5
Bonjour Amamdine,

Comme le souligne "MINDONGO" j'avais oublié le mot clef sub en début d'instruction.

Ton bouton de fermeture ne fonctionne pas ? Ah bon... Qu'as-tu fais à ton programme auparavant ?

Peux-tu mettre une procédure évènementielle closing en fin de code, et afficher dedans un message, et dire quand tu appuies sur le bouton rouge si le message s'affiche ?

Au plaisir, cordialement.
Rebonjour Joe,

J'ai rajouté ceci,

Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
MessageBox.Show("Voulez vous enregistrer?")        
End
    End Sub



Quand je clique sur mon bouton il m'affiche bien le message et fonctionne correctement.

Cordialement Amandine.
Public Class Form1
   Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim MINDONGO As Integer
        MINDONGO = MsgBox("Are you sure you want to quit?", vbYesNo + vbQuestion, "Quit")
        If MINDONGO = vbYes Then
            End
            'code ta suite ici en cas de non
        End If
    End Sub
End Class



Soyons Toujours à la disposition des autres
Merci beaucoup pour le code MINDONGO ca marche parfaitement par contre j'aimerais ajouter des données dans mon datagridview et il ne me le permet pas j'ai beau cliquer sur la cellule rien ne se passe alors que j'ai bien autorisé l'ajout, la modification et la suppression sur le datagrid.

Tout ça pour que se mette dans ma bdd ensuite.
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
5
Amandine...

J'en déduis que le END en dessous n'est pas exécuté.

Ecris dans closing :

reset
e.cancel = false
msgbox("closing")
end



Au plaisir, cordialement, Joe.
Joe,
C'est juste qu'il faut que je clique sur ok dans ma fenetre, et ça se ferme ensuite. Donc ca doit être bon non ?