Soyez le premier à donner votre avis sur cette source.
Vue 3 509 fois - Téléchargée 294 fois
Option Explicit Dim I As Integer Dim j As Integer Dim k As Integer Dim chaine As String Dim choisi As Boolean Private Sub Button1_Click() If choisi = True Then k = List1.ListCount I = List1.ListIndex chaine = List1.Text j = List1.ListIndex + 1 If j = k Then MsgBox "Aïe ! La tête dans le cul...", vbCritical, "Erreur..." Else List1.RemoveItem (I) Call List1.AddItem(chaine, j) List1.Refresh List1.Selected(j) = True End If Else MsgBox "Veuillez sélectionner une fonction avant !", vbCritical, "Erreur..." End If End Sub Private Sub List1_Click() choisi = True End Sub
8 sept. 2004 à 18:13
4 févr. 2003 à 19:19
C'est à dire que ça te présélectionne le texte qu'il y a dans ton listbox .
Pour l'instant, il est sensible a la casse mais c'est trés facile de l'en rendre insensible
Donc, si ça vous dis, suffit de me le dire
4 févr. 2003 à 12:36
Pourrais tu mettre une source...pour donner un exemple
STP (je ne comprend pas tout, faut-il charger des item...?)
Merci d'avance
ps :
- pour http://www.vbfrance.com/article.aspx?Val=7385
- et pour http://www.vbfrance.com/article.aspx?Val=7384
Keneyda
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.