请教高手，用户窗体执行完毕时，不能释放内存的问题

7016427

Private Sub UserForm_Activate()
'执行完毕后，关闭窗体不能释放内存，谁能帮我解决
Do
    tmpTime = Timer
    Do
        DoEvents
    Loop While (Timer - tmpTime < 1)
    With Label1
    .Caption = Right(.Caption, 1) & Left(.Caption, Len(.Caption) - 1)
    End With
Loop
End Sub

一把小刀闯天下

Option Explicit

Dim flag As Boolean

Private Sub UserForm_Activate()
  Dim tmpTime
  flag = False
  Do
    tmpTime = Timer
    Do
      DoEvents
      If flag Then Exit Sub
    Loop While (Timer - tmpTime < 1)
    With Label1
      .Caption = Right(.Caption, 1) & Left(.Caption, Len(.Caption) - 1)
    End With
  Loop
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  flag = True
End Sub

7016427

一把小刀闯天下 发表于 2018-10-14 12:50
Option Explicit

Dim flag As Boolean

你好！测试错误！

一把小刀闯天下

新建一个form单独测试，然后把你的代码加在最后，可以把Option Explicit这行删除（变量强制声明）

如果还不行那就算了，因为就我这代码测试正常，，，

7016427

一把小刀闯天下 发表于 2018-10-14 13:11
新建一个form单独测试，然后把你的代码加在最后，可以把Option Explicit这行删除（变量强制声明）

如果 ...

你好！测试可以了！还要一个问题要请教、麻烦老师。我要滚动显示方向，我要改为从右到左滚动。".Caption = Right(.Caption, 1) &, Len(.Caption) - 1)，Left(.Caption)" 我这样改执行不行呢

一把小刀闯天下

7016427 发表于 2018-10-14 13:49
你好！测试可以了！还要一个问题要请教、麻烦老师。我要滚动显示方向，我要改为从右到左滚动。".Caption  ...

满意来朵小花。试一下：

.Caption = Mid(.Caption, 2) & Left(.Caption, 1)

7016427

一把小刀闯天下 发表于 2018-10-14 12:50
Option Explicit

Dim flag As Boolean

你好！请教老师，代码里"flag = True"这句是什么意思？