'========================================================
'函数名称:OpenXFile()
'函数参数:
'函数功能:首先就是选择打开一个图片,显示在PictureBox控件上
'=======================================================
Private Sub OpenXFile()
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
'========================================================
'函数名称:
'函数参数:
'函数功能:使用Bitmap类中的GetPixel(x,y)函数进行指定点颜色的获取,然后再分别获取R,G,B的值
'=======================================================
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) '使用GetPixel()函数要先把图片转换成BitMap格式的。
Debug.Print("B= " & GetColor.B.ToString)
Debug.Print("G= " & GetColor.G.ToString)
Debug.Print("R= " & GetColor.R.ToString)
End Sub
VB.NET绘图9----获取图片的某点的颜色
最新推荐文章于 2018-12-17 16:22:57 发布