代碼已測(cè)試。
成都創(chuàng)新互聯(lián)成立于2013年,我們提供高端網(wǎng)站建設(shè)公司、成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、網(wǎng)站定制、全網(wǎng)營(yíng)銷(xiāo)推廣、成都小程序開(kāi)發(fā)、微信公眾號(hào)開(kāi)發(fā)、營(yíng)銷(xiāo)推廣服務(wù),提供專業(yè)營(yíng)銷(xiāo)思路、內(nèi)容策劃、視覺(jué)設(shè)計(jì)、程序開(kāi)發(fā)來(lái)完成項(xiàng)目落地,為成都陽(yáng)臺(tái)護(hù)欄企業(yè)提供源源不斷的流量和訂單咨詢。
一、測(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è)試截圖如下
顯然想被外部工程或類引用到此類中的方法,你定義的修飾符private不可能實(shí)現(xiàn)。首先你要明白他所修飾的類的作用域,private :只能被類本身的成員訪問(wèn)。所以你在其它類中想使用該類中的方法是不可能的,因?yàn)樵擃悓?duì)其它工程或類不可見(jiàn)。你可以把修飾符改成public。public:訪問(wèn)不受限。可被不同程序集不同類來(lái)訪問(wèn)。
模塊:相當(dāng)于全局級(jí)變量。
類:可以實(shí)例化,繼承等。
對(duì)于你這樣的初學(xué)者來(lái)說(shuō),可以視作 模塊變量=類的public shared變量。
最好的方法是:項(xiàng)目-添加-類-粘貼代碼。
1.不正確
Dim abc As myClass,定義一個(gè)可以引用myClass類型對(duì)象的變量abc。這個(gè)abc變量存在于棧上。
abc=New myClass。New myClass創(chuàng)建myClass實(shí)例對(duì)象,這個(gè)對(duì)象存在于托管堆上。然后(同時(shí))讓abc引用(指向)這個(gè)對(duì)象。
abc變量在棧上,而對(duì)象在托管堆上。
abc儲(chǔ)存的是對(duì)象的地址,而不是對(duì)象本身。
看下面的代碼
Dim a As myClass,b As myClass,c As myClass
a=New myClass
b=a
c=a
整個(gè)過(guò)程中只創(chuàng)建了一個(gè)myClass對(duì)象,位于托管堆上。
三個(gè)myClass類型的變量a、b、c位于棧上,都指向了這一個(gè)myClass對(duì)象
2.類的成員分 實(shí)例成員 和 靜態(tài)成員
實(shí)例成員 必須在實(shí)例對(duì)象上調(diào)用
靜態(tài)成員 可以直接調(diào)用,不需要實(shí)例對(duì)象。
本文題目:vb.net的類教程 vbnet web編程
標(biāo)題路徑:http://m.newbst.com/article38/hjpjpp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制開(kāi)發(fā)、網(wǎng)站策劃、網(wǎng)站設(shè)計(jì)、電子商務(wù)、外貿(mào)建站、品牌網(wǎng)站設(shè)計(jì)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)