锐客网

  1. 首页 > 生活百科 > it技术 > >

关于vb.net色的信息

IT技术颜色

vb.net png 减少图片颜色位数基于具有 能处理 256色或 256色以上的视频适配器和显示驱动程序的系统，vb 可支持 256 种颜色 。VB 中的颜色设置 界面上的彩色图形能够产生更强的视觉效果，因而越来越受到用户的重视 。在 Visual Basic 中，窗体、控件、图形以及文字信息都可以用不同的颜色显示 。对于所有的颜色属性和图形方法，每种颜色都由一个 Long 整数表示 。对于多媒体应用程序， 或对于那些需要显示接近相片质量图 像的应用程序来说 ， 具有同时显示 256 色的功能是特别有价值的 。第一种： 打开画图板，颜色里面调出你要的颜色以后，记下红绿蓝的数值 然后vb中用xxx.forecolor(或者backcolor之类)=rgb(红,绿,蓝) 这种办法好处就是很简单 不好之处就是不能在设计的时候更改 第二种： 打开画图板，调好颜色以后 记下红绿蓝 打开计算器 分别翻译成16进制 然后vb中用xxx.forecolor = H蓝绿红 例如蓝色255 16进制就是FF 红色0 16进制是0 绿色128 16进制是80 然后颜色就是HFF8000 (0要补齐) 第三种： 打开专业的制图软件（photoshop/fireworks） 直接获取16进制颜色 比如说#AABBCC 然后对应的VB种颜色就是HCCBBAA
VB.net如何更改窗体标题栏颜色？这东西改不vb.net色了，要想改vb.net色的话要在系统显示设置里修改主题 。
不过如果想做的漂亮些，可以去网上找代码把整个窗体改成蓝色（随便一种颜色）然后用代码把窗体蓝色部分扣去，可以PS一个窗体图片，插到窗体上，这样这个窗体蓝色部分都被扣去了（图片里的蓝色无法扣去）只能看见一张图片，可以在上面加控件 。
vb.net拾色器设计 ， 要求：能获取图片任意位置的颜色VB可使用Point方法来获取图片指定点vb.net色的颜色 。
Point 方法
【关于vb.net色的信息】按照长整数vb.net色 ， 返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色 。
语法
object.Point(x, y)
'窗体判色代码:
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 旋转图像时 ， 如何指定填充色绘制线条采用Draw开头的方法，颜色参数用Pen类；
绘制有填充色的封闭图形采用Fill开头的方法，颜色参数用Brush类；
例如：
'绘制一个实心圆，该圆在：直线x=200，y=200，x=200 100 ， y=200 100所划矩形区域内
Me.CreateGraphics.FillEllipse(New SolidBrush(Color.Orange), 200, 200, 100, 100)
'绘制一个空心圆，该圆在：直线x=200，y=200 ， x=200 100，y=200 100所划矩形区域内
Me.CreateGraphics.DrawEllipse(New Pen(Color.Black), 200, 200, 100, 100)
VB.NET如何显示多种颜色的一段文本？Label控件是没有办法实现多种颜色vb.net色的文字的vb.net色，只能用RichTextBox来实现vb.net色 ， 而且vb.net色你的自定义格式字符串也没有结尾的，这样很不好，至少也要red红色字/redyellow黄色字/yellow，而且实现也很麻烦的，下面的代码vb.net色我没有检测正确性 ， 有错误的自己改一改吧
Dim colortag() as string
dim colors() as color
const txt as string="red红色字/redyellow黄色字/yellow"
private sub Form_Load(object sender,eventargs e)handles mybase.load
colortag(0)="red":Colortag(1)="yellow"
colors(0)=color.red:colors(1)=color.yellow
richtextbox1.text=txt
for i as integer=0 to colortag.lenght-1
dim tag as string=""colortag(i)""
dim endtag as string="/"colortag(i)""
dim find as integer=1
do
find=instr(find,txt,tag) tag.lenght
if(find0)then
dim find1 as integer=instr(find,txt,endtag)
richtextbox1.SelectionStart=find
richtextbox1.selectionlenght=find1-find
richtextbox1.selectioncolor=colors(i)
find=find1
else
exit do
end if
loop
next
end sub
vb.net 如何使文字能渐变颜色，就是颜色慢慢变淡然后在慢慢恢复？也容易vb.net色 ， 如果是黑白三个颜色加上相同的渐变量，彩色的是起始颜色的三个分量与终止颜色的对应三个分量的差值 ， 再除于相同的份数，就得出三原色各自的步进量 。
窗体上放个图片框试试下面代码：
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim startColor As Color = Color.Red
Dim endColor As Color = Color.Green
Dim s As String = "vb.net 如何使文字能渐变颜色，就是颜色慢慢变淡然后在慢慢恢复vb.net色？"
Dim Steps As Integer = s.Length \ 2
Dim StepR As Integer = (CInt(endColor.R) - startColor.R) \ Steps
Dim StepG As Integer = (CInt(endColor.G) - startColor.G) \ Steps
Dim StepB As Integer = (CInt(endColor.B) - startColor.B) \ Steps
Dim R As Integer = startColor.R
Dim G As Integer = startColor.G
Dim B As Integer = startColor.B
Dim drawFont As New System.Drawing.Font("Arial", 16)
Dim X As Integer = 50
For i As Integer = 1 To Steps
Dim drawBrush As New SolidBrush(Color.FromArgb(R, G, B))
e.Graphics.DrawString(s.Substring(i - 1, 1), drawFont, drawBrush, X, 50.0)
X= 18
R= StepR
G= StepG
B= StepB
Next
For i As Integer = 1 To Steps
Dim drawBrush As New SolidBrush(Color.FromArgb(R, G, B))
e.Graphics.DrawString(s.Substring(iSteps - 1, 1), drawFont, drawBrush, X, 50.0)
X= 18
R -= StepR
G -= StepG
B -= StepB
Next
End Sub
关于vb.net色和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：sqlserver建表初始大小，sqlserver建表设置默认值

    下一篇：PYTHON教程美甲简约，python简易教程