A voir également:
- Tapanel
- Get pixel - Codes sources - Visual Basic / VB.NET (API)
- [vb 8][.net 2]appeler un fichier distant avec les méthodes post ou get (ajax for .net) - Codes sources - Visual Basic / VB.NET (ASP)
- Problème get pixel stupide vb ✓ - Forum - Visual Basic
- Vba get pixel color ✓ - Forum - Visual Basic
- Sdl get pixel ✓ - Forum - C
1 réponse
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Salut,
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.
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.