none
CAPTURE ECRAN SPECIALE RRS feed

  • Question

  • Bonjour à tous, savez vous comment effectuer une capture d'écran d'une richtextbox et uniquement d'une richtextbox ?


    merci d'avance
                                                                          best7
    samedi 6 février 2010 15:15

Réponses

  • Bonsoir,

    Vous pouvez faire ceci :

         Dim image As New Bitmap(RichTextBox1.Width, _
                                    RichTextBox1.Height, _
                                    Imaging.PixelFormat.Format32bppArgb)
    
            Using g As Drawing.Graphics = Drawing.Graphics.FromImage(image)
                Dim pToScreen As Point = PointToScreen(RichTextBox1.Location)
                g.CopyFromScreen(pToScreen.X, _
                                 pToScreen.Y, _
                                 0, _
                                 0, _
                                 RichTextBox1.Size, _
                                 CopyPixelOperation.SourceCopy)
            End Using
    
            image.Save("d:\maCapture.bmp")

    Cordialement,

    Mathieu
    Mathieu Francesch - MCTS/MCPD - Sharplog Engineering
    samedi 6 février 2010 19:39

Toutes les réponses

  • Bonjour,

    j'ai bien trouvé un truc, mais je n'arrve pas à l'appeler :

    Function GetPixelAtPoint(ByVal Ctrl As System.Windows.Forms.Control, ByVal Location As System.Drawing.Point) As System.Drawing.Color
        Ctrl = RichTextBox1
        Dim TmpImg As New System.Drawing.Bitmap(Ctrl.ClientSize.Width, Ctrl.ClientSize.Height)
        Ctrl.DrawToBitmap(TmpImg, Ctrl.ClientRectangle)
        Return TmpImg.GetPixel(Location.X, Location.Y)
    End Function


    Désolé, cordialement.


    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    samedi 6 février 2010 18:06
  • Bonsoir,

    Vous pouvez faire ceci :

         Dim image As New Bitmap(RichTextBox1.Width, _
                                    RichTextBox1.Height, _
                                    Imaging.PixelFormat.Format32bppArgb)
    
            Using g As Drawing.Graphics = Drawing.Graphics.FromImage(image)
                Dim pToScreen As Point = PointToScreen(RichTextBox1.Location)
                g.CopyFromScreen(pToScreen.X, _
                                 pToScreen.Y, _
                                 0, _
                                 0, _
                                 RichTextBox1.Size, _
                                 CopyPixelOperation.SourceCopy)
            End Using
    
            image.Save("d:\maCapture.bmp")

    Cordialement,

    Mathieu
    Mathieu Francesch - MCTS/MCPD - Sharplog Engineering
    samedi 6 février 2010 19:39
  • Bonjour,

    Avez-vous réussi votre "capture d'écran" avec les informations que nous vous avons communiquées ?

    Cordialement,

    Mathieu
    Mathieu Francesch - MCTS/MCPD - Sharplog Engineering
    lundi 8 février 2010 10:25

  • Bonjour,

     

    Merci Mathieu pour l’exemple de code. Je pense qu’on peut considérer ce thread fermé.

     

    Cordialement,

    Alex


    Alex Petrescu - MSFT
    mercredi 10 février 2010 09:11