| 本月文章推荐 |
利用Api函数计算Windows从启动后所运行的总发表日期：2006-2-27
|
|
PrivateDeclareFunctionGetTickCountLib"kernel32"()AsLong
PrivateSubTimer1_Timer() DimhourAsInteger DimminuteAsInteger DimsecondAsInteger hour=GetTickCount\1000\60\60 Label1.Caption=Str(hour) "小时" minute=(GetTickCount-hour*60*60*1000)\1000\60 Label2.Caption=Str(minute) "分钟" second=(GetTickCount-Val(Label1.Caption)*60*60*1000-Val(Label2.Caption)*60*1000)\1000 Label3.Caption=Str(second) "秒钟" EndSub-> |
| 上一篇：功能强大的SendMessage函数
人气:3971 下一篇：VB的API编程精粹（二） 人气:3528 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
