Sujet Précédent Sujet Suivant

Heure et text.box

Résolu
Legros4960 Messages postés 25 Date d'inscription dimanche 20 septembre 2015 Statut Membre Dernière intervention 10 janvier 2016 - Modifié par Legros4960 le 25/11/2015 à 10:17
Legros4960 Messages postés 25 Date d'inscription dimanche 20 septembre 2015 Statut Membre 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
A voir également:

1 réponse

Réponse 1 / 1
ManuAntibes Messages postés 491 Date d'inscription mardi 24 octobre 2000 Statut Membre Dernière intervention 18 novembre 2021 5
25 nov. 2015 à 11:22
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.
0
Legros4960 Messages postés 25 Date d'inscription dimanche 20 septembre 2015 Statut Membre 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
0
Rykudos
29 nov. 2015 à 17:26
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()
0
Legros4960 Messages postés 25 Date d'inscription dimanche 20 septembre 2015 Statut Membre 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
0
Rejoignez-nous