option explicit
dim time_hour, time_minute, time_second as integer 【程序编程相关:SQL*PLUS常用命令:】dim i as integer 【推荐阅读:在MFC中大家都习惯用CStdioFil】 select case keyascii 【扩展信息:学习java一段时间了,可是感觉知道的好】private sub form_keypress(keyascii as integer)
case 105 call turn(next_block_kind) case 106 call move_left(next_block_kind) case 108 call move_right(next_block_kind) case 107 call down_block(next_block_kind) end selectend subpublic sub form_load()
timer_speed.enabled = false call image_position ´排列方块 call face ´设置窗体属性 bx = 3 by = 0 label_hour.caption = 0 label_minute.caption = 0 ´call next_block next_block_kind = 7 timer_speed.enabled = true me.keypreview = trueend subprivate sub menu_about_click()
load about about.visible = trueend subprivate sub timer_now_timer() ´计时
time_second = time_second + 1 if time_second = 60 then time_minute = time_minute + 1 time_second = 0 label_minute.caption = time_minute end if if time_minute = 60 then time_hour = time_hour + 1 time_minute = 0 label_hour.caption = time_hour end if label_second.caption = time_secondend subprivate sub timer_speed_timer() call down_block(next_block_kind)end suboption explicitpublic bx, by as integerpublic next_block_kind as integerpublic p as integerpublic q as integerpublic a as integerpublic n as integerpublic m as integer´public turn_kind as integer
... 下一页