用vb.net編寫程序

系統(tǒng)托盤里顯示圖標(biāo)的話用NotifyIcon組件，建立一個ContextMenuStrip控件與之關(guān)聯(lián)。關(guān)聯(lián)的位置在NotifyIcon.ContextMenuStrip。關(guān)機(jī)直接shell 命令列:rundll32.exe user.exe,exitwindows就可以，聲音提示用My.Compurer.Audio.Play ("路徑")，提示消息用Msgbox函數(shù)……通過判斷返回值在確定是否關(guān)機(jī)……手頭沒有VB.Net……大概思路就是這樣，不知道能不能對你有幫助……如果要代碼的話，不忙的時候可以給你寫

為益陽等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及益陽網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都做網(wǎng)站、網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)、益陽網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

VB.NET編程語法

你這是vb.net的代碼,vb中不允許那么寫:

Dim

strdx()

As

String

=

{"0",

"0",

"0"}

'定義個數(shù)組,從后面的值能看的出最大下標(biāo)是2,也就是strdx(0),strdx(1)和strdx(2),3個的默認(rèn)值都為0

Dim

calcount1

As

String

=

"0"

'定義個字符串變量

Dim

calcount2

As

String

=

"0"

Dim

strvalue

As

Boolean

=

False

'定義strvalue為bool值,改類型變量只有true和false

2種值

If

strdx(0)

=

"0"

Then

TextBox1.Text

=

strdx(0)

"."

這是字符串連接符號,和"+"的區(qū)別是,他把左右2邊的內(nèi)容直接連接的,而"+"可能會編程運(yùn)算符,例如

2

3

=

"23"

而

2

+

3

=

5

ElseIf

strvalue

=

False

Then

strdx(0)

=

strdx(0)

"0"

TextBox1.Text

=

strdx(0)

"."

strvalue

=

True

Else

strdx(0)

=

strdx(0)

"0"

TextBox1.Text

=

strdx(0)

Select

Case

calcount1

'

這里開始是分支語句

Case

"+"

TextBox1.Text

=

Str(Val(strdx(1))

+

Val(strdx(0)))

vb.net編程

強(qiáng)制轉(zhuǎn)換

也可

＝1.2#+2.3#

＝1.2+2.3

結(jié)果是一樣的，但1.2

作為

object類型存放，后被識別成

double類型，

在這里沒有太多的意義，但有些時候可以改善

代碼的可讀性

和軟件的運(yùn)行速度