cs_yvesyves562
Messages postés samedi 10 janvier 2004Date d'inscription
11 octobre 2010
Dernière intervention
-
18 mars 2006 à 21:56 - Dernière réponse : Charles Racaud3181
Messages postés dimanche 15 février 2004Date d'inscription
9 avril 2017
Dernière intervention
- 18 mars 2006 à 23:13
Je pense pas qu'il y est de méthode pour faire ca directement. Peut être en passant par les APIs.
Mais le plus simple et de passer par un bitmap:
Private Sub TaPanel_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles TaPanel.MouseDown
Me.BackColor = GetPixelAtPoint(TaPanel, e.Location)
End Sub
Private Function GetPixelAtPoint(ByVal Ctrl As System.Windows.Forms.Control, _
ByVal Location As System.Drawing.Point) As System.Drawing.Color
Dim TmpImg As New System.Drawing.Bitmap(Ctrl.ClientSize.Width, Ctrl.ClientSize.Height)
Ctrl.DrawToBitmap(TmpImg, TaPanel.ClientRectangle)
Return TmpImg.GetPixel(Location.X, Location.Y)
End Function
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
a aidé 98 internautes ce mois-ci