Question

vb程序进行大量循环时界面无响应

我编了一个VB计算工具，每次计算要进行一百多万次循环，大概需要一分钟，在此期间一点击程序界面就变成无响应状态，要等其循环完毕才恢复正常。
我想让界面在循环时点击无效，并显示一个GIF动态图片，能实现这样的效果吗？

Answer 1

Dim s As Boolean
Private Sub Form_Click()
   If s = False Then
      s = True
      Do
         n = n + 1
         DoEvents  '主要是这一句
         Cls
         Line (Int(Rnd * Me.Width), Int(Rnd * Me.Width))-(0, 0)
      Loop Until n = 10 ^ 20
      s = False
   End If
End Sub
Private Sub Form_Load()
   Me.AutoRedraw = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
   End
End Sub

‘给个例子

Answer 2

根据实际情况，程序代码中加入 DoEvents。
界面写上：程序正在计算，请稍后...等类似提示。

GIF动态图片得使用第三方组件，默认显示静态图片。

Answer 3

使用多线程，一个线程用来计算，一个线程用来显示图片