画笔对象,画刷对象

最新推荐文章于 2025-06-12 00:41:51 发布

iteye_14050

最新推荐文章于 2025-06-12 00:41:51 发布

阅读量164

点赞数

本文介绍了使用Visual Basic.NET进行图形绘制的方法，包括如何创建不同颜色和宽度的画笔对象来绘制圆形、椭圆，以及如何填充椭圆，并演示了在窗体上直接绘制文本的技术。此外，还展示了如何通过旋转变换实现文本的倾斜显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DimmypenAsNewPen(Color.Red,10)'定义以红色为线条,10个像素粗的画笔对象
DimgAsGraphics=Me.CreateGraphics
g.DrawEllipse(mypen,10,10,100,100)'画正圆
'---------------------------------
DimmypenAsNewPen(Color.blue,10)'定义以蓝色为线条的画笔对象
DimgAsGraphics=Me.CreateGraphics
g.DrawEllipse(mypen,10,10,100,200)'画椭圆
'---------------------------------
最大限度的填充一个黄色的椭圆
DimmybrushAsNewSolidBrush(Color.Yellow)
DimgAsGraphics=Me.CreateGraphics
g.FillEllipse(mybrush,ClientRectangle)
'--------------------------------
直接在窗体上绘制文本

DimafontAsNewSystem.Drawing.Font("arial",22,FontStyle.Bold)
DimgAsGraphics=Me.CreateGraphics

g.DrawString("Graphicsarefun!",afont,Brushes.Brown,20,10)

g.DrawString("Keenweiwei!",afont,Brushes.BlueViolet,40,40)
'--------------------------
旋转文本

'g.RotateTransform(20)'顺时针旋转20度

'g.DrawString("TuoJINGJING!",afont,Brushes.DeepPink,100,40)
g.RotateTransform(-20)'逆时针旋转20度

g.DrawString("TuoJINGJING!",afont,Brushes.DeepPink,40,150)