向窗口添加壹個PictureBox和壹個復選框。
私有子支票1_Click()
單擊“顯示網格”復選框時重畫圖片1
圖片1。恢復精神
末端接頭
私有子窗體_Load()
設置圖片1 . picute = load picture(" c:1 . BMP ")。
設置Picture1的繪圖單位和前景色。
圖片1。ScaleMode =像素
圖片1。ForeColor = RGB(66，120，255)
將復選框“顯示網格”設置為選中狀態。
Check1。值= vbChecked
末端接頭
私人副圖1_Paint()
如果沒有選擇Check1，則退出該過程。
如果Check1。Value =未選中，然後退出Sub
網格間距常數20像素
Const LINE_SPACE As Long = 20
暗淡我壹樣長
Dim h壹樣長，w壹樣長
w =圖片1。寬度
h =圖片1。高度
畫壹條水平線
對於i = 1到h步LINE_SPACE
圖片1。線(0，i)-(w，I)
然後
畫壹條垂直線
對於i = 1到w步LINE_SPACE
圖片1。線(I，0)-(i，h)
然後
末端接頭