[紧急求助]程序运行完毕，自动关闭进程？

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

十载的凉山州网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整凉山州建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“凉山州网站设计”,“凉山州网站推广”以来，每个客户项目都认真落实执行。

'System.Threading.Thread.Sleep(1000)

Me.Visible = False

Me.ShowIcon = False

'数据库导入代码

Me.Close()

End Sub

初学者vb编程技巧

把Task scheduler改为：

""Task scheduler""

两边都加两个双引号

即Shell "net start ""Task scheduler"""

VB高手请进！

用windows本身的计划任务不好吗？

如果一定要用程序实现，可以用计时器控件：

timer1.Interval=1000 '每秒触发一次

在Timer1_Timer事件中加入：

If Minute(Now) = 0 And Second(Now) = 0 Then '到整点了

'你的处理过程

end if

这样几乎没有CPU占用！

利用vb.net实现小闹钟功能

Private Declare Function mciSendStringA Lib "winmm.dll" _

(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _

ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

Function PlayMidiFile(ByVal MusicFile As String) As Boolean

If System.IO.File.Exists(MusicFile) Then

mciSendStringA("stop music", "", 0, 0)

mciSendStringA("close music", "", 0, 0)

mciSendStringA("open " MusicFile " alias music", "", 0, 0)

PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0

End If

End Function

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

If TextBox1.Text = TimeOfDay Then

'具体提醒的东西，如你说的播放音乐

PlayMidiFile("自己添加路径")

End If

'时间格式要是这样的16:00:00

'timer的interval要设成1

'你还可以自己细化

End Sub

文章题目：vb.net创建计划任务 计划任务运行vbs
分享URL：http://kswjz.com/article/docigdi.html