Voila, j'avais dis que je ferai ca pour le pendu (
http://www.vbfrance.com/article.asp?Val=3930)... Le dictionnaire contient approx. 150000 mots de la langue française, donc c'est un peu lourd... vous pouvez en supprimer, c'est un fichier .txt de 1.64Mo...
Source / Exemple :
'
' !! Tout ceci est dans le source !!
'
' A METTRE DANS LE CODE D'UN FORM
' Il faut :
' 2 Labels ("lblNumberWords" et "lblAleaWod")
' 1 CommandButton ("cmdAlea")
Dim sWords() As String
Private Sub cmdAlea_Click()
Randomize Timer
lblAleaWord.Caption = sWords(Int((UBound(sWords) * Rnd) + 1))
End Sub
Private Sub Form_Load()
Dim sDicoPath As String
ReDim sWords(0)
' Nom du fichier
sDicoPath = App.Path
If Right$(sDicoPath, 1) <> "\" Then sDicoPath = sDicoPath + "\"
sDicoPath = sDicoPath & "fr.txt"
Open sDicoPath For Input As #1
Do While Not EOF(1)
Line Input #1, sWords(UBound(sWords))
ReDim Preserve sWords(UBound(sWords) + 1)
Loop
Close #1
lblNumberWords.Caption = UBound(sWords)
End Sub
Conclusion :
Comme la source fait + de 250Ko (lle fait 350Ko) elle est dispo ici :
http://www.seyev.com/~files/dico_alea.zip
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.