VB.NET 章鱼哥 编程实现获取图片上任一点的RGB值

新建一个空的窗体应用程序，在窗体Form1中添加一个Picturebox控件，一个Button控件，三个label标签，三个Textbox控件。

下面是代码，很简单，首先就是选择一个图片，显示在PictureBox控件上

'作者：章鱼哥，QQ：3107073263群：'如有疑问或好的建议请联系我，大家一起进步<pre name="code" class="vb">    Private Sub btn_ImportPicture_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btn_ImportPicture.Click

        Dim OpenDialog1 As New OpenFileDialog
        OpenDialog1.Filter = "JPG格式|*.jpg|JPEG格式|*.jpeg|PNG格式|*.png|ICO文件，Gif文件|*.ICO;*gif|所有文件*.*|*.*"
        If OpenDialog1.ShowDialog = DialogResult.OK Then
            Dim Path As String = OpenDialog1.FileName
            PictureBox1.Image = Image.FromFile(Path)

        End If

    End Sub

  Private Sub PictureBox1_MouseDown(ByVal sender As System.Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim GetColor As Color = CType(PictureBox1.Image,Bitmap).GetPixel(e.X,e.Y)
        txt_B.Text = GetColor.B.ToString
        txt_G.Text = GetColor.G.ToString
        txt_R.Text = GetColor.R.ToString
    End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!