如果是public，直接對(duì)象.成員，private可以寫個(gè)成員函數(shù)返回這個(gè)成員，友元也行。
在麥積等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作 網(wǎng)站設(shè)計(jì)制作按需求定制開發(fā),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),成都營銷網(wǎng)站建設(shè),外貿(mào)網(wǎng)站制作,麥積網(wǎng)站建設(shè)費(fèi)用合理。
比如：
class
A
{
public:
int
get(){return
a;}
private:
int
a;
}
代碼已測試。
一、測試需要的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?開辟存儲(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
四、測試截圖如下
調(diào)用過程，調(diào)用過程有諸多技巧，它們與過程的類型、位置以及在應(yīng)用程序中的使用方式有關(guān)。下面說明如何調(diào)用 Sub 過程和 Function 過程。
調(diào)用 Sub 過程
與 Sub 過程不同，在表達(dá)式中，Sub 過程不能用其名字調(diào)用。調(diào)用 Sub 過程的是一個(gè)獨(dú)立的語句。Sub 過程還有一點(diǎn)與函數(shù)不一樣，它不會(huì)用名字返回一個(gè)值。但是，與 Function過程一樣，Sub 過程也可以修改傳遞給它們的任何變量的值。
調(diào)用 Sub 過程有兩種方法：
'以下兩個(gè)語句都調(diào)用了名為 MyProc 的 Sub 過程。
Call MyProc (FirstArgument, SecondArgument)
MyProc FirstArgument, SecondArgument
注意，當(dāng)使用 Call 語法時(shí)，參數(shù)必須在括號(hào)內(nèi)。若省略 Call 關(guān)鍵字，則也必須省略參數(shù)兩邊的括號(hào)
調(diào)用函數(shù)過程
通常，調(diào)用自行編寫的函數(shù)過程的方法和調(diào)用 Visual Basic 內(nèi)部函數(shù)過程（例如 Abs）的方法一樣；即在表達(dá)式中寫上它的名字。
'下面的語句都調(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)用同一個(gè)函數(shù)：
Call Year (Now)
Year Now
當(dāng)用這種方法調(diào)用函數(shù)時(shí)，Visual Basic 放棄返回值。
調(diào)用其它模塊中的過程
在工程中的任何地方都能調(diào)用其它模塊中的公用過程?？赡苄枰付ㄟ@樣的模塊，它包含正在調(diào)用的過程。調(diào)用其它模塊中的過程的各種技巧，取決于該過程是在窗體模塊中、類模塊中還是標(biāo)準(zhǔn)模塊中。
窗體中的過程
所有窗體模塊的外部調(diào)用必須指向包含此過程的窗體模塊。如果在窗體模塊 Form1 包含 SomeSub 過程，則可使用下面的語句調(diào)用 Form1 中的過程：
Call Form1.SomeSub(arguments)
類模塊中的過程
與窗體中調(diào)用過程類似，在類模塊中調(diào)用過程要調(diào)用與過程一致并且指向類實(shí)例的變量。例如，DemoClass 是類 Class1 的實(shí)例：
Dim DemoClass as New Class1
DemoClass.SomeSub
但是不同于窗體的是，在引用一個(gè)類的實(shí)例時(shí)，不能用類名作限定符。必須首先聲明類的實(shí)例為對(duì)象變量（在這個(gè)例子中是 DemoClass ）并用變量名引用它。
標(biāo)準(zhǔn)模塊中的過程
如果過程名是唯一的，則不必在調(diào)用時(shí)加模塊名。無論是在模塊內(nèi)，還是在模塊外調(diào)用，結(jié)果總會(huì)引用這個(gè)唯一過程。如果過程僅出現(xiàn)在一個(gè)地方，這個(gè)過程就是唯一的。
如果兩個(gè)以上的模塊都包含同名的過程，那就有必要用模塊名來限定了。在同一模塊內(nèi)調(diào)用一個(gè)公共過程就會(huì)運(yùn)行該模塊內(nèi)的過程。例如，對(duì)于 Module1 和 Module2 中名為 CommonName 的過程，從 Module2 中調(diào)用 CommonName 則運(yùn)行 Module2 中的 CommonName 過程，而不是 Module1 中的 CommonName 過程。
從其它模塊調(diào)用公共過程名時(shí)必須指定那個(gè)模塊。例如，若在 Module1 中調(diào)用 Module2 中的 CommonName 過程，要用下面的語句：
Module2.CommonName (arguments)
Public ? 用于聲明對(duì)所有模塊中的所有其它過程都可以使用的過程。?
Private ?用于聲明只能在包含該聲明的模塊中使用的過程。
dim objEye as IEye = new Eye(); '用接口型引用，new 實(shí)現(xiàn)類的對(duì)象。
messagebox.show(objEye.IEye) '調(diào)用屬性
比如有一個(gè)類是You.dll，里面有一個(gè)封裝好的方法是YouSub(byval a as system.array)
在工程里面，你在引用中，添加引用，選擇You.dll的路徑所在，添加引用；
添加引用后，要定義一個(gè)類，并實(shí)例化他
dim you as You=new You()
you.YouSub("參數(shù)")
如上面所說，你可能還不太了解類、函數(shù)等的作用。
類可以用來封裝一系列操作，或者是一類對(duì)象的特性。像上面的描述，有可能是濫用類了。
建議你這樣，弄一個(gè)專門的運(yùn)算類，里面有四個(gè)運(yùn)算的函數(shù)，比如：
Class 運(yùn)算
Shared Function 加(ByVal 加數(shù)1 As Decimal, ByVal 加數(shù)2 As Decimal) As Decimal
'舉個(gè)例子
Return 加數(shù)1 ＋ 加數(shù)2 '百度打不出英文加號(hào)，你自己改一下
Exit Function
End Function
Shared Function 減(ByVal 被減數(shù) As Decimal, ByVal 減數(shù) As Decimal) As Decimal
'舉個(gè)例子
Return 被減數(shù) - 減數(shù)
Exit Function
End Function
End Class
上面我寫了兩個(gè)例子，你可以照抄然后自己寫乘除的，總之不要濫用類就行。
PS：Shared函數(shù)的使用不需要類被實(shí)例化，可以直接這樣使用：
Msgbox(運(yùn)算.加(1,2).ToString)
你會(huì)發(fā)現(xiàn)“運(yùn)算”是藍(lán)色的
重慶分公司
重慶分公司
