最新消息: USBMI致力于为网友们分享Windows、安卓、IOS等主流手机系统相关的资讯以及评测、同时提供相关教程、应用、软件下载等服务。

vb.net 教程 5

互联网 admin 5浏览 0评论

vb.net 教程 5

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
屏幕范围内取色
在本博客 《vb:Cg色彩精灵》系列中,我们在vb6中使用Api函数对屏幕进行取色,在vb.net中,我们可以有更简单的方法完成此项工作。

 


延续使用我们在 《颜色》中的窗口界面,增加两个控件:
btnPick Button
lblLocation  Label


窗体级的变量
isPick:标识是否开始取色
bmp:不可见的bitmap,保存了当前屏幕的截图

    Dim isPick As BooleanDim bmp As Bitmap

 

鼠标左键按下的时候我们要做的工作:
1、设置按下鼠标左键时,isPick为真,标识开始取色
2、将屏幕截图保存在bmp中
3、将鼠标光标设置为十字样式

    Private Sub btnPick_MouseDown(sender As Object, e As MouseEventArgs) Handles btnPick.MouseDownIf e.Button = MouseButtons.Left ThenisPick = TrueDim Scr As Screen = Screen.PrimaryScreenDim recSc As Rectangle = Scr.Boundsbmp = New Bitmap(recSc.Width, recSc.Height)Dim g As Graphics = Graphics.FromImage(bmp)g.CopyFromScreen(New Point(0, 0), New Point(0, 0), New Size(recSc.Width, recSc.Height))Me.Cursor = Cursors.CrossEnd IfEnd Sub

 

 

鼠标移动的时候我们要做的工作
1、获得鼠标坐标位置
2、将鼠标坐标转换为屏幕坐标,通过控件的PointToScreen()方法完成
3、对bmp坐标点取色,通过GetPixel()方法完成
4、附加对颜色的RGB值做了简单分析

    Private Sub btnPick_MouseMove(sender As Object, e As MouseEventArgs) Handles btnPick.MouseMoveDim x, y As IntegerDim p As Point = New Point(e.X, e.Y)Dim colorPoint As ColorDim r, g, b As ByteIf isPick = True Thenx = btnPick.PointToScreen(p).Xy = btnPick.PointToScreen(p).YlblLocation.Text = "x:" & x & " y:" & ycolorPoint = bmp.GetPixel(x, y)picPalette.BackColor = colorPointr = colorPoint.Rg = colorPoint.Gb = colorPoint.BhsbRed.Value = rhsbGreen.Value = ghsbBlue.Value = blblRed.Text = r.ToStringlblGreen.Text = g.ToStringlblBlue.Text = b.ToStringCall toWebColor()End IfEnd Sub

 

鼠标左键抬起的时候要做的工作:
1、设置抬起鼠标左键时,isPick为假,标识停止取色
2、将鼠标光标设置为默认样式

    Private Sub btnPick_MouseUp(sender As Object, e As MouseEventArgs) Handles btnPick.MouseUpisPick = FalseMe.Cursor = Cursors.DefaultEnd Sub

 

当鼠标左键在“取色”按钮上按下不放时,移动鼠标就可以在屏幕上取色了。如下图:

 

 

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看 vb.net 教程 目录

vb.net 教程 5

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
屏幕范围内取色
在本博客 《vb:Cg色彩精灵》系列中,我们在vb6中使用Api函数对屏幕进行取色,在vb.net中,我们可以有更简单的方法完成此项工作。

 


延续使用我们在 《颜色》中的窗口界面,增加两个控件:
btnPick Button
lblLocation  Label


窗体级的变量
isPick:标识是否开始取色
bmp:不可见的bitmap,保存了当前屏幕的截图

    Dim isPick As BooleanDim bmp As Bitmap

 

鼠标左键按下的时候我们要做的工作:
1、设置按下鼠标左键时,isPick为真,标识开始取色
2、将屏幕截图保存在bmp中
3、将鼠标光标设置为十字样式

    Private Sub btnPick_MouseDown(sender As Object, e As MouseEventArgs) Handles btnPick.MouseDownIf e.Button = MouseButtons.Left ThenisPick = TrueDim Scr As Screen = Screen.PrimaryScreenDim recSc As Rectangle = Scr.Boundsbmp = New Bitmap(recSc.Width, recSc.Height)Dim g As Graphics = Graphics.FromImage(bmp)g.CopyFromScreen(New Point(0, 0), New Point(0, 0), New Size(recSc.Width, recSc.Height))Me.Cursor = Cursors.CrossEnd IfEnd Sub

 

 

鼠标移动的时候我们要做的工作
1、获得鼠标坐标位置
2、将鼠标坐标转换为屏幕坐标,通过控件的PointToScreen()方法完成
3、对bmp坐标点取色,通过GetPixel()方法完成
4、附加对颜色的RGB值做了简单分析

    Private Sub btnPick_MouseMove(sender As Object, e As MouseEventArgs) Handles btnPick.MouseMoveDim x, y As IntegerDim p As Point = New Point(e.X, e.Y)Dim colorPoint As ColorDim r, g, b As ByteIf isPick = True Thenx = btnPick.PointToScreen(p).Xy = btnPick.PointToScreen(p).YlblLocation.Text = "x:" & x & " y:" & ycolorPoint = bmp.GetPixel(x, y)picPalette.BackColor = colorPointr = colorPoint.Rg = colorPoint.Gb = colorPoint.BhsbRed.Value = rhsbGreen.Value = ghsbBlue.Value = blblRed.Text = r.ToStringlblGreen.Text = g.ToStringlblBlue.Text = b.ToStringCall toWebColor()End IfEnd Sub

 

鼠标左键抬起的时候要做的工作:
1、设置抬起鼠标左键时,isPick为假,标识停止取色
2、将鼠标光标设置为默认样式

    Private Sub btnPick_MouseUp(sender As Object, e As MouseEventArgs) Handles btnPick.MouseUpisPick = FalseMe.Cursor = Cursors.DefaultEnd Sub

 

当鼠标左键在“取色”按钮上按下不放时,移动鼠标就可以在屏幕上取色了。如下图:

 

 

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看 vb.net 教程 目录

与本文相关的文章

发布评论

评论列表 (0)

  1. 暂无评论