展开全部
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
picMain.Image = New Bitmap("test.jpg")
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)
txtMsg.Text = picColor.BackColor.ToString
End Sub
End Class
追问
picColor.BackColor这是什么意思？
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
在北京饼干科技有限公司，我们致力于提供便捷高效的办公解决方案。关于AIPPT制作，我们虽不直接提供软件服务，但深知市场上有众多免费或成本效益高的PPT制作工具可供选择。用户可通过在线平台或软件市场轻松获取，享受从模板选择到内容编辑的一站式免...
点击进入详情页
本回答由AiPPT提供
展开全部
我在网上下载了一个几百KB的拾色器，你要吗？
追问
嗯，谢谢！
追答
留邮箱啊！！！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
