utilisation de mshflexgridRésolu

Question

Bonjour, 
je débute en VB6 et je travaille en ce moment sur l'objet MSHFLEXGRID .Ce que j'aimerai c'est tant qu'on a pas sélectionner une ligne on ne peut pas en supprimer.Or avec la fonction que j'ai faite , meme si je ne sélectionne pas une ligne et que j'appuie sur le bouton supprimer , une ligne est supprimée.
Si quelqu'un pourrait m'aider , il m'arrangerait beaucoup.
merci

//////////////////
Private Sub Supprimer_Click()
Dim Msg As String
Dim Sup As String
    
    If MSHFlexGrid1.RowSel Then
            Msg = " Voulez- vraiment supprimer cette station ?"
            Sup = MsgBox(Msg, vbCritical + vbYesNo + 256, "Attention")
          If Sup = vbYes Then
            If MSHFlexGrid1.Rows = 2 Then
            MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
      MSHFlexGrid1.RemoveItem MSHFlexGrid1.RowSel
           
         Else
        MSHFlexGrid1.RemoveItem MSHFlexGrid1.RowSel
          
          End If
      End If
  Else
 Msg = " Veuillez sélectionner une ligne ?"
end if

cs_Galain · Accepted Answer

Private ligneselect as long (si = 0 : aucune sélectionnée à initialiser à 0 dans le Form Load)

Private MShflexgrid1.Click() ' pour sélectionner une ligne

      ligneselect& = Mshflexgrid1.rowsel

End sub

Private Sub Supprimer_Click()

Dim Sup As Long    
    If ligneselect& > 0 then Then
            Sup = MsgBox(" Voulez- vraiment supprimer cette station ?", vbCritical + vbYesNo + 256, "Attention")
            If Sup = vbYes Then
                  If MSHFlexGrid1.Rows = 2 Then
                      MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
                  End if
            MSHFlexGrid1.RemoveItem ligneselect&
          End if
      Else
           Msgbox"Veuillez sélectionner une ligne ", VbInformation
     End if
     ligneselect& = 0

End sub

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

lillith212 · Answer

Bonjour,

Tu dois intercepter l'evenement keypress
Bon courage

S.L.B.
<hr />

kakodien · Answer

Bonjour,
merci de la réponse lillith212, je vais essayer d'intercepter l'évènement keypressed

kakodien · Answer

Salut,
en fait je ne vois pas pourquoi keypress vu que ya pas de touche à appuyer sur le clavier

kakodien · Answer

Salut,
en fait je ne vois pas pourquoi keypress vu que ya pas de touche à appuyer sur le clavier

kakodien · Answer

Merci galain pour l'aide , je l'ai testé et la fonction marche .
bonne soirée

Utilisation de mshflexgrid

6 réponses

Votre réponse

Discussions similaires