none
PHOTOSHOP吸管效果 RRS feed

  • 问题

  •  大家好!
       我想做一个类似于《PHOTOSHOP吸管》的功能相同的东西。在VB6.0里面PICTURE1.POINT(X,Y)就可以实现在PICTURE上面鼠标指示点的颜色值,但VB2005(VB。NET)不知道怎么实现。例如:有一个PICTUREBOX上面有一个图片,然后鼠标在图片上MOUSEMOVE或者MOUSEDOWN在下面的第2个PICTUREBOX里面现实该点的颜色,或者在其他控件上现实RGB值也行。不知道怎么实现,个位帅哥帮个忙。谢谢。。。。在线等答案。。。。。

    muradil
    2009年2月12日 5:39

答案

  •  

    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

    Dim bm As Bitmap = New Bitmap(PictureBox1.Image)

    Me.BackColor = bm.GetPixel(e.X, e.Y)







    Me.Text = e.X & "," & e.Y

    End Sub


    Guitar Hero IV -- Singing Rock & Roll.
    2009年2月12日 6:58

全部回复

  •  

    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

    Dim bm As Bitmap = New Bitmap(PictureBox1.Image)

    Me.BackColor = bm.GetPixel(e.X, e.Y)







    Me.Text = e.X & "," & e.Y

    End Sub


    Guitar Hero IV -- Singing Rock & Roll.
    2009年2月12日 6:58
  • 只是个例子  说明属性用法  正确的方法是建立一个持久的 bitmap  在这个对象内读取 pixel


    Guitar Hero IV -- Singing Rock & Roll.
    2009年2月12日 7:01