vb2008入门：窗体绘图

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