摘要:使用Bitmap类中的GetPixel(x,y)函数进行指定点颜色的获取,然后再分别获取R,G,B的值
新建一个空的窗体应用程序,在窗体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