怎樣在vb.net里做一個(gè)日歷提醒？急~~~~~~

Public Class Form1

目前創(chuàng)新互聯(lián)建站已為上1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、雅安服務(wù)器托管、網(wǎng)站托管、服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計(jì)、鄢陵網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶(hù)導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶(hù)和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

Dim 設(shè)置時(shí)間 As DateTime

Private Sub D1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles 日期時(shí)間選擇.CloseUp

和.Text = 日期時(shí)間選擇.Value

設(shè)置時(shí)間 = 日期時(shí)間選擇.Value

End Sub

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

日期時(shí)間選擇.Value = Now

End Sub

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

If Now.ToString = 和.Text Then

提醒顯示.Text = "時(shí)間到了 你該去做些什么事了吧"

'Timer1.Enabled = False

Else

提醒顯示.Text = "現(xiàn)在時(shí)間是：" Now

End If

End Sub

Private Sub 和_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 和.TextChanged

設(shè)置時(shí)間 = 和.Text

End Sub

End Class

Vb.net中，如何讓光標(biāo)在button1上，按下enter鍵提示abc？

設(shè)置你的Form窗體的AcceptButton屬性為button1，

按下enter鍵顯示abc就是代碼（對(duì)應(yīng)的button1的Click事件）：

private sub button1_Click(byval sender as System.Object,byval e as System.EventArgs)Handles button1.Click

MessageBox.show(“abc”)

end sub

想在vb.net的程序中有一個(gè)語(yǔ)音提示，該怎么寫(xiě)

首先添加一個(gè)系統(tǒng)的語(yǔ)音COM組件的引用microsoft speech object library然后在程序中聲明一個(gè)語(yǔ)音類(lèi)dim RC As SpeechLib.SpSharedRecoContext這個(gè)類(lèi)有一些事件,如果你要處理它的一些事件,可以用withevent來(lái)聲明然后在窗體LOAD事件或你需要的地方先創(chuàng)建一個(gè)實(shí)例RC = New SpeechLib.SpSharedRecoContext當(dāng)一個(gè)RC被實(shí)例化后,系統(tǒng)就會(huì)運(yùn)行語(yǔ)音識(shí)別程序.前提是你的系統(tǒng)已經(jīng)正確安裝這個(gè)功能.一般默認(rèn)就已經(jīng)安裝好的.其次提醒一下,WIN7的語(yǔ)音識(shí)別比XP的好N倍.從閱讀到偵聽(tīng)都好很多.然后就可以在你需要閱讀的地方使用RC.Voice.Speak("hello 我", 11)11那里是一些枚舉,用來(lái)標(biāo)識(shí)系統(tǒng)用前臺(tái)還是后臺(tái)或其他方式來(lái)閱讀文字,簡(jiǎn)單的來(lái)說(shuō)就是閱讀的時(shí)候不會(huì)卡住你的程序.你可以選其他的枚舉來(lái)試試作用.以上為閱讀部分.如果需要程序聽(tīng)你說(shuō)話,則需要聲明一個(gè)偵聽(tīng)類(lèi)dim RG As SpeechLib.ISpeechRecoGrammar在初始化時(shí)將之與上面的RC建立關(guān)系,此時(shí)則必須要用withevent來(lái)聲明上面的RC,因?yàn)樯婕半娔X聽(tīng)到你的語(yǔ)音后,會(huì)觸發(fā)一個(gè)事件,并將聽(tīng)到的內(nèi)容傳遞到該事件.其次,要讓系統(tǒng)聽(tīng)到的解析為命令,就必須準(zhǔn)備一個(gè)XML結(jié)構(gòu)的文件來(lái)保存那些固定的命令.如果電腦在XML文件中找不到那些固定命令或同時(shí)不屬于系統(tǒng)命令,電腦將會(huì)將其解釋為聽(tīng)寫(xiě).RG = RC.CreateGrammar '(0)

RG.CmdLoadFromFile("聽(tīng)到.xml", SpeechLib.SpeechLoadOption.SLODynamic)

RG.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)然后寫(xiě)一個(gè)過(guò)程來(lái)處理聽(tīng)到的事件Private Sub 聽(tīng)到命令(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal 話語(yǔ) As SpeechLib.ISpeechRecoResult) Handles RC.Recognition RC.Voice.Speak("我聽(tīng)到了" 話語(yǔ).PhraseInfo.GetText, 11)End Sub以上為偵聽(tīng)部分.下面列一個(gè)XML的例文?xml version="1.0" encoding="gb2312"?

GRAMMAR LANGID="804"

RULE NAME="命令" TOPLEVEL="ACTIVE"

L

P打開(kāi)播放器

P上我的QQ

P關(guān)閉你自己 /L

/RULE

/GRAMMAR要讓系統(tǒng)正確地偵聽(tīng)到你說(shuō)的話,前提你必須運(yùn)行語(yǔ)音識(shí)別程序并讓其激活到"正在聆聽(tīng)"狀態(tài).并且你必須有一個(gè)能正常使用的話筒而且保證話筒已經(jīng)打開(kāi).(廢話-_-|||)以上就是用VB.NET語(yǔ)音識(shí)別的最基本的一些操作.希望對(duì)你有幫助.更深入的內(nèi)容有興趣的話可以和我一起研究.

vb.net怎么給button加tip提示

1:從工具箱里拖一個(gè)ToolTip控件到窗體上，成為T(mén)oolTip1

2:選擇你要添加提示的Button1，此時(shí)Button1的屬性中，最下面就多了1個(gè)ToolTip1上的ToolTip屬性了，就在那里編輯文字

3:ToolTip1可以編輯tip提示的各個(gè)關(guān)鍵屬性，一個(gè)ToolTip1能滿(mǎn)足控制多個(gè)控件的tip

祝進(jìn)步!

vb.net中怎么實(shí)現(xiàn)到期自動(dòng)提醒。

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

Dim 還款時(shí)間 As Date = "2012-10-30"

Dim n As Integer = DateAndTime.DateDiff(DateInterval.Day, DateAndTime.Now, 還款時(shí)間)

If n = 7 And n = 0 Then

TextBox1.Text = "距離還款時(shí)間還有" n "天"

End If

End Sub