- Private Sub Command1_Click()
-
-
- ' Coller un Textbox dans votre form et un CommandButton
-
-
-
- 'Declare les variables
- Dim NbrLigne, I, Hasard, Phrase
-
- On Error GoTo Erreur
- Err.Number = Clear 'efface une eventuelle erreur ... (pas obligatoire mais prudent ...)
-
-
- For I = 1 To 2
- NbrLigne = 0
- Open "C:\Documents and Settings\Administrateur\Bureau\Blague.txt" For Input As #1
- Do While Not EOF(1)
- Line Input #1, Phrase
- NbrLigne = NbrLigne + 1
- If NbrLigne = Hasard Then Exit Do
- Loop
- ' Choisit une ligne au hasard ..
- Hasard = Int((Rnd * NbrLigne) + 1)
- Close #1 ' Ferme le fichier (obligatoire)
- Next I
-
- ' On décide de l'afficher ... mais vous faites ce que vous voulez après ... :)
- Text1.Text = Phrase
-
- Exit Sub
- Erreur: ' a part l'erreur d'ouverture di fichier inexistant, y'en a pas d'autres...
- MsgBox "Erreur boufon !!!" & vbCrLf & "Ton fichier n'existe pas ..."
- Err.Number = Clear
-
-
-
- End Sub
-
Private Sub Command1_Click()
' Coller un Textbox dans votre form et un CommandButton
'Declare les variables
Dim NbrLigne, I, Hasard, Phrase
On Error GoTo Erreur
Err.Number = Clear 'efface une eventuelle erreur ... (pas obligatoire mais prudent ...)
For I = 1 To 2
NbrLigne = 0
Open "C:\Documents and Settings\Administrateur\Bureau\Blague.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Phrase
NbrLigne = NbrLigne + 1
If NbrLigne = Hasard Then Exit Do
Loop
' Choisit une ligne au hasard ..
Hasard = Int((Rnd * NbrLigne) + 1)
Close #1 ' Ferme le fichier (obligatoire)
Next I
' On décide de l'afficher ... mais vous faites ce que vous voulez après ... :)
Text1.Text = Phrase
Exit Sub
Erreur: ' a part l'erreur d'ouverture di fichier inexistant, y'en a pas d'autres...
MsgBox "Erreur boufon !!!" & vbCrLf & "Ton fichier n'existe pas ..."
Err.Number = Clear
End Sub