VB 如何计算某一事件：如双击按钮后 系统所经历的时间啊

Dim Nw

Private Sub Command1_Click()

Timer1Enabled = False

Form1Caption = "已停止计时"

Command1Caption = "双击窗体开始计时"

End Sub

Private Sub Form_DblClick()

Nw = Time

Timer1Enabled = True

Command1Caption = "停止计时"

End Sub

Private Sub Form_Load()

Timer1Interval = 1000

Timer1Enabled = False

Command1Caption = "双击窗体开始计时"

End Sub

Private Sub Timer1_Timer()

s = Time - Nw

Form1Caption = "双击后已运行" & Hour(s) & "时" & Minute(s) & "分" & Second(s) & "秒"

End Sub

Private

Sub

Timer1_Timer()

text1

=

format(now(),"yyyy-mm-dd

tttt")

End

Sub

format是格式化输出日期和时间格式函数,yyyy-mm-dd是完整显示年月日，tttt是显示时分秒。

timer1interval的值大于0而小于等于1000之间的任意一个整数。

我曾经做过一个监视开机关机时间的vb程序

下面是获得关机时间的代码：

text1text= "关机： " + Str(Year(Now) + "年" + Str(Month(Now)) + "月" + Str(Day(Now)) + "日 " + Str(Hour(Now)) + "点" + Str(Minute(Now)) + "分" + Str(Second(Now)) + "秒"

假如只是想列驱动器名，如下很简单的，网络驱动器映射后也一样能列出。

‘列出所有驱动器，不含A，B

Dim drv() As String

Dim sd As String

drv() = Split("C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")

For i = 0 To 23

sd = drv(i) & ":\"

If Dir(sd, vbDirectory) <> "" Then

combAddItem sd ’添加到列表中

End If

Next

VB语言系统本身提供了相当的可直接调用的过程，如事件过程和内部函数。

在Visual

Basic

60中，过程包含以下几种类型：

Sub过程（子过程）：只能完成一定的 *** 作和功能，不能通过过程名返回值。

Function过程（函数过程）：除了能完成一定的功能外，还能通过过程名返回值。

Property过程（属性过程）：用于向对象添加属性。

Private

Sub

Command1_Click()

MePrint

"123"

End

Sub

Private

Sub

Form_DblClick()

Call

Command1_Click

End

Sub

该程序表明的是在名称为Command1的命令按钮控件的单击事件过程体中添加了语句MePrint“123”，说明当单击Command1命令按钮，触发了该事件过程，就能执行此语句，也就产生在当前窗体上输出字符串“123”的效果。

这就说明事件过程可以被直接调用

以上就是关于VB 如何计算某一事件：如双击按钮后 系统所经历的时间啊全部的内容，包括:VB 如何计算某一事件：如双击按钮后 系统所经历的时间啊、在VB里用什么函数获取系统的当前时间、请问在VB中怎么获得系统关机的时间等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！