vb.net中的mid（）用法

VB.NET編程Mid函數(shù)一般用于返回原字符串中子串，比如說：

網(wǎng)站建設哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設計、網(wǎng)站建設、微信開發(fā)、微信小程序定制開發(fā)、集團企業(yè)網(wǎng)站建設等服務項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了蔡家坡免費建站歡迎大家使用！

Dim?MyString,?FirstWord,?LastWord,?MidWords??

MyString?=?"Mid?Function?Demo"?建立一個字符串。??

FirstWord?=?Mid(MyString,?1,?3)?'?返回?"Mid"。??

LastWord?=?Mid(MyString,?14,?4)?'?返回?"Demo"。??

MidMidWords?=?Mid(MyString,?5)?'?返回?"Funcion

具體函數(shù)說明如下：返回 Variant (String)，其中包含字符串中指定數(shù)量的字符。

mid函數(shù)的語法：

Mid(string,?start[,?length])

mid函數(shù)的參數(shù)：

string 必要參數(shù)。字符串表達式，從中返回字符。如果 string 包含 Null，將返回 Null；

start 必要參數(shù)。為 Long。string 中被取出部分的字符位置。如果 start 超過 string 的字符數(shù)，VB.NET Mid函數(shù)返回零長度字符串 ("")；

length 可選參數(shù)；為 Variant (Long)。要返回的字符數(shù)。如果省略或 length 超過文本的字符數(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語言中的一個族，System.Runtime.InteropServices是system中的一個類。System.Runtime.InteropServices.DLLimpor是其中的一個方法。調(diào)用DLL的API

接口，這個的意思就是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 但是如果沒有這個share 在class后打點就沒有MessageboxA的成員出現(xiàn)了 ，現(xiàn)在你就象以前一樣的使用他吧。

其實上面這個VB.NET函數(shù)調(diào)用方法并不正確，我們?nèi)耘f要使用API聲明，只是換了一各形式

如果你認為這就是VB.NET就錯了，看看這個：

system.WinForms.MessageBox.Show("對話內(nèi)容寫在這里", "標題寫在這里", messagebox.OK BitOr messagebox.IconAsterisk)

這就是面向?qū)ο?，你已?jīng)完成了所有的任務。不需要任何的API聲明。不需要寫多余的代碼。

1. messagebox.IconAsterisk=驚嘆號圖標

2. messagebox.IconError=錯誤圖標

3. messagebox.IconExclamation=警告圖標

4. messagebox.IconHand=錯誤圖標

5. messagebox.IconInformation=提示圖標

所經(jīng)點NET就是打點到達，在族后面打點，在類后面打點，在對象后面打點。第二個問題就是類與類之間相互的關(guān)系，Net在網(wǎng)上處理人與人的關(guān)系，在程序語言中處理類與類的關(guān)系。倒底是加不加share,倒底是類后面打點,還是Dim成一個對象（把他當一個變量吧）再說，是等于class,還是New class.是dim xxx as class=new class 還是dim xxx as new class

就是這樣VB.NET函數(shù)調(diào)用將更簡單，不須要研究一些很難的東西。

VB.NET自定義函數(shù)

很簡單，在end select前再多加一種情況case else return "XXXx",因為你只提供了0-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