锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net选择颜色 vb自定义颜色

IT技术引导文件

Vb.net中怎么用代码设置用户选择的颜色加载一个colordialogvb.net选择颜色，编辑其事件控制label颜色
vb.net拾色器设计，要求：能获取图片任意位置的颜色VB可使用Point方法来获取图片指定点的颜色 。
Point 方法
按照长整数 ， 返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色 。
语法
object.Point(x, y)
'窗体判色代码:
【vb.net选择颜色 vb自定义颜色】Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
'PictureBox判色代码:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Picture1.Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
vb.net怎么实现单击数字区域的按钮使按钮变红色，单击运算符按钮变蓝色同时数字区按钮还原？紧急在线等…您好 ， 这种方法可以通过按钮的MouseDown和MouseUp事件来实现，比如说，当单击按钮RedColor（RedColor为这个按钮的Name属性的属性值）的时候 ， 要使按钮的颜色变成红色，这可以在代码视图中的控件选择下拉列表中选择RedColor这个控件 ， 然后在右边的事件下拉列表中选择MouseDown事件（当按下鼠标时发生），这时，Visual Studio会自动生成如下代码：
Private Sub RedColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseDown
End Sub
接下来就在当前生成的代码中写入如下代码：
RedColor.BackColor = Color.FromArgb(255, 0, 0)
这句代码的作用是利用Color下的FromArgb方法来设置RGB颜色参数，在RGB颜色系统中，R代表红色，G代表绿色，B代表蓝色，根据这三种颜色的不同程度的调和，就会得到不同的颜色 ， 如果您要得到深色的天蓝色，则可以设置FromArgb(0, 191, 255)，这个颜色转换为HTML中的RGB颜色就是#00BFFF 。
当然颜色还原最好是写在MouseUp事件里面，这样就不必在单击其他按钮时来还原上一次按下的按钮的颜色 ， 在这里，为了方便描述，我们假设按钮的默认颜色为白色，也就是FromArgb方法设置为FromArgb(255, 255, 255)的时候，所标示的颜色就是白色
所以选择了RedColor按钮的MouseUp事件后，Visual Studio会自动生成下列代码：
Private Sub RedColor_MouseUp(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseUp
End Sub
MouseUp的含义是当鼠标弹起时发生，所以在这个事件就可以设置按钮颜色的还原，即添加下列代码来实现：
RedColor.BackColor = Color.FromArgb(255, 255, 255)
当然，这就编写好了一个按钮按下时变色，回弹时还原的功能，至于另外一个按钮的功能，这与这个按钮的功能一样，只是代码有一些细微的差别而已，假设这个按钮的Name属性的属性值为BlueColor ， 相应的代码对应如下：
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(0, 0, 255)'蓝色的FromArgb
End Sub
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(255, 255, 255)

推荐阅读


上一篇：索尼电视接电脑用什么线，索尼电视接电脑主机

下一篇：js识别转义字符串，js 转义字符