Heure et text.box [Résolu]

Messages postés
25
Date d'inscription
dimanche 20 septembre 2015
Dernière intervention
10 janvier 2016
- 25 nov. 2015 à 10:16 - Dernière réponse :
Messages postés
25
Date d'inscription
dimanche 20 septembre 2015
Dernière intervention
10 janvier 2016
- 29 nov. 2015 à 17:49
Bonjour amis programmeurs,

Je réalise un petit soft lire/ecrire. lorsque je créer mon fichier je veux que l'heure s'ajoute avec le texte en fin de rédaction. Pour l'instant mon heure s'affiche bien dans ma text box, mais dès que je veux écrire du texte avec retour à la ligne, mon curseur se place au tout début à coté de l'heure, donc impossible de taper du texte. Text box en mutiline.

Imports System.IO
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim HasError As Boolean = False
EP.Clear()

If TextBox1.Text.Length = 0 Then
EP.SetError(TextBox1, "Taper du texte")
'SaveFileDialog1.ShowDialog()
End If
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim SW As New StreamWriter(SaveFileDialog1.FileName)
SW.Write(TextBox1.Text)
SW.Close()

End If
If HasError Then
Exit Sub
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim SR As New StreamReader(OpenFileDialog1.FileName)
TextBox2.Text = SR.ReadToEnd
SR.Close()
End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim SW As New StreamWriter(OpenFileDialog1.FileName)
SW.Write(TextBox2.Text)
SW.Close()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'LblDate.Text = Format(Now, "hh:mm:ss")
TextBox1.Text = Date.Now.ToString("dd-MM-yy / " & TimeOfDay)

End Sub


End Class


Si vous pouviez me conseiler ou corriger.

Bonne journée à tous
Afficher la suite 

Votre réponse

4 réponses

Messages postés
454
Date d'inscription
mardi 24 octobre 2000
Dernière intervention
12 août 2016
- 25 nov. 2015 à 11:22
0
Merci
salut

et si tu ajoutes l'heure au moment d'enregistré.
tu tapes ton texte tranquille, et lorsque tu enregistres tu mets l'heure et la date.
Messages postés
25
Date d'inscription
dimanche 20 septembre 2015
Dernière intervention
10 janvier 2016
- 29 nov. 2015 à 15:40
Ok je vais essayer ça dès que j'aurais 10min, merci de ta réponse
salut,
pour le multi-ligne dune textbox il te faut activer l'option ou alors passer par une richtextbox qui est par defaut en multi-ligne.
Pour ce qui est de l'enregistrement de l'heure tu peut procéder ainsi:

Dim SW As New StreamWriter(SaveFileDialog1.FileName)
SW.Write(TextBox1.Text 1& vbcrlf)
SW.Write(Date.Now.ToString("dd-MM-yy / " & TimeOfDay))
SW.Close()
Messages postés
25
Date d'inscription
dimanche 20 septembre 2015
Dernière intervention
10 janvier 2016
> Rykudos - 29 nov. 2015 à 17:49
Extra pour la réponse, je vais appliquer ça dès que je retourne dessus, merci
Commenter la réponse de ManuAntibes

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.