vb.net自帶的函數(shù),vb程序函數(shù)大全
vb.net中的mid（）用法
VB.NET編程Mid函數(shù)一般用于返回原字符串中子串，比如說(shuō)：
網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、微信小程序定制開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶(hù)創(chuàng)新互聯(lián)還提供了蔡家坡免費(fèi)建站歡迎大家使用！
Dim?MyString,?FirstWord,?LastWord,?MidWords??
MyString?=?"Mid?Function?Demo"?建立一個(gè)字符串。??
FirstWord?=?Mid(MyString,?1,?3)?'?返回?"Mid"。??
LastWord?=?Mid(MyString,?14,?4)?'?返回?"Demo"。??
MidMidWords?=?Mid(MyString,?5)?'?返回?"Funcion
具體函數(shù)說(shuō)明如下：返回 Variant (String)，其中包含字符串中指定數(shù)量的字符。
mid函數(shù)的語(yǔ)法：
Mid(string,?start[,?length])
mid函數(shù)的參數(shù)：
string 必要參數(shù)。字符串表達(dá)式，從中返回字符。如果 string 包含 Null，將返回 Null；
start 必要參數(shù)。為 Long。string 中被取出部分的字符位置。如果 start 超過(guò) string 的字符數(shù)，VB.NET Mid函數(shù)返回零長(zhǎng)度字符串 ("")；
length 可選參數(shù)；為 Variant (Long)。要返回的字符數(shù)。如果省略或 length 超過(guò)文本的字符數(shù)（包括 start 處的字符），將返回字符串中從 start 到尾端的所有字符。
如何正確理解VB.NET函數(shù)調(diào)用
1. Shared Function System.Runtime.
InteropServices.DLLimport("user32.dll")
2. MessageBoxA(ByVal hwnd As Integer,
ByVal text As String, ByVal
lpcaption As String, ByVal
wtype As Integer) As Integer
3. End Function
首先integer被作為32位數(shù)據(jù)替代了long(long是64位)
System是Net語(yǔ)言中的一個(gè)族，System.Runtime.InteropServices是system中的一個(gè)類(lèi)。System.Runtime.InteropServices.DLLimpor是其中的一個(gè)方法。調(diào)用DLL的API
接口，這個(gè)的意思就是vb6的lib"user32", share是共享的意思，例如：
1. Public Class classA
2. Shared Function System.Runtime.
InteropServices.DLLimport("user32.dll")
MessageBoxA(ByVal h As Integer,
ByVal m As String, ByVal c As
String, ByVal type As Integer) As Integer
3. End Function
4. End Class
你可以這樣調(diào)用 classA.MessageboxA 但是如果沒(méi)有這個(gè)share 在class后打點(diǎn)就沒(méi)有MessageboxA的成員出現(xiàn)了 ，現(xiàn)在你就象以前一樣的使用他吧。
其實(shí)上面這個(gè)VB.NET函數(shù)調(diào)用方法并不正確，我們?nèi)耘f要使用API聲明，只是換了一各形式
如果你認(rèn)為這就是VB.NET就錯(cuò)了，看看這個(gè)：
system.WinForms.MessageBox.Show("對(duì)話(huà)內(nèi)容寫(xiě)在這里", "標(biāo)題寫(xiě)在這里", messagebox.OK BitOr messagebox.IconAsterisk)
這就是面向?qū)ο螅阋呀?jīng)完成了所有的任務(wù)。不需要任何的API聲明。不需要寫(xiě)多余的代碼。
1. messagebox.IconAsterisk=驚嘆號(hào)圖標(biāo)
2. messagebox.IconError=錯(cuò)誤圖標(biāo)
3. messagebox.IconExclamation=警告圖標(biāo)
4. messagebox.IconHand=錯(cuò)誤圖標(biāo)
5. messagebox.IconInformation=提示圖標(biāo)
所經(jīng)點(diǎn)NET就是打點(diǎn)到達(dá)，在族后面打點(diǎn)，在類(lèi)后面打點(diǎn)，在對(duì)象后面打點(diǎn)。第二個(gè)問(wèn)題就是類(lèi)與類(lèi)之間相互的關(guān)系，Net在網(wǎng)上處理人與人的關(guān)系，在程序語(yǔ)言中處理類(lèi)與類(lèi)的關(guān)系。倒底是加不加share,倒底是類(lèi)后面打點(diǎn),還是Dim成一個(gè)對(duì)象（把他當(dāng)一個(gè)變量吧）再說(shuō)，是等于class,還是New class.是dim xxx as class=new class 還是dim xxx as new class
就是這樣VB.NET函數(shù)調(diào)用將更簡(jiǎn)單，不須要研究一些很難的東西。
VB.NET自定義函數(shù)
很簡(jiǎn)單，在end select前再多加一種情況case else return "XXXx",因?yàn)槟阒惶峁┝?-9這10種情況
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function
新聞標(biāo)題：vb.net自帶的函數(shù),vb程序函數(shù)大全
文章源于：http://muchs.cn/article26/hcpcjg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、Google、手機(jī)網(wǎng)站建設(shè)、服務(wù)器托管、網(wǎng)站維護(hù)、App開(kāi)發(fā)
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)
