複数の Do While をうごかすには？ (ID:115202)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 完全な並列じゃぁないが、Timerで並列みたいなことができる。 -----Class1----- 'クラスモジュールを作成 Option Explicit Public nowCount As Long Public thisName As String Public Sub Init(ByVal namestring As String) thisName = namestring nowCount = 0 End Sub -----Form1----- 'Command1、Timer1を貼り付ける。 Option Explicit Dim TestTask As New Collection Private Sub Command1_Click() Dim st As String Dim x As New Class1 x.Init Timer TestTask.Add x, x.thisName End Sub Private Sub Form_Load() Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() Dim v As Variant For Each v In TestTask v.nowCount = v.nowCount + 1 Debug.Print "Task", If v.nowCount = 100 Then Debug.Print v.thisName, "End" TestTask.Remove v.thisName Else Debug.Print v.thisName, v.nowCount End If Next End Sub 恥さらしすまん