求解决vb问题，写了个vb程序，最后那个if语句的Line67.Visible = False都执行了，但是Shape执行不出来，
PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Enable...
Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() wei shen m 啊？Line63.Y1 = Line63.Y1 + 5Line63.Y2 = Line63.Y2 + 5Line65.Y1 = Line65.Y1 - 100Line65.Y2 = Line65.Y2 - 100If Line65.Y2 < 2160 Then Line65.Visible = False Line66.X1 = Line66.X1 - 100 Line66.X2 = Line66.X2 - 100End IfIf Line66.X2 < 5400 Then Line66.Visible = False Line67.Y1 = Line67.Y1 + 300 Line67.Y2 = Line67.Y2 + 300End If If Line63.Y2 > 4680 Then Line63.Visible = False End If If Line67.Y1 > 2520 Then Line67.Visible = False Shape2.Visible = ture Shape3.Visible = ture Shape4.Visible = ture Shape5.Visible = ture End IfEnd Sub
展开
若以下回答无法解决问题，邀请你更新回答
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
