绘图 API

绘图首先取得场景、然后在场景上绘图、最后释放场景。

1. 场景 API
2. 笔刷 API
3. 文本 API
4. MetaFile API

示例：

Private Sub Form_Paint()     Dim dc As Long, brush As Long     Dim r As RECT     r.Left = r.Top = 10    ' 定义区域     r.Right = 200     r.Bottom = 100     dc = GetDC(Form1.hwnd) ' 取窗口场景     brush = CreateSolidBrush(RGB(255, 0, 0)) '生成红色刷子     FillRect dc, r, brush  '填充一个矩形为红色     DeleteObject brush     '删除刷子     ReleaseDC Handle, dc   '释放场景 End Sub