1:form1:timer1.inteval=1000private sub timer1_timer()if timer=3 then form1.hide:form2.showend sub2:private sub text1_change()if len(text1)=10 then text1.enabled=false:text2.setforceend sub3:private sub command1_click()commondilog1.showopencommondilog1.filter="所有文件(*.*)|*.*"text1=commondilog1.filename...
改进(4)timer1.inteval=1000form1.Currenty=me.scaleheightprivate sub timer1_timer()form1.Currenty=form1.Currenty-1000if form1.Currenty<=me.scaleheight then form1.Currenty...