VB繪制國際象棋棋盤，要求用line方法實現

不知道妳是不是就畫這樣壹個棋盤,請在窗體上加入Picture1控件.

Private Const CELL_SIZE = 60 '格子大小,單位像素

Private Sub Form_Load()

Picture1.AutoRedraw = True

Picture1.ScaleMode = vbPixels '以像素為單位,作圖

Picture1.BorderStyle = 0 '無邊框

Picture1.Height = 15 * CELL_SIZE * 8 '棋盤大小,*15表示單位由像素變成緹

Picture1.Width = Picture1.Height '長寬相同

Picture1.BackColor = vbWhite '背景色,白色

Dim i As Integer

For i = 1 To 8 Step 2 '先畫黑色豎格4條

Picture1.Line (i * CELL_SIZE, 0)-(i * CELL_SIZE + CELL_SIZE, Picture1.ScaleHeight), vbBlack, BF

Next

Picture1.DrawMode = vbInvert '下面畫上去的與原有顏色相反,即黑色變成白色

For i = 1 To 8 Step 2 '橫格4條

Picture1.Line (0, i * CELL_SIZE)-(Picture1.ScaleWidth, i * CELL_SIZE + CELL_SIZE), vbBlack, BF

Next

Picture1.DrawMode = vbCopyPen '畫圖模式變了缺省值

End Sub

上一篇:學設計工程師好還是計算機編程好，這兩個職業我都喜歡

下一篇:湘潭大學招專科生嗎？