• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[已解决] 线程停止错误 [复制链接]

1#
Dim 次数 = 5
Do

Delay 1000

If 次数 > 3 Then

Thread.Start(线程1)

TracePrint "111"

次数 = 次数 - 1

Else

Thread.Stop (线程1)

TracePrint "333"

End If
Loop



Sub 线程1

Do

Delay 500

TracePrint "222"

Loop
End Sub

附件:您需要登录才可以下载或查看附件。没有帐号? 注册
本主题由 超级版主 瑞祥幽冥狼 于 2024/9/21 9:49:21 执行 审核主题 操作
2#

,
  1. Dim 次数 = 5,h
  2. Do
  3. Delay 1000
  4. If 次数 > 3 Then
  5. h = Thread.Start(线程1)'次数等于5.4的时候分别启动了两次多线程
  6. TracePrint "111"
  7. 次数 = 次数 - 1
  8. Else
  9. Thread.Stop (h)'只能停止第二次启动的现成;同时应该采用返回值停止线程
  10. TracePrint "333"
  11. End If
  12. Loop
  13. Sub 线程1()
  14. Dim T1=Now()
  15. Do
  16. Delay 500
  17. TracePrint "222:"&T1
  18. Loop
  19. End Sub
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题