vb.net 如何能獲取到 自定義函數(shù)的代碼內(nèi)容

首先新建一個(gè)類庫(kù)項(xiàng)目，把你的代碼以類（需要實(shí)例）或模塊（靜態(tài)）的形式封裝好，生成過(guò)后在輸出目錄（bin/debug或bin/release）里面會(huì)有個(gè)項(xiàng)目名.dll文件，就是它了。

發(fā)展壯大離不開(kāi)廣大客戶長(zhǎng)期以來(lái)的信賴與支持，我們將始終秉承“誠(chéng)信為本、服務(wù)至上”的服務(wù)理念，堅(jiān)持“二合一”的優(yōu)良服務(wù)模式，真誠(chéng)服務(wù)每家企業(yè)，認(rèn)真做好每個(gè)細(xì)節(jié)，不斷完善自我，成就企業(yè)，實(shí)現(xiàn)共贏。行業(yè)涉及成都服務(wù)器托管等，在成都網(wǎng)站建設(shè)公司、全網(wǎng)營(yíng)銷推廣、WAP手機(jī)網(wǎng)站、VI設(shè)計(jì)、軟件開(kāi)發(fā)等項(xiàng)目上具有豐富的設(shè)計(jì)經(jīng)驗(yàn)。

在調(diào)用方項(xiàng)目里，右鍵解決方案資源管理器中的引用，添加引用，瀏覽到你的dll文件。接著到你的代碼中，代碼最上面寫(xiě)：

Imports 項(xiàng)目名

然后調(diào)用這個(gè)類或模塊即可。

根據(jù)你的情況，可能用模塊封裝更適合一些。比如：

Public Module MatrixSolve

Public Function Solve(para1 As Double,para2 As Double) As Double

'一些代碼

Return result

End Function

End Module

調(diào)用起來(lái)只要這樣即可：

Dim num As Double = MatrixSolve.Solve(x,y)

注意模塊和函數(shù)的訪問(wèn)級(jí)別都用Public，否則外面無(wú)法訪問(wè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

在vb.net中怎么調(diào)用自定義類？

代碼已測(cè)試。

一、測(cè)試需要的INI文件。名稱為“setinfo.ini”，存放路徑為你解決方案里“Bin“文件夾的”Debug“文件夾里。

內(nèi)容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的類。新建一個(gè)類，類中內(nèi)容為：

Public?Class?Class1

Public?Declare?Function?GetPrivateProfileString?Lib?"kernel32"?Alias?"GetPrivateProfileStringA"?_

(?_

ByVal?lpApplicationName?As?String,?_

ByVal?lpKeyName?As?String,?_

ByVal?lpDefault?As?String,?_

ByVal?lpReturnedString?As?String,?_

ByVal?nSize?As?Int32,?_

ByVal?lpFileName?As?String?_

)?As?Int32

End?Class

三、界面代碼：

Imports?System.IO?'for?path

Public?Class?Form1

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

getINI()

End?Sub

Private?Sub?getINI()

Dim?iniclass?As?New?Class1?'

Dim?myBf?As?String?'get?set_info?開(kāi)辟存儲(chǔ)的內(nèi)存

myBf?=?New?String(CChar(""),?256)

Dim?myFN?As?String?'配置文件的文件路徑

myFN?=?Path.Combine(My.Application.Info.DirectoryPath,?"setinfo.ini")

Dim?myAN?As?String?'Application_NAME,也是Section名稱

myAN?=?Me.TextBox1.Text

Dim?myKN?As?String?'KEY_NAME,關(guān)鍵字名稱

myKN?=?Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN,?myKN,?"",?myBf,?myBf.Length,?myFN)?'調(diào)用讀取INI文件的操作

TextBox3.Text?=?Microsoft.VisualBasic.Left(myBf,?InStr(myBf,?Chr(0))?-?1)?'截取有用部分,有必要

End?Sub

End?Class

四、測(cè)試截圖如下

VB.NET中后面接用戶自定義方法是什么意思

你該貼一下代碼的。

是不等于號(hào)

你說(shuō)的這個(gè)用戶自定義的方法有可能是function修飾的有返回值的方法

他有可能返回?cái)?shù)字，字符串，boolean等等

這個(gè)時(shí)候就可以用變量去跟方法返回值進(jìn)行比較

比如 方法返回1

那么

Dim a as integer =2

Public Function returnb () as Integer

return 1

End function

If a returnb Then

Console.write("不相等")

End If