picturebox 繪圖
請問各位先進
在 picturebox 內繪出圓形後,如何依據圓型的面積繪出網格?
如何用 pic.Circle pic.Line 實現
謝謝各位指導
[解决办法]
如果想在白背景上的黑色填充圆里面画白色网格,可以用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