nbsp; bx = bx - 2
Call show7(bx, by)
next_block_kind = 7
End If
ElseIf by * 10 + bx + 30 < 169 And bx = 9 Then
If Form_main.Image_block(by * 10 + bx + 7).Visible = False And Form_main.Image_block(by * 10 + bx + 8).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Form_main.Image_block(by * 10 + bx + 30).Visible = False
by = by + 1
bx = bx - 3
Call show7(bx, by)
next_block_kind = 7
End If
End If
End Select
End Sub
Option Explicit
Dim block_i, block_j As Integer
Dim next_i, next_j As Integer
Sub face()
Form_main.Height = 8420 ''''设置窗体的大小
Form_main.Width = 8000
Form_main.Picture_play_field.Left = 0 ''''设置容器位置
Form_main.Picture_play_field.Top = -480
Form_main.Picture_play_field.Height = 8200 ''''设置容器大小
Form_main.Picture_play_field.Width = 4850
End Sub
Sub image_position()
For block_i = 0 To 16
For block_j = 0 To 9
Form_main.Image_block(block_i * 10 + block_j).Left = block_j * 480
Form_main.Image_block(block_i * 10 + block_j).Top = block_i * 480
Form_main.Image_block(block_i * 10 + block_j).Visible = False
Next
Next
For next_i = 0 To 3
For next_j = 0 To 3
Form_main.Image_next(next_i * 4 + next_j).Left = next_j * 480
Form_main.Image_next(next_i * 4 + next_j).Top = next_i * 480
Form_main.Image_next(next_i * 4 + next_j).Visible = False
Next
Next
End Sub
''''十七种方块
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] | 
