form的绘图
绘图准备,获得graphics对象
一种方法:
Dim a As Graphics
a = Me.CreateGraphics()
a.DrawLine(Pens.Blue, 0, 0, 100, 100)
另一种方法:在paint事件中,直接使用e.Graphics
point与rectangle:
Dim m As Point m.X = 100 m.Y = 100
Dim r As Rectangle r.X = 100 r.Y = 100 r.Width = 200 r.Height = 300
基本绘图:
.DrawLine(Pens.Blue, 0, 0, 100, 100)
.DrawRectangle(Pens.Chocolate, r)
.DrawString("123", Me.Font, Brushes.Blue, m)
绘制图片:
Dim pic
pic = Image.FromFile("d:/50/nude_3d_anaglyph.jpg")
.DrawImage(pic, 0, 0):不缩放
.DrawImage(pic, 0, 0, 100, 100) '缩放到一矩形内
字体:
Dim cf As New Font("宋体", 100)
e.Graphics.DrawString("Hello", cf, Brushes.Black, 100, 100)
颜色,pen,brush:
Dim clr As Color = Color.FromArgb(100, 100, 100, 100)
Dim s As New Pen(clr)
e.Graphics.DrawLine(s, 0, 0, 100, 100)
Dim cb As New SolidBrush(Color.Blue)
e.Graphics.DrawString("Hello", cf, cb, 100, 100)
brush的分类:SolidBrush/TextureBrush
集合:
SystemPens/SystemBrushes/SystemColors/SystemFonts/SystemIcons/Brushes/Pens/KnownColor