VB計時器怎么用

需要準備的工具：電腦，VB6.0程序設計軟件。

創(chuàng)新互聯(lián)專注于牟平網(wǎng)站建設服務及定制，我們擁有豐富的企業(yè)做網(wǎng)站經驗。 熱誠為您提供牟平營銷型網(wǎng)站建設，牟平網(wǎng)站制作、牟平網(wǎng)頁設計、牟平網(wǎng)站官網(wǎng)定制、小程序制作服務，打造牟平網(wǎng)絡公司原創(chuàng)品牌,更為您提供牟平網(wǎng)站排名全網(wǎng)營銷落地服務。

1、首先打開VB6.0程序設計軟件，到程序新建工程主界面，如下圖：

2、然后雙擊新建工程里的”標準 exe“進入工程1（forml）如下圖:

3、在左邊工具欄窗體上先加載一個計時器控件 如圖：

4、加載好計時器控件后，我們在當前計時器控件下面加載一個標簽。

5、為了使加載的標簽在運行時能把它看清楚，通過修改右邊屬性”Bordarstyle"里面的屬性”0“改選為”1“使標簽邊框凹陷下去 ，如圖：

6、接下來，我們將當前標簽右邊的屬性名稱改為”L1“如圖:

7、我們開始修改計時器的屬譽銷性，接下來毀虛局我們把計時器控件當前的”interval“的屬性設置成”纖讓1000“ 毫秒，就是1秒鐘讓它產生一次事件，如圖 :

8、雙擊計時器控件，開始編寫計時器程序，”L1.caption=time”如圖：

9、然后返回“form"窗口，點擊運行，一個簡單的計時器軟件就做好了。

VB點虐 module中如何使用計時器？

控制臺調用Timer和窗體是類似的。首先在項目物鍵租引用里面加入System.Windows.Forms程序集，然后在代碼頂部引入命名空罩兆間：

Imports System.Windows.Forms

在控制臺的Module中聲明一個計時器：

Private WithEvents Timer1 As New Timer()

把計時器的Tick事件靜態(tài)綁定亮棗到處理函數(shù)中：

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

'一些代碼

End Sub

在需要開始計時的地方，修改其Interval、Enabled屬性：

Timer1.Interval = 1000

Timer1.Enabled = True

怎樣用vb點虐 做毫秒計時器（有沒有什么類似于ccrptmr之類的控件）

不需要控件就可以，用多線程的方式實現(xiàn)，在窗體上放一個Label和一個button按鈕，代碼如下：

Imports?System.Threading

Public?Class?Form1

Dim?Start?As?Double

Dim?td?As?Thread

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

Label1.Text?=?"00:00:00?000"

Button1.Text?=?"開始"

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

If?Button1.Text?=?"開始"?Then

殲賀???????Button1.Text?=?"結束"

Start?=?DateAndTime.Timer

氏州派?????????td?=?New?Thread(AddressOf?fun1)

td.Start()

Else

Button1.Text?=?"開始"

td.Abort()

End?If

End?Sub

'定義一個線程

Private?Sub?fun1()

Dim?elapsed?As?TimeSpan

Dim?Dg_txt?As?New?Dg(AddressOf?txt)

Do

elapsed?=?TimeSpan.FromMilliseconds((DateAndTime.Timer?-?Start)?*?1000)

Me.Invoke(Dg_txt,?elapsed.ToString,?Label1)

Thread.Sleep(100)

Loop

End?Sub

'定義一個委托

Delegate?Sub?Dg(ByVal?s?As?String,?ByVal?obj?As?Label)

Sub?txt(ByVal?s?As?String,?ByVal?obj?As?Label)

obj.Text?=?s

End?Sub

End?Class

VB點虐 做計時器。。。

加個timer，兩個label，以下是代碼:

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

Label1.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")

End Sub

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

Label2.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")

If DateDiff(DateInterval.Hour, DateTime.Parse(Label1.Text), DateTime.Parse(Label2.Text)) = 3 Then

MsgBox("超液巖過3小時了！", , "信陸森息提示")

Timer1.Enabled = False 'timer終止，不然會一鬧悉御直談對話框！

End If

End Sub