'Déclaration API nécessaire Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer 'Déclaration constante 'coller' Private Const WM_PASTE As Short = &H302S Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click ' Copie l'image choisie dans le presse-papier My.Computer.Clipboard.Clear() My.Computer.Clipboard.SetImage(Picture1.Image) ' Colle l'image contenue dans le presse papier à l'intérieur du ' contrôle RichtextBox. SendMessage(RichTextBox1.Handle.ToInt32, WM_PASTE, 0, 0) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim ligne As String = "a ajouetr" Dim p As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\nomFichier.txt", True) p.WriteLine(ligne) p.Close()