用VB編程繪制網格圖像 

如果你曾經用過像Photoshop或CorelDraw那樣強大的圖像處理軟件, 那你一定知道對網格的操作, 如顯示網格，對齊網格等等。這些操作對圖像處理有一定的幫助。就好像剛剛學習畫畫的人要打格子一樣，它精確、整齊，給畫畫的人帶去了很多的方便！那么在VB中如何繪制一幅本來只有在Photoshop等繪圖軟件中才能完成的網格圖像呢？現在就讓筆者用VB編程來實現它。
　　首先：做準備工作：在FORM1上新建一個PICTURE1（并裝載一幅你喜愛的圖像）和兩個COMMAND命令按鈕在PICTURE1下面（即COMMAND1和COMMAND2），其他屬性不變，然后輸入以下代碼：
　　Private Sub Form_Load()//初始化設置
　　Picture1.AutoSize = True
　　Command1.Caption = ″顯示網格″
　　Command2.Caption = ″取消網格″
　　Form1.Caption = ″顯示網格圖像演示程序″
　　End Sub
　　－－－－－－－－－－－－－－－－
　　Private Sub Form_Activate()//設置網格顏色
　　Picture1.ForeColor = vbWhite
　　Picture1.Move 0, 0
　　End Sub
　　－－－－－－－－－－－－－－－－
　　Private Sub Command1_Click()//顯示網格
　　Dim HLINESNUM As Integer
　　Dim WLINESNUM As Integer
　　Dim XX As Integer
　　Dim I As Integer
　　Dim J As Integer
　　Dim YY As Integer
　　HLINESNUM = 15 //設置網格為15＊15顯示
　　WLINESNUM = 15
　　Picture1.Refresh
　　Picture1.AutoRedraw = False
　　XX = Int(Picture1.ScaleWidth / WLINESNUM)
　　YY = Int(Picture1.ScaleHeight / HLINESNUM)
　　For I = 1 To HLINESNUM ＋ 1
　　Picture1.Line (XX ＊ I, 0)－(XX ＊ I, Picture1.Height － 1)
　　Picture1.Line (0, YY ＊ I)－(Picture1.Width － 1, YY ＊ I)
　　Next
　　End Sub
　　－－－－－－－－－－－－
　　Private Sub Command2_Click()//取消網格
　　Picture1.AutoRedraw = False
　　Picture1.Refresh
　　End Sub
　　－－－－－－－－－－－－
　　Private Sub Form_Unload(Cancel As Integer)
　　Unload Me //結束程序
　　End
　　End Sub
　　好了，請按F5運行一下吧，效果如何？
　　注：以上程序在中文WINDOWS98, 中文VB5.0專業版中調試通過!　
　（上海　季昭君）