module1.bas

来自「有jsp写的坦克游戏」· BAS 代码 · 共 34 行

Attribute VB_Name = "Module1"
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020




Sub ShowBaseObjAndGrid(R As Integer, G As Integer, B As Integer)
    'Stage grid
    For n = 0 To 16
        For m = 0 To 20
            Form1.Stage.Line (0, n * 25)-(500, n * 25), RGB(R, G, B)
            Form1.Stage.Line (m * 25, 0)-(m * 25, 400), RGB(R, G, B)
        Next m
    Next n
    Form1.Stage.Line (0, 399)-(500, 399), RGB(R, G, B)
    Form1.Stage.Line (499, 0)-(499, 399), RGB(R, G, B)
    
    
    'Tools bar grid
    BitBlt Form1.Objbar.hDC, 0, 0, 25, 25, Form1.ResPic.hDC, 0, 0, SRCCOPY
    BitBlt Form1.Objbar.hDC, 0, 25, 25, 25, Form1.ResPic.hDC, 225, 0, SRCCOPY
    BitBlt Form1.Objbar.hDC, 0, 50, 25, 25, Form1.ResPic.hDC, 100, 0, SRCCOPY
    BitBlt Form1.Objbar.hDC, 0, 75, 25, 25, Form1.ResPic.hDC, 125, 0, SRCCOPY
    BitBlt Form1.Objbar.hDC, 0, 100, 25, 25, Form1.ResPic.hDC, 150, 0, SRCCOPY
    BitBlt Form1.Objbar.hDC, 0, 125, 25, 25, Form1.ResPic.hDC, 200, 0, SRCCOPY
    For n = 0 To 6
        Form1.Objbar.Line (0, n * 25)-(25, n * 25), RGB(R, G, B)
    Next n
    Form1.Objbar.Line (0, 174)-(25, 174), RGB(R, G, B)
    Form1.Objbar.Line (0, 0)-(0, 175), RGB(R, G, B)
    Form1.Objbar.Line (24, 0)-(24, 175), RGB(R, G, B)
End Sub