> Dans VB6, on pouvait utiliser Picture1.Point(x,y)
> Dans .NET je n'arrive pas à trouver l'équivalent.
Voici un Ex :
'***
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox1.Image = New Bitmap("C:\monimage.bmp")
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim bmp As Bitmap = DirectCast(PictureBox1.Image, Bitmap)
If ((e.X <= bmp.Width) AndAlso (e.Y <= bmp.Height)) Then
Dim c As Color = bmp.GetPixel(e.X, e.Y)
Me.Text = c.ToString()
Else
Me.Text = "[n/a]"
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Norbert
Merci pour ton aide Yanick C'est exactement la rponse que je cherchais Norbert
"Zoury" wrote:
Salut Norbert ! :O)
> Dans VB6, on pouvait utiliser Picture1.Point(x,y) > Dans .NET je n'arrive pas à trouver l'équivalent.
Voici un Ex : '*** Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize PictureBox1.Image = New Bitmap("C:monimage.bmp")
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim bmp As Bitmap = DirectCast(PictureBox1.Image, Bitmap) If ((e.X <= bmp.Width) AndAlso (e.Y <= bmp.Height)) Then Dim c As Color = bmp.GetPixel(e.X, e.Y) Me.Text = c.ToString() Else Me.Text = "[n/a]" End If
End Sub '***
-- Cordialement Yanick MVP pour Visual Basic
Merci pour ton aide Yanick
C'est exactement la rponse que je cherchais
Norbert
"Zoury" wrote:
Salut Norbert ! :O)
> Dans VB6, on pouvait utiliser Picture1.Point(x,y)
> Dans .NET je n'arrive pas à trouver l'équivalent.
Voici un Ex :
'***
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox1.Image = New Bitmap("C:monimage.bmp")
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim bmp As Bitmap = DirectCast(PictureBox1.Image, Bitmap)
If ((e.X <= bmp.Width) AndAlso (e.Y <= bmp.Height)) Then
Dim c As Color = bmp.GetPixel(e.X, e.Y)
Me.Text = c.ToString()
Else
Me.Text = "[n/a]"
End If
Merci pour ton aide Yanick C'est exactement la rponse que je cherchais Norbert
"Zoury" wrote:
Salut Norbert ! :O)
> Dans VB6, on pouvait utiliser Picture1.Point(x,y) > Dans .NET je n'arrive pas à trouver l'équivalent.
Voici un Ex : '*** Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize PictureBox1.Image = New Bitmap("C:monimage.bmp")
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim bmp As Bitmap = DirectCast(PictureBox1.Image, Bitmap) If ((e.X <= bmp.Width) AndAlso (e.Y <= bmp.Height)) Then Dim c As Color = bmp.GetPixel(e.X, e.Y) Me.Text = c.ToString() Else Me.Text = "[n/a]" End If
