VB运行结束提示实时错误380

11 |

2 | 2012-4-17 13:50:55 | 显示全部楼层 |阅读模式

减到最后V1和H1成负的了，所以Text1.Width = H1.Value和Text1.Height = V1.Value出错了，建议改成Private Sub Timer1_Timer()if vi.value>300 then V1.Value = V1.Value - 300if h1.value>300 then H1.Value = H1.Value - 300if v1.value<=300 and h1.value<=300 then timer1.enable=falseEnd Sub...

使用道具举报