Discussion :

[Ehjoe]

Bonjour,

J'ai eu un morceau de code, mais ça ne marche pas (clipboard.image) est refusé (on ne peut lier directement system drawing point et image), voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim source As Point = Clipboard.image
Dim cible As Point = New Point(12, 193) ' point collage form
Using g As Graphics = Me.CreateGraphics()
 g.CopyFromScreen(source, cible, New Size(633, 400)) ' nouvelle taille
End Using

Sauriez-vous quelle est la correection à apporter pour que ça fonctionne ?

Merci, cordialement.

Joe.

[Ehjoe]

Bonjour,

Voici la réponse (source forum Microsoft vbNet)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    If Clipboard.ContainsImage Then
      Dim ratioLgr As Double
      PictureBox1.Image = My.Computer.Clipboard.GetImage
      ratioLgr = (100 / PictureBox1.Width * PictureBox1.Height) / 100
      hautY = longX * ratioLgr ' adapte à la largeur la hauteur
      If hautY > maxiHaut Then hautY = maxihaut
      Me.Height = 40 + colleY + hautY
      copie = True
      Using g As Graphics = Me.CreateGraphics()
        g.DrawImage(Clipboard.GetImage(), colleX, colleY, longX, hautY)
      End Using
    End If
  End Sub

Donc résolu.

Cordialement.
.
.