?? module.bas
字號:
Attribute VB_Name = "Module1"
Global CurX As Integer '目前X坐標
Global Total(10, 20) As Boolean '總體坐標布局 10x20
Global MinX As Integer '一個方塊的最大 x 坐標
Global MaxX As Integer '一個方塊的最小 x 坐標
Global MinY As Integer '一個方塊的最大 y 坐標
Global MaxY As Integer '一個方塊的最小 y 坐標
Type cXs '一個方塊 4 個點的坐標
cX As Integer 'x 坐標
cY As Integer 'y 坐標
cZ As Boolean '判斷一個點下面是否是空的
End Type
Global Xs(4) As cXs
Global Adjust_Left As Integer '翻轉后向左方調整的位置
Global Adjust_Top As Integer '翻轉后向上方調整的位置
'BitBlt 函數作用:位操作位圖,實現不規則的方塊的動作
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -