使用VB 画中国象棋代码.pptVIP

使用VB　画中国象棋棋盘程序代码 　　　张利　　辽宁大学 Private Sub Form_Activate() Me.Scale (0, 0)-(10000, 11000) Me.DrawWidth = 3 For i = 1 To 9 画竖线 Line (1000 * i, 1000)-(1000 * i, 5000), vbBlack Next i For i = 1 To 9 画竖线 Line (1000 * i, 6000)-(1000 * i, 10000), vbBlack Me.Print i * 1000 Next i For i = 1 To 11 画横线 Line (1000, 1000 * i)-(9000, 1000 * i), vbBlack Me.Print i * 1000 Next i Line (1000, 5000)-(1000, 6000), vbBlack Line (9000, 5000)-(9000, 6000), vbBlack Line (4000, 1000)-(6000, 3000), vbBlack Line (4000, 3000)-(6000, 1000), vbBlack Line (4000, 8000)-(6000, 10000), vbBlack L