Exemple d'utilisation de randomize
0/5 (1 avis)
Vue 3 243 fois - Téléchargée 320 fois
Description
Ptite source que j'ai fait a l'arache suite a une question sur le forum .... Et allé pas critiquer tel que je vous connais....
Allé A++ et bonne prog a tous ;)
DeAtH_-_CrAsH [;)]
Dommage qu'il n'y est pas une section niveau 0 sinon c'est la bas que j'aurais foutu cette source...!
Allé A++ et bonne prog a tous ;)
DeAtH_-_CrAsH [;)]
Source / Exemple :
Private Sub Command1_Click()
With cdl
.DialogTitle = "Ouvrir le fichier texte..."
.Filter = "Fichier texte(*.txt)|*.txt"
.FilterIndex = 0
.ShowOpen
End With
rtb.LoadFile (cdl.FileName)
End Sub
Private Sub Command2_Click()
If rtb.Text = vbNullString Then Exit Sub
Dim MyTab() As String
MyTab() = Split(rtb.Text, " ")
a = UBound(MyTab)
b = 0
While b < 1
Randomize
i = Int(Rnd * a) + 2
If i <= a And MyTab(i) <> vbNullString Then
Text1.Text = MyTab(i)
b = 3
End If
Wend
End Sub
Conclusion :
Dommage qu'il n'y est pas une section niveau 0 sinon c'est la bas que j'aurais foutu cette source...!
Codes Sources
A voir également
- Exemple d'utilisation de randomize
- Visual Basic / VB.NET : Exemple simple utilisant les controles list combo shape text option check... - Guide
- Visual Basic / VB.NET : Exemple d'utilisation de winsock getcookie & setcookie pour ancien prog - Guide
- Visual Basic / VB.NET : Exemple d'utilisation du contrôle déposé le 7/12/02 : re - Guide
- Visual Basic / VB.NET : Exemple d'utilisation du flag cdlofnoverwriteprompt avec le commondialog - C - Guide
- Exemple d'utilisation d'une capture twain et ocx environnement xp. - Codes sources - Visual Basic / VB.NET (Périphériques)
12 mai 2002 à 00:39
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.