Russian square (1)

xiaoxiao2021-03-06  134

It started to do Russia in these two days, and it is more complicated in these days.

Here, several variations of the block are implemented, and the movement of the square key is controlled.

Sub new_block (INTTYPE AS INTEGER) SELECT CASE INTTYPE CASE 1 Block (0) .left = block (0) .width * 0 block (0) .top = block (0) .height * 0 block (1) .left = block (0) .width * 1 block (1) .top = block (0) .height * 0 block (2) .left = block (0) .width * 2 block (2) .top = block (0) .height * 0 block (3) .width * 3 block (3) .top = block (0) .height * 0 case 2 block (0) .left = block (0) .width * 0 block (0) .top = block (0) .height * 0 Block (1) .left = block (0) .width * 1 block (1) .top = block (0) .height * 0 block (2) .left = block (0) .width * 0 block (2) .top = block (0) .height * 1 block (3) .left = block (0) .width * 1 block (3) .top = block (0) .Height * 1 case 3 block (0) .width * 1 block (0) .top = block (0) .height * 0 block (1) .left = block (0) .width * 0 block (1) .top = block (0) .height * 1 block (2) .left = block (0) .width * 1 block (2) .top = block (0). Height * 1 Block (3) .left = block (0) .width * 2 block (3) .top = block (0) .height * 1 Case Else Block (0) .left = block (0) .width * 0 Block (0) .top = block (0) .height * 0 Block (1) .left = block (0) .width * 1 block (1) .top = block (0) .height * 0 Block (2). Left = block (0) .width * 2 block (2) .top = block (0) .height * 0 block (3) .left = block (0) .width * 3 block (3) .top = block (0 ) .Height * 0 End Select Dim i as integer for i = 0 to 3 block (i) .visible =

转载请注明原文地址:https://www.9cbs.com/read-127486.html

New Post(0)