基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IO.Directory.SetCurrentDirectory(AppDomain.CurrentDomain.BaseDirectory)
        picMain.SizeMode = PictureBoxSizeMode.StretchImage

    End Sub

    Private Sub picMain_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picMain.MouseDown
        Dim myImg As New Bitmap(picMain.Width, picMain.Height)
        Dim g As Graphics = Graphics.FromImage(myImg)
        g.DrawImage(picMain.Image, New Rectangle(New Point(0, 0), myImg.Size), New Rectangle(New Point(0, 0), picMain.Image.Size), GraphicsUnit.Pixel)
        picColor.BackColor = myImg.GetPixel(e.X, e.Y)
        Label4.Text = picColor.BackColor.ToString
    End Sub

   
End Class