vb.net关闭计算机休眠,vb.net 如何暂停一个线程而不是休眠一个线程

Hi 小小程序,

我还有另外一个技巧也许对你有帮助,请看下面的代码:

Public Class Form1

Private form2 As Form = New Form()

Public Sub New()

InitializeComponent()

Timer1.Interval = 5000

Timer1.Enabled = True

form2.Visible = False

form2.Size = New Size(0, 0)

form2.FormBorderStyle = Windows.Forms.FormBorderStyle.None

form2.ShowInTaskbar = False    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'播放音乐

form2.ShowDialog()

'继续下面的程序代码

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

form2.Close()

End Sub

End Class

在这段代码用我利用一个模态对话框来限制当前程序往下执行,form2是一个没有边界,大小为0的对话框窗体,当我用ShowDialog起来后它会将代码停留在那里,直到此对话框关闭后才会继续执行下面的代码。

关闭此对话框我用了Timer控件,设置Timer控件的Interval = 5000表示是5秒,这样播放音乐不会受到影响。

你可以测试一下我的代码,如果有任何问题,请告诉我。

Sincerely,

Kira QianPlease mark the replies as answers if they help and unmark if they don't.

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:游动-白 设计师:我叫白小胖 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值