私人的
常數
單元格_大小
=
60
網格大小，以像素為單位
私人的
潛水艇
Form_Load()
圖片1。自動提款
=
真實的
圖片1。縮放模式
=
VB像素
以像素為單位，繪制。
圖片1。邊框樣式
=
無邊框
圖片1。高度
=
15
*
單元格_大小
*
八
棋盤大小，*15表示單位由像素變為緹。
圖片1。寬度
=
圖片1。高度
相同的長度和寬度
圖片1。背景色
=
vbWhite
背景色，白色
暗淡的
我
如同
整數
為
我
=
1
到
八
步驟
2
先畫四條黑色豎線。
圖片1。線條
(我
*
單元格大小，
0)-(i
*
單元格_大小
+
單元格大小，
圖片1。ScaleHeight)，
vbBlack，
男友
然後
圖片1。繪圖模式
=
vbInvert
下面畫的是和原來顏色相反的，就是黑色變成白色。
為
我
=
1
到
八
步驟
2
水平欄4
圖片1。線條
(0,
我
*
CELL_SIZE)-(Picture1。刻度寬度，
我
*
單元格_大小
+
CELL_SIZE)，
vbBlack，
男友
然後
圖片1。繪圖模式
=
vbCopyPen
繪圖模式已更改為默認值。
結束
潛水艇