dude_855
Messages postés2Date d'inscriptiondimanche 11 septembre 2005StatutMembreDernière intervention12 septembre 2005
-
12 sept. 2005 à 20:33
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 2006
-
12 sept. 2005 à 21:42
Salut ! Bon je suis archi débutant au ras des pâquerettes et j'aimerais
savoir comment intégrer du texte issu d'un fichier WordPad ou BlocNote
dans une zone type OLE ou du genre dans VB6. J'aimerais aussi avoir une
possibilité de mise à jour une fois le prog compilé...
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 12 sept. 2005 à 21:09
Bonsoir,
Voici une méthode parmis tant d'autres.Tu places sur ta Form un TextBox (propriété multiligne à True) et un CommandButton (cmdQuitter).
' Ouvre le fichier Text1.txt que la commande quitter a créé sur le disque
Private Sub Form_Load()
Dim crlf, tout, texte
On Error Resume Next 'Les erreurs sont ignorées
crlf = Chr(13) + Chr(10)
Open "C:\Text1.txt" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub
Private Sub cmdQuitter_Click()
Open "C:\Text1.txt" For Output As #1
Print #1, Text1.Text
Close #1
Unload Me
End Sub
'La commande quitter crée le fichier Text1.txt dans C:\ et enregistre ce que tu as écrits dans Text1