首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

picturebox 繪圖解决思路

2012-12-31 
picturebox繪圖請問各位先進在 picturebox內繪出圓形後,如何依據圓型的面積繪出網格?如何用 pic.Circlepic

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

热点排行