vb中返回当前系统毫秒数的函数是_百度知道
vb中返回当前系统毫秒数的函数是
vb中返回当前系统毫秒数的函数是什么？
我有更好的答案
vb中返回当前系统毫秒数的函数是Timer。Timer 函数，返回一个 Single，代表从午夜开始到现在经过的秒数。语法：Timer说明：Microsoft Windows中，Timer函数返回一秒的小数部分。Timer 函数示例：本示例使用 Timer 函数来暂停应用程序。同时用 DoEvents 在暂停期间将控制让给其他进程。Dim&PauseTime,&Start,&Finish,&TotalTimeIf&(MsgBox(&Press&Yes&to&pause&for&5&seconds&,&4))&=&vbYes&Then&&&PauseTime&=&5&&&'&设置暂停时间。&&&Start&=&Timer&&&'&设置开始暂停的时刻。&&&Do&While&Timer&&&Start&+&PauseTime&&&&&&DoEvents&&&'&将控制让给其他程序。&&&Loop&&&Finish&=&Timer&&&'&设置结束时刻。&&&TotalTime&=&Finish&-&Start&&&'&计算总时间。&&&MsgBox&&Paused&for&&&&&TotalTime&&&&&seconds&Else&&&EndEnd&If
B调用GetSystemTimeAsFileTime返回January 1,并将该值存于tloc所指的单元中. 这样看来。, 1601 (UTC)至今的毫秒. 不过转换起来貌似不简单C里的库函数long time(long *tloc)函数给出自格林威治时间日凌晨至现在所经过的秒数。。用VC做个dll给vb调用要简单点，不过精度又达不到毫秒了。
本回答被提问者采纳
Timer函数返回从0点开始经过的秒数数据类型为single
Private Declare Function timeGetTime Lib &winmm.dll& () As LongPrivate Sub Form_Load()Timer1.Interval = 1End SubPrivate Sub Timer1_Timer()Debug.Print Format(Time, &hh:mm:ss&) & &:& & Right(timeGetTime, 3)End Sub
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
函数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。51CTO旗下网站
全面讨论VB.NET申明Windows API函数
这里介绍在VB.NET申明Windows API函数时，“Declare”语句中Alias关键字的作用相当于使用DllImport特征类中的EntryPoint对象字段。
作者：佚名来源：IT168| 10:01
VB.NET还是比较常用的，于是我研究了一下VB.NET申明Windows API函数，在这里拿出来和大家分享一下，希望对大家有用。VB.NET查看文件中图标的函数及VB.NET申明Windows API的方法：
VB.NET要实现查看文件中的图标，目前只使用.Net FrameWork SDK是无法实现这种功能的，正如前面所说，主要是由于.Net FrameWork SDK推出的时间较短，其功能还不可能面面俱到。解决问题的关键是正确使用Windows API函数，其中所涉及到的Windows API函数主要有二个：其一是获得指定文件中的图标数目；其二是从指定文件的指定位置导出图标的Windows句柄。这二个函数都位于 “Shell32.dll”文件中，并且函数的入口点都为“ExtractIcon”。下面是在VB.NET中分别使用DllImport特征类和“Declare”语句申明这二个Windows API函数的具体方法。
1.使用DllImport特征类来申明Windows API函数：
下面是在VB.NET中使用DllImport特征类申明二个Windows API函数的具体示例：'函数ExtractIcon，其功能是是从指定文件的指定位置导出图标的Windows句柄。 &＜&System.Runtime.InteropServices.DllImport&(&"Shell32.dll"&,&EntryPoint&:=&"ExtractIcon"&)&＞&_ &Public&Function&_ &ExtractIcon&(&ByVal&src&As&System.IntPtr&,&ByVal&strFileName&As&string&,&ByVal&uiIconIndex&As&UInt32&)&As&System.IntPtr &End&Function &'函数Icon_Num，其功能是获得指定文件中的图标数目 &＜&System.Runtime.InteropServices.DllImport&(&"Shell32.dll"&,&EntryPoint&:=&"ExtractIcon"&)&＞&_ &Public&Function&_ &Icon_Num&(&ByVal&src&As&System.IntPtr&,&ByVal&strFileName&As&string&,&ByVal&uiIconIndex&As&Integer&)&As&Integer &End&Function&
在使用DllImport特征类申明Windows API函数时，如果申明的函数名称和函数的入口点相同，则可以在VB.NET申明Windows API函数时，省略定义函数入口点对应的代码，即EntryPoint对象字段对应的代码，这样声明ExtractIcon函数的代码也可以简化为如下所示：＜&System.Runtime.InteropServices.DllImport&(&"Shell32.dll"&)&＞&_ &Public&Function&_ &ExtractIcon&(&ByVal&src&As&System.IntPtr&,&ByVal&strFileName&As&string&,&ByVal&uiIconIndex&As&UInt32&)&As&System.IntPtr &End&Function&
2.使用“Declare”语句来申明Windows API函数：
使用“Declare”语句的确比使用DllImport特征类要简单了许多，下面是在VB.NET中使用“Declare”语句来声明上述二个Windows API函数的具体方法：Declare&Auto&Function&ExtractIcon&Lib&"Shell32.dll"&Alias&"ExtractIcon"&(&ByVal&src&As&System.IntPtr&,&ByVal&strFileName&As&string&,&ByVal&uiIconIndex&As&UInt32&)&As&System.IntPtr &'声明ExtractIcon函数 &Declare&Auto&Function&Icon_Num&Lib&"Shell32.dll"&Alias&"ExtractIcon"&(&ByVal&src&As&System.IntPtr&,&ByVal&strFileName&As&string&,&ByVal&uiIconIndex&As&Integer&)&As&Integer &'声明Icon_Num函数&
在VB.NET申明Windows API函数时，“Declare”语句中Alias关键字的作用相当于使用DllImport特征类中的EntryPoint对象字段。同样在使用 “Declare”语句声明Windows API函数时，如果声明的函数和函数的入口点相同，也可以省略Alias关键字对应的代码，所以ExtractIcon函数也可以简化为如下：Declare&Auto&Function&ExtractIcon&Lib&"Shell32.dll"&(&ByVal&src&As&System.IntPtr&,&ByVal&strFileName&As&string&,&ByVal&uiIconIndex&As&UInt32&)&As&System.IntPtr&
【编辑推荐】
【责任编辑： TEL：（010）】
大家都在看猜你喜欢
头条头条头条头条头条
24H热文一周话题本月最赞
讲师：30942人学习过
讲师：153385人学习过
讲师：133632人学习过
精选博文论坛热帖下载排行
本书是作者深入研究SQL Server 2005数据库体系结构和内部机制的经验总结。
全书不拘泥于具体的管理操作，而是通过对存储的数据和日志文件...
订阅51CTO邮刊2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
匿名用户不能发表回复！|VB返回一个值的函数是什么？_百度知道
VB返回一个值的函数是什么？
就是给调用这个过程的过程返回一个值。这样的函数是什么？谢谢
我有更好的答案
在声明部分定义Fuction函数，函数返回一个值，可以在过程中调用Fuction过程
采纳率：14%
函数过程function
return xxx即可。
function Sk （byval s as string） as string ****sk=**end function则function 过程中返回了一个数据，其实直接给过程名赋值就可以。
函数“return” 建议你一看看书上的介绍吧
书上比我说的要详细
其他3条回答
为您推荐：
其他类似问题
您可能关注的内容
函数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB中的常用函数_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB中的常用函数
&&本文档详细说明了VB中的常用函数
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩23页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢