picturebox 繪圖

Question

請問各位先進在 picturebox  內繪出圓形後，如何依據圓型的面積繪出網格?如何用 pic.Circle   pic.Line 實現謝謝各位指導

Answer 1

如果想在白背景上的黑色填充圆里面画白色网格，可以用OR操作。
如果想在黑背景上的白色填充圆里面画黑色网格，可以用AND操作。
DrawMode 属性示例
这个例子允许通过拖动鼠标在窗体上画图。每单击一次鼠标为 DrawMode 属性设置一个不同的值。要试用此例，先把代码粘贴到窗体的声明部分，然后按 F5 键，并单击窗体。Private Sub Form_Load
   DrawWidth = 10   ' 设置 DrawWidth.
End Sub
Private Sub Form_Click ()
   Static M As Integer   ' 当前 DrawMode 的设置值.
   ForeColor = QBColor(Int(Rnd * 15))   ' 选择一种颜色.
   M = ((M + 1) Mod 16) + 1   ' 使 DrawMode 小于或等于 16.
   DrawMode = M   ' 设置 DrawMode.
End Sub
Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button Then   ' 当按钮被按下时，
      PSet (X, Y)   ' 画一个大点.
   End If
End Sub