none
Ouvrir NotePad et y coller le contenu du ClipBoard RRS feed

  • Question

  • Bonjour, j'ai un code dans un window qui me permet de copier dans un RichTextBox le contenu d'un message d'erreur.

    Voici ce code :

     Private Sub File_Click(sender As Object, e As RoutedEventArgs)
            Dim Classeur As String = "C:\Users\Propriétaire\Documents\Classeur1.xlsx"
            Try
                Process.Start(Classeur)
            Catch ex As Exception
                Dim erreur As String = (ex.Message & vbLf & ex.StackTrace)
    
                ExContent.Document.Blocks.Add(New Paragraph(New Run(erreur)))
            End Try
    
    
        End Sub

    Serait-il possible d'ouvrir notepad et d'y coller cette erreur plutôt que d'utiliser le RichTextBox :

    Voici l'idée de code :

      Private Sub File_Click(sender As Object, e As RoutedEventArgs)
            Dim Classeur As String = "C:\Users\Propriétaire\Documents\Classeur1.xlsx"
            Try
                Process.Start(Classeur)
            Catch ex As Exception
                Dim erreur As String = (ex.Message & vbLf & ex.StackTrace)
                Clipboard.Clear()
                Clipboard.SetText(erreur)
                Process.Start("notepad.exe")
                'ici on colle le contenu du ClipBoard dans notepad
            End Try
    
    
        End Sub


    JF Collombet ® CreateSpecificCulture

    jeudi 25 août 2016 05:48

Réponses

  • Du coup j'ai trouvé la solution :

      Private Sub File_Click(sender As Object, e As RoutedEventArgs)
            Dim Classeur As String = "C:\Users\Propriétaire\Documents\Classeur1.xlsx"
            Dim Note As String = "C:\Dropbox\Trace\Ex&StackTrace\Trame.txt"
            Try
                Process.Start(Classeur)
            Catch ex As Exception
                Dim erreur As String = (ex.Message & vbLf & ex.StackTrace)
                IO.File.WriteAllText(Note, erreur)
            End Try
        End Sub


    JF Collombet ® CreateSpecificCulture

    jeudi 25 août 2016 06:03