Gestion du hasard
maxsecurite2
Messages postés
181
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
9 avril 2010
-
24 août 2006 à 20:10
cedvinc Messages postés 19 Date d'inscription mercredi 28 juillet 2004 Statut Membre Dernière intervention 15 décembre 2007 - 24 août 2006 à 21:18
cedvinc Messages postés 19 Date d'inscription mercredi 28 juillet 2004 Statut Membre Dernière intervention 15 décembre 2007 - 24 août 2006 à 21:18
A voir également:
- Roue aléatoire lettre
- Mot au hasard ✓ - Forum C
- Lettre au hasard ✓ - Forum Java
- Lettre aléatoire - Forum Visual Basic
- Gestion des demandes d'intervention - Forum PHP
- Gestion association joomla - Forum PHP
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
24 août 2006 à 21:04
24 août 2006 à 21:04
Salut
Ne t'attends pas à avoir des réponses : ta première question est complètement incompréhensible (en plus des fautes dorthographe).
Tu parles de lignes, de colonnes :
Tu es vraiment sous VB6 ? alors précise à quel composant appartiennent ces lignes et colonnes
Tu es sous Excel ?
Pour la question du hasard :
Oui, Rnd renvoie une valeur pseudo aléatoire, mais la valeur renvoyée est un type Single, c'est à dire un chiffre à virgule entre 0 et 1.
Si tu veux sélectionner au hasard un Item dans une ListBox :
NoItem = CInt(Rnd() * (Liste1.ListCount - 1))
Le 1er Item d'une ListBox est 0 (pas 1)
Le texte de la ListBox contenu à l'index 'NoItem' est Liste1.List(NoItem)
Si tu désires supprimer l'Item, il suffit ensuite de faire Liste1.RemoveItem NoItem
(Ces syntaxes sont données de tête, vérifie les)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro
Ne t'attends pas à avoir des réponses : ta première question est complètement incompréhensible (en plus des fautes dorthographe).
Tu parles de lignes, de colonnes :
Tu es vraiment sous VB6 ? alors précise à quel composant appartiennent ces lignes et colonnes
Tu es sous Excel ?
Pour la question du hasard :
Oui, Rnd renvoie une valeur pseudo aléatoire, mais la valeur renvoyée est un type Single, c'est à dire un chiffre à virgule entre 0 et 1.
Si tu veux sélectionner au hasard un Item dans une ListBox :
NoItem = CInt(Rnd() * (Liste1.ListCount - 1))
Le 1er Item d'une ListBox est 0 (pas 1)
Le texte de la ListBox contenu à l'index 'NoItem' est Liste1.List(NoItem)
Si tu désires supprimer l'Item, il suffit ensuite de faire Liste1.RemoveItem NoItem
(Ces syntaxes sont données de tête, vérifie les)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro
cedvinc
Messages postés
19
Date d'inscription
mercredi 28 juillet 2004
Statut
Membre
Dernière intervention
15 décembre 2007
24 août 2006 à 21:18
24 août 2006 à 21:18
Bonjour,
Pour ta première question pour insérer "Pomme" à la fin de ton texte, je te conseille d'utiliser le & qui permet dde concaténer les chaînes de caractère en faisant:
dim mot as char
mot = "manger"
textbox1.text=textbox1 & " " & mot
Remarque le caractère espace pour éviter d'avoir "Manger despommes".
Ta deuxième question pour supprimer d'une liste est d'utiliser la fonction Remove car tu connais la valeur à supprimer de ta liste par le clic (si ta deux listes et que tu veux position le curseur sur la deuxième au même niveau que l'autre (ex: coordonnées d'un point) en ayant cliquer sur le 1er):
Private
Sub List1_Click()
List2.ListIndex
= List1.ListIndex
End
Sub
Pour ta première question pour insérer "Pomme" à la fin de ton texte, je te conseille d'utiliser le & qui permet dde concaténer les chaînes de caractère en faisant:
dim mot as char
mot = "manger"
textbox1.text=textbox1 & " " & mot
Remarque le caractère espace pour éviter d'avoir "Manger despommes".
Ta deuxième question pour supprimer d'une liste est d'utiliser la fonction Remove car tu connais la valeur à supprimer de ta liste par le clic (si ta deux listes et que tu veux position le curseur sur la deuxième au même niveau que l'autre (ex: coordonnées d'un point) en ayant cliquer sur le 1er):
Private
Sub List1_Click()
List2.ListIndex
= List1.ListIndex
End
Sub
