類,是面向?qū)ο笏枷氲囊粋€(gè)產(chǎn)物。它的用途,就在于把事物高度抽象。比如說游戲中的玩家,你可以定義一個(gè)玩家類,這個(gè)類,有自己的屬性和方法,玩家的生命值,等級,金錢,等等等等,它可以有自己的方法,比如,可以跳躍,可以死亡。類,本身并不能存在于內(nèi)存之中,這就解釋了對象的問題。類,實(shí)例化以后,對象誕生,真實(shí)的存在于內(nèi)存之中。你把一個(gè)玩家類實(shí)例化100次,誕生100個(gè)玩家在游戲中。這個(gè)關(guān)系,你可以簡單的這么理解。
十多年的東昌府網(wǎng)站建設(shè)經(jīng)驗(yàn),針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。成都營銷網(wǎng)站建設(shè)的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動調(diào)整東昌府建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“東昌府網(wǎng)站設(shè)計(jì)”,“東昌府網(wǎng)站推廣”以來,每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
模塊相當(dāng)于一堆公開方法的集合,類相當(dāng)于你平時(shí)拖的控件,在vb6里面你想自己寫個(gè)控件是很復(fù)雜的,而vb.net里只需要繼承自現(xiàn)有控件即可。就按鈕來說同樣是按鈕類,你可以拖若干個(gè)到界面上,也就是存在若干實(shí)例或?qū)ο?,而模塊,通常只有一個(gè)對吧,模塊相當(dāng)于c#的靜態(tài)類。
代碼已測試。
一、測試需要的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?開辟存儲的內(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
四、測試截圖如下