首先新建一個(gè)類(lèi)庫(kù)項(xiàng)目,把你的代碼以類(lèi)(需要實(shí)例)或模塊(靜態(tài))的形式封裝好,生成過(guò)后在輸出目錄(bin/debug或bin/release)里面會(huì)有個(gè)項(xiàng)目名.dll文件,就是它了。
10年的盱眙網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。全網(wǎng)整合營(yíng)銷(xiāo)推廣的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整盱眙建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)公司從事“盱眙網(wǎng)站設(shè)計(jì)”,“盱眙網(wǎng)站推廣”以來(lái),每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
在調(diào)用方項(xiàng)目里,右鍵解決方案資源管理器中的引用,添加引用,瀏覽到你的dll文件。接著到你的代碼中,代碼最上面寫(xiě):
Imports 項(xiàng)目名
然后調(diào)用這個(gè)類(lèi)或模塊即可。
根據(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)。
代碼已測(cè)試。
一、測(cè)試需要的INI文件。名稱(chēng)為“setinfo.ini”,存放路徑為你解決方案里“Bin“文件夾的”Debug“文件夾里。
內(nèi)容:
[Location]
pnlTime.Location.X=787
pnlTime.Location.Y=0
[TopMost]
Top=True
二、操作INI文件的類(lèi)。新建一個(gè)類(lèi),類(lèi)中內(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名稱(chēng)
myAN?=?Me.TextBox1.Text
Dim?myKN?As?String?'KEY_NAME,關(guān)鍵字名稱(chēng)
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è)試截圖如下
你該貼一下代碼的。
是不等于號(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
用戶的自定義設(shè)置一般可以存在app.config文件中
在程序開(kāi)啟后可以定義全局變量存儲(chǔ)這些配置,這樣就不必每次都讀配置文件了
你可以在你的項(xiàng)目屬性里面找到資源選項(xiàng),里面可以直接添加靜態(tài)的配置(此處添加的項(xiàng)會(huì)直接存儲(chǔ)在app.config中)