作者：佚名    文章来源：网络    点击数：    更新时间：2007-8-15

　

　　如图3

　　双击timer1控件如图4

                                      

　　输入代码：

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 　xianzaiTime = TimeOfDay 　If RadioButton1.Checked Then 　If DateDiff(Microsoft.VisualBasic.DateInterval.Second, xianzaiTime, entTime) < 0 Then '用DateDiff函数判断是否到时间了 　End If End If PowerOff() '关闭计算机 End Sub

　　好了基本上一个定时关机程序就完成了，接下来加一个超级链接吧！当然对于高手来说可是废话，但是对于新手来说这也是必备的。这个超级链接当然是我们最喜欢的天极网开发频道了。

　　先创建一个Label控件吧，把它托到窗体上，将text属性设置为天极网开发频道如图5


　　接下来需要输入代码了，双击窗体Form1

　　进入Public Class Form1事件

　　代码：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"(ByVal hwngnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

　　如图6


　　双击刚才添加的label属性text:（天极网开发频道）中输入以下代码：

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click ShellExecute(0, "open", "http://dev.yesky.com ", CStr(0), CStr(0), 1) End Sub End Class

　　OK全部搞定，按F5键运行如图7所示，选择相应选项后点击（关闭计算机启动定时器按钮）就可以了，现在程序将按照你所设定的时间而启动关闭计算机选项。

图7

上一页  [1] [2] [3] 

相关文章

VB.NET实现窗体图标最小化到状态栏 VB进行SQL2000的数据备份和恢复 VB建立字符界面的控制台程序 VB制作自己的MP3播放器 VB.net开发P2P程序实列 Visual Basic中实现带预览的对话框 Visual Basic编程常见问题 Visual Basic游戏实列--飞船着陆游戏 VB编程实现软件在线升级 VB进行文件加密

最新教程

 VB.NET 2005编写定时关机程序
 深度剖析Windows XP SP3
 Fireworks 8制作精致指南针
 3DS MAX打造逼真的柑橘
 DIV中class与id的区别及应用
 3dsmax制作窗帘动画
 Frontpage制作网上电影发布页面
 ASP.NET多频道网站架构实现方法
 解决Vista下IE提示证书错误
 IE浏览器故障与错误完全解决方法

推荐教程

 中文版Windows XP系统升级SP3新鲜
 Photoshop曲线命令全攻略
 Fireworks制作DNA模型图案
 Windows 2003新闻组服务器和客户