vb.net定义一个颜色 vb中颜色代码

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 如何读取ini文件定义的ForeColor颜色值

你好，我不知道你是用什么方法保存的，不过.net里的color有一个方法是Color.FromArgb 你可以这么做，dim

c

as

color=richtextbox1.ForeColor dim

colorstring

as

string=c.ToArgb().ToString

colorstring就是颜色的值（字符串）再把colorstring保存到ini文件加载颜色的时候，从ini里读取colorstring 具体是：dim

RtextColor

as

color=Color.FromArgb（cint(colorstring))richtextbox1.ForeColor

=RtextColor

在vb。net中 我们制作个打字程序我想在文本框里的字母中指定一个字母变颜色的代码，要怎么写？？

在TextChanged事件中：privatevoidrichTextBox1_TextChanged(objectsender,EventArgse)

{

if(label1.Text==richTextBox1.Text)

richTextBox1.ForeColor=Color.Black;

else

richTextBox1.ForeColor=Color.Red;

}-------------------继续答复：

首先，还是建议你使用TextChange方法。KeyPress方法只有在松开键后才触发，如果一直按着键比如写a，那这串a颜色不会变的，直到你松手。

然后上代码，测试可用的，你直接放到KeyPress里也能用：

PrivateSubrichTextBox1_TextChanged(senderAsObject,eAsEventArgs)

ForiAsInteger=0TorichTextBox1.TextLength-1

richTextBox1.SelectionStart=i

richTextBox1.SelectionLength=1

Ifi=label1.Text.LengthThen

richTextBox1.SelectionColor=Color.Blue

ElseIflabel1.Text(i)richTextBox1.Text(i)Then

richTextBox1.SelectionColor=Color.Red

Else

richTextBox1.SelectionColor=Color.Black

EndIf

Next

richTextBox1.SelectionLength=0

richTextBox1.SelectionStart=richTextBox1.TextLength

EndSub这里写错的是红色，多写出来的是蓝色，具体你自己可以调整。

顺便鄙视一下那个把我代码直接转VB贴上来的，我直接用工具转成VB了，方便楼主参考。

有问题可以继续追问。

vb.net中有没有哪个控件可以自定义形状（如圆形，多边形）和颜色，如果有，希望你您给出代码

记得VB6当中有Shape控件，但是VB.net里这个控件不存在了。

提个思路：使用Picture控件或Label控件，通过代码在控件里绘图想要的图形，可以试试。

本文标题：vb.net定义一个颜色 vb中颜色代码
网站URL：https://www.cdcxhl.com/article42/doegihc.html

成都网站建设公司_创新互联，为您提供定制网站、软件开发、网站收录、、企业网站制作、标签优化

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联