跪求用vb.net做一個小鬧鐘??！

'加個定時器,textbox ,button,label Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

創(chuàng)新互聯(lián)主要為客戶提供服務(wù)項目涵蓋了網(wǎng)頁視覺設(shè)計、VI標志設(shè)計、成都全網(wǎng)營銷推廣、網(wǎng)站程序開發(fā)、HTML5響應(yīng)式成都網(wǎng)站建設(shè)、成都做手機網(wǎng)站、微商城、網(wǎng)站托管及網(wǎng)站建設(shè)維護、WEB系統(tǒng)開發(fā)、域名注冊、國內(nèi)外服務(wù)器租用、視頻、平面設(shè)計、SEO優(yōu)化排名。設(shè)計、前端、后端三個建站步驟的完善服務(wù)體系。一人跟蹤測試的建站服務(wù)標準。已經(jīng)為成都三輪攪拌車行業(yè)客戶提供了網(wǎng)站制作服務(wù)。

Label1.Text = Now

If FF = Now And FF "2001-1-1" And Timer1.Tag = "" Then

Timer1.Tag = "1"

MsgBox("ff")

End If

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

FF = TextBox1.Text

Timer1.Tag = ""

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

FF = "2001-1-1"

End Sub'聲音加個 AxMMControl控件 AxMMControl1.DeviceType = "waveaudio" ''''''''定義播放*.wav格式 AxMMControl1.FileName = "c:\1.wav" ''''''''載入文件， AxMMControl1.Command = "open" ''''''''打開載入的文件

AxMMControl1.From = 0 '從頭開始

AxMMControl1.Command = "play"'保存時間,只要設(shè)定時把時間保存到文本文件就行,load 事件中讀取,并對比是不是超時,.

VB程序設(shè)計怎么做數(shù)字時鐘

1、添加一個“l(fā)abel控件”命名為label

2、添加一個“timer控件”命名為timer1

3、設(shè)置“timer1”的“Interval屬性”為1000

使用到的代碼：

Dim?Hour?As?Integer?'小時

Dim?Min?As?Integer??'分鐘

Dim?Sec?As?Integer?'秒

Private?Sub?Form_Load()

Hour?=?0

Min?=?0

Sec?=?0

Label1.Caption?=?"00?:?00?:?00"

End?Sub

Private?Sub?Timer1_Timer()

Dim?strHour?As?String

Dim?strMin?As?String

Dim?strSec?As?String

Sec?=?Sec?+?1

If?Sec?=?60?Then

Sec?=?0

Min?=?Min?+?1

If?Min?=?60?Then

Min?=?0

Hour?=?Hour?+?1

If?Hour?=?24?Then

Hour?=?0

End?If

End?If

End?If

If?Hour??10?Then

strHour?=?"0"??Hour

Else

strHour?=?Hour

End?If

If?Min??10?Then

strMin?=?"0"??Min

Else

strMin?=?Min

End?If

If?Sec??10?Then

strSec?=?"0"??Sec

Else

strSec?=?Sec

End?If

Label1.Caption?=?strHour??"?:?"??strMin??"?:?"??strSec

End?Sub

用VB編寫一個鬧鐘程序

做一個簡單的鬧鐘程序很簡單的。我這里不用if語句。首先我們在窗體上添加一個標簽控件，再畫一個“鬧鐘”，將鬧鐘得interval屬性改為1000，雙擊鬧鐘，進入鬧鐘的代碼視圖，編寫代碼

private

sub

timer1_timer（）

label1.caption

=

time

end

sub就行了。謝謝采納