Gestion du hasard

Bonjour les membres Vbfrance.com,
J'ai deux questions à vous poser la première consiste à savoir comment insérer dans un textbox une valeur "Pomme" à un endroit défini au hasard du moment qu'il y à une valeure avant "Manger des" par exemple le programme choisi la ligne : 25 col : 10 mais c'est écrit sa "les frîtes pourquoi pas" alors le programme ne met par la valeur "?Pomme" par contre si c'est écrit sa (exemple) "Franchement j'adore manger des c'est super" alors le programme peut mettre la valeure "Pomme". Et ma deuxième question est tout simple mais je sais pas du tout comment faire en fait :) je choisi une valeure au hasard dans une listbox par ce moyen liste1.List(text1.Text * Rnd + 1) et malheuresement après j'aimerai supprimer de la listbox la valeure selectionnée par le programme

Merci d'avance

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

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):