Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression ne
font pas appel à une routine qui recréerait les listes de novo. J'utilise
simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression ne
font pas appel à une routine qui recréerait les listes de novo. J'utilise
simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression ne
font pas appel à une routine qui recréerait les listes de novo. J'utilise
simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox
différents. J'ai deux jeux de boutons de commande pour ajouter,
renommer et supprimer des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage,
l'élément suivant l'élément supprimé après une suppression (ou le
précédent si l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec
les propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et
suppression ne font pas appel à une routine qui recréerait les listes
de novo. J'utilise simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox
différents. J'ai deux jeux de boutons de commande pour ajouter,
renommer et supprimer des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage,
l'élément suivant l'élément supprimé après une suppression (ou le
précédent si l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec
les propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et
suppression ne font pas appel à une routine qui recréerait les listes
de novo. J'utilise simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox
différents. J'ai deux jeux de boutons de commande pour ajouter,
renommer et supprimer des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage,
l'élément suivant l'élément supprimé après une suppression (ou le
précédent si l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec
les propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et
suppression ne font pas appel à une routine qui recréerait les listes
de novo. J'utilise simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec
les propriétés ListIndex et NewIndex.
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec
les propriétés ListIndex et NewIndex.
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec
les propriétés ListIndex et NewIndex.
Bonsoir,
Compliqué ton truc :o)
Tu dis:
"Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox."
Déjà là, tu dis que tu mets tes listes dans des pictures, on pourrait même
pense que tes boutons sont dans la Picture ???
Cette propriété là devrait avoir de l'intérêt pour toi:
nomlist.TopIndex
------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy Lafrenière" a écrit dans le message de news:Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression ne
font pas appel à une routine qui recréerait les listes de novo. J'utilise
simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Bonsoir,
Compliqué ton truc :o)
Tu dis:
"Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox."
Déjà là, tu dis que tu mets tes listes dans des pictures, on pourrait même
pense que tes boutons sont dans la Picture ???
Cette propriété là devrait avoir de l'intérêt pour toi:
nomlist.TopIndex
------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy Lafrenière" <guylafreniere@yahoo.ca> a écrit dans le message de news:
OpqmRQGTGHA.4600@TK2MSFTNGP11.phx.gbl...
Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression ne
font pas appel à une routine qui recréerait les listes de novo. J'utilise
simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Bonsoir,
Compliqué ton truc :o)
Tu dis:
"Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox."
Déjà là, tu dis que tu mets tes listes dans des pictures, on pourrait même
pense que tes boutons sont dans la Picture ???
Cette propriété là devrait avoir de l'intérêt pour toi:
nomlist.TopIndex
------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy Lafrenière" a écrit dans le message de news:Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression ne
font pas appel à une routine qui recréerait les listes de novo. J'utilise
simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Fred disait :
Dans ce cas, je ne vois qu'un passage en trop dans une routine
d'initialisation. Il semblerait que la liste soit chargée à partir d'un
recordset.
Je mettrais des points d'arrêt à tous les endroits où la liste est remplie
pour voir ce qui se passe.
Ce peut-être dans un appel à l'évènement Activate ? (puisque je vois que
tu ouvres une autre fenêtre).
Fred disait :
Dans ce cas, je ne vois qu'un passage en trop dans une routine
d'initialisation. Il semblerait que la liste soit chargée à partir d'un
recordset.
Je mettrais des points d'arrêt à tous les endroits où la liste est remplie
pour voir ce qui se passe.
Ce peut-être dans un appel à l'évènement Activate ? (puisque je vois que
tu ouvres une autre fenêtre).
Fred disait :
Dans ce cas, je ne vois qu'un passage en trop dans une routine
d'initialisation. Il semblerait que la liste soit chargée à partir d'un
recordset.
Je mettrais des points d'arrêt à tous les endroits où la liste est remplie
pour voir ce qui se passe.
Ce peut-être dans un appel à l'évènement Activate ? (puisque je vois que
tu ouvres une autre fenêtre).
Bonjour X,
Je m'étonne de ton étonnement.
Ma form est un assistant avec des boutons Précédent et Suivant comme on en
voit souvent dans Windows. Chaque étape de l'assistant est placé dans son
propre PictureBox. On rend visible un PictureBox à la fois selon l'étape
où on est rendu. Rien de compliqué quand on l'a déjà fait une fois.
Je te remercie pour ta suggestion d'utiliser la propriété TopIndex mais ce
n'est d'aucune utilité. La propriété TopIndex sert à déterminer quel item
sera visible en haut du contrôle ListBox lorsque celui-ci n'est pas assez
haut pour afficher d'un coup tous les items. Mes ListBox sont suffisamment
hauts pour que tous les items à la fois soient visibles.
---------------------------------------------------------------------------------------------------------------------------
"X" a écrit dans le message de news:Bonsoir,
Compliqué ton truc :o)
Tu dis:
"Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox."
Déjà là, tu dis que tu mets tes listes dans des pictures, on pourrait
même pense que tes boutons sont dans la Picture ???
Cette propriété là devrait avoir de l'intérêt pour toi:
nomlist.TopIndex
------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy Lafrenière" a écrit dans le message de
news:Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et
supprimer des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression
ne font pas appel à une routine qui recréerait les listes de novo.
J'utilise simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Bonjour X,
Je m'étonne de ton étonnement.
Ma form est un assistant avec des boutons Précédent et Suivant comme on en
voit souvent dans Windows. Chaque étape de l'assistant est placé dans son
propre PictureBox. On rend visible un PictureBox à la fois selon l'étape
où on est rendu. Rien de compliqué quand on l'a déjà fait une fois.
Je te remercie pour ta suggestion d'utiliser la propriété TopIndex mais ce
n'est d'aucune utilité. La propriété TopIndex sert à déterminer quel item
sera visible en haut du contrôle ListBox lorsque celui-ci n'est pas assez
haut pour afficher d'un coup tous les items. Mes ListBox sont suffisamment
hauts pour que tous les items à la fois soient visibles.
---------------------------------------------------------------------------------------------------------------------------
"X" <X@Y.Z> a écrit dans le message de news:
Okz2ikGTGHA.792@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Compliqué ton truc :o)
Tu dis:
"Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox."
Déjà là, tu dis que tu mets tes listes dans des pictures, on pourrait
même pense que tes boutons sont dans la Picture ???
Cette propriété là devrait avoir de l'intérêt pour toi:
nomlist.TopIndex
------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy Lafrenière" <guylafreniere@yahoo.ca> a écrit dans le message de
news: OpqmRQGTGHA.4600@TK2MSFTNGP11.phx.gbl...
Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et
supprimer des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression
ne font pas appel à une routine qui recréerait les listes de novo.
J'utilise simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Bonjour X,
Je m'étonne de ton étonnement.
Ma form est un assistant avec des boutons Précédent et Suivant comme on en
voit souvent dans Windows. Chaque étape de l'assistant est placé dans son
propre PictureBox. On rend visible un PictureBox à la fois selon l'étape
où on est rendu. Rien de compliqué quand on l'a déjà fait une fois.
Je te remercie pour ta suggestion d'utiliser la propriété TopIndex mais ce
n'est d'aucune utilité. La propriété TopIndex sert à déterminer quel item
sera visible en haut du contrôle ListBox lorsque celui-ci n'est pas assez
haut pour afficher d'un coup tous les items. Mes ListBox sont suffisamment
hauts pour que tous les items à la fois soient visibles.
---------------------------------------------------------------------------------------------------------------------------
"X" a écrit dans le message de news:Bonsoir,
Compliqué ton truc :o)
Tu dis:
"Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et supprimer
des éléments dans ces ListBox."
Déjà là, tu dis que tu mets tes listes dans des pictures, on pourrait
même pense que tes boutons sont dans la Picture ???
Cette propriété là devrait avoir de l'intérêt pour toi:
nomlist.TopIndex
------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy Lafrenière" a écrit dans le message de
news:Bonjour Collègues,
Dans une fenêtre j'ai deux ListBox placé dans des PictureBox différents.
J'ai deux jeux de boutons de commande pour ajouter, renommer et
supprimer des éléments dans ces ListBox.
Je voudrais que le bon élément soit sélectionné après une opération
d'ajout, renommage ou suppression: le nouvel élément ajouté après un
ajout, l'élément qui vient d'être renommé après un renommage, l'élément
suivant l'élément supprimé après une suppression (ou le précédent si
l'élément supprimé était le dernier élément de la liste).
Je n'y arrive pas. J'ai essayé de toutes les manières de jouer avec les
propriétés ListIndex et NewIndex. Rien à faire! Après chacune des
opérations, c'est toujours le premier élément de la liste qui est
sélectionné. Pourtant mes opérations d'ajout, renommage et suppression
ne font pas appel à une routine qui recréerait les listes de novo.
J'utilise simplement les méthodes AddItem, RemoveItem,
MyListBox.List(intListIndex).Text = "NewValue".
Je joins ci-dessous mon code pour la commande Ajouter. Si je peux faire
fonctionner cette commande-là, ce sera sans doute la même solution pour
les autres.
Quelqu'un a-t-il une piste?
Merci à l'avance!
Guy Lafrenière
Voici mon code:
Private Sub cmdAjouterProfil_Click()
Dim strValeur As String
On Error GoTo Erreur
Set frmInputBox = New FInputBox
With frmInputBox
.InputFormCaption = "Ajouter un profil de sauvegarde"
.InputLabelCaption = "Entrez un nom descriptif pour le profil de
sauvegarde."
.ValueType = ibString
.Value = ""
.Show vbModal
strValeur = .Value
If Len(strValeur) > 0 Then
adorsProfils.AddNew
adorsProfils.Fields("NomProfil") = strValeur
adorsProfils.Update
lstProfils.AddItem strValeur
cmdRenommerProfil.Enabled = True
cmdSupprimerProfil.Enabled = True
End If
End With
Set frmInputBox = Nothing
Exit Sub
Erreur:
Set frmInputBox = Nothing
MsgBox Err.Description & vbCrLf & "Source:
FMain:cmdAjouterProfilClick", _
vbOKOnly + vbCritical,
"Erreur"
End Sub
Bonsoir, je partais du fait que généralement on met des images dans une
Picture, et des listes et boutons dans une frame plutôt :o)
Bonsoir, je partais du fait que généralement on met des images dans une
Picture, et des listes et boutons dans une frame plutôt :o)
Bonsoir, je partais du fait que généralement on met des images dans une
Picture, et des listes et boutons dans une frame plutôt :o)
