類模塊代碼
成都創(chuàng)新互聯(lián)公司成立與2013年,先為隰縣等服務(wù)建站,隰縣等地企業(yè),進行企業(yè)商務(wù)咨詢服務(wù)。為隰縣企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
Option?Explicit
Public?Function?Add(ByVal?a?As?Long,?ByVal?b?As?Long)?As?Long
Add?=?a?+?b?????????????????'反回值A(chǔ)dd=a+b
End?Function
窗體代碼
Dim?s?As?New?Class1
Private?Sub?Command1_Click()
MsgBox?s.Add(10,?10)
End?Sub
調(diào)用過程,調(diào)用過程有諸多技巧,它們與過程的類型、位置以及在應(yīng)用程序中的使用方式有關(guān)。下面說明如何調(diào)用 Sub 過程和 Function 過程。
調(diào)用 Sub 過程
與 Sub 過程不同,在表達式中,Sub 過程不能用其名字調(diào)用。調(diào)用 Sub 過程的是一個獨立的語句。Sub 過程還有一點與函數(shù)不一樣,它不會用名字返回一個值。但是,與 Function過程一樣,Sub 過程也可以修改傳遞給它們的任何變量的值。
調(diào)用 Sub 過程有兩種方法:
'以下兩個語句都調(diào)用了名為 MyProc 的 Sub 過程。
Call MyProc (FirstArgument, SecondArgument)
MyProc FirstArgument, SecondArgument
注意,當使用 Call 語法時,參數(shù)必須在括號內(nèi)。若省略 Call 關(guān)鍵字,則也必須省略參數(shù)兩邊的括號
調(diào)用函數(shù)過程
通常,調(diào)用自行編寫的函數(shù)過程的方法和調(diào)用 Visual Basic 內(nèi)部函數(shù)過程(例如 Abs)的方法一樣;即在表達式中寫上它的名字。
'下面的語句都調(diào)用函數(shù) ToDec。
Print 10 * ToDec
X = ToDec
If ToDec = 10 Then Debug.Print "Out of Range"
X = AnotherFunction ( 10 * ToDec)
就像調(diào)用 Sub 過程那樣,也能調(diào)用函數(shù)。下面的語句都調(diào)用同一個函數(shù):
Call Year (Now)
Year Now
當用這種方法調(diào)用函數(shù)時,Visual Basic 放棄返回值。
調(diào)用其它模塊中的過程
在工程中的任何地方都能調(diào)用其它模塊中的公用過程??赡苄枰付ㄟ@樣的模塊,它包含正在調(diào)用的過程。調(diào)用其它模塊中的過程的各種技巧,取決于該過程是在窗體模塊中、類模塊中還是標準模塊中。
窗體中的過程
所有窗體模塊的外部調(diào)用必須指向包含此過程的窗體模塊。如果在窗體模塊 Form1 包含 SomeSub 過程,則可使用下面的語句調(diào)用 Form1 中的過程:
Call Form1.SomeSub(arguments)
類模塊中的過程
與窗體中調(diào)用過程類似,在類模塊中調(diào)用過程要調(diào)用與過程一致并且指向類實例的變量。例如,DemoClass 是類 Class1 的實例:
Dim DemoClass as New Class1
DemoClass.SomeSub
但是不同于窗體的是,在引用一個類的實例時,不能用類名作限定符。必須首先聲明類的實例為對象變量(在這個例子中是 DemoClass )并用變量名引用它。
標準模塊中的過程
如果過程名是唯一的,則不必在調(diào)用時加模塊名。無論是在模塊內(nèi),還是在模塊外調(diào)用,結(jié)果總會引用這個唯一過程。如果過程僅出現(xiàn)在一個地方,這個過程就是唯一的。
如果兩個以上的模塊都包含同名的過程,那就有必要用模塊名來限定了。在同一模塊內(nèi)調(diào)用一個公共過程就會運行該模塊內(nèi)的過程。例如,對于 Module1 和 Module2 中名為 CommonName 的過程,從 Module2 中調(diào)用 CommonName 則運行 Module2 中的 CommonName 過程,而不是 Module1 中的 CommonName 過程。
從其它模塊調(diào)用公共過程名時必須指定那個模塊。例如,若在 Module1 中調(diào)用 Module2 中的 CommonName 過程,要用下面的語句:
Module2.CommonName (arguments)
Public ? 用于聲明對所有模塊中的所有其它過程都可以使用的過程。
Private ?用于聲明只能在包含該聲明的模塊中使用的過程。
代碼已測試。
一、測試需要的INI文件。名稱為“setinfo.ini”,存放路徑為你解決方案里“Bin“文件夾的”Debug“文件夾里。
內(nèi)容:
[Location]
pnlTime.Location.X=787
pnlTime.Location.Y=0
[TopMost]
Top=True
二、操作INI文件的類。新建一個類,類中內(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?開辟存儲的內(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
四、測試截圖如下
模塊相當于一堆公開方法的集合,類相當于你平時拖的控件,在vb6里面你想自己寫個控件是很復雜的,而vb.net里只需要繼承自現(xiàn)有控件即可。就按鈕來說同樣是按鈕類,你可以拖若干個到界面上,也就是存在若干實例或?qū)ο?,而模塊,通常只有一個對吧,模塊相當于c#的靜態(tài)類。
我不知道VB中的模塊是啥 不過可以給你解釋一下類和命名空間,這個都是通用的
你對類的描述是正確的,但不僅僅是這樣, 在面向?qū)ο笾校?所有被描述的東西都被泛化為類,每一個具體的東西就是對應(yīng)類的實例(也叫類的對象),類的代碼可以寫在任何位置,他具有復用性,一般.net里都是將一個類單獨寫成至少1個獨立的代碼文件
命名空間簡單的說就是類的一前綴,比如說一個類叫德州,中國有一個德州,美國也有一個德州,前面的這個限定國家,就相當于命名空間,比如System.Text.StringBuilder 這個類,類名稱是StringBuilder,命名空間是System.Text,同一個命名空間下不允許出現(xiàn)兩個名字相同的類(有點類似于文件夾和文件的關(guān)系,不同的是,類的名稱不允許跟命名空間相同,比如你在System.Text命名空間里,不能添加一個叫做Text的類,這個.net規(guī)矩,不知道其他的是不是也這樣), 通過命名空間可以把類按照其作用(通常是作用)、以及來源(比如Microsoft命名空間) 進行劃分管理,使其更容被理解和找到
你說這么一大篇全是業(yè)務(wù)邏輯,沒說明你遇到的技術(shù)性問題在哪
.net自帶的config文件來配置連接字符串,比ini好N倍,如果你非要用ini那么自己解決問題
檢測是否能連接用Connection.Open加try catch就可以
新聞名稱:包含vb.net類模塊使用的詞條
文章位置:http://m.rwnh.cn/article30/doopsso.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)頁設(shè)計公司、網(wǎng)站收錄、網(wǎng)站內(nèi)鏈、品牌網(wǎng)站制作、網(wǎng)站策劃、全網(wǎng)營銷推廣
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)