1樓:棘棘芽
如果是一個類裡的,類名為 user
private vname as string '這裡真實的存東西的
'寫一個屬性
public property let name(value as string )'這裡的name就是別人傳過來的值
vname=value'這裡是直接等了,你可以在這裡入一些** 又如有性別問題.如果name值變了,你可以清除為空,如果你的類有事件,可以觸發你的事件
end properpty
public property get name as string '別人取值時返回的值,你也可以加入一些自己的處理**
name=vname
end property
''''
'也可以有引數的屬性
'egproperty let tels(value as string,index as integer )
'如果上面有一個陣列類的,你就可以這樣用
'如果上面的陣列名為 vtels() as string '
vtels(index)=value'就可以這樣用
end proerpty
property get tels(index as integer) as string
tels=vtels(index)
end property
'類的使用
dim t as new user
t.name="名稱1"'這時就會發生你類的let 過程
msgbox t.name '這裡就會發生 name 的get 過程
t.tels(1)="110"'就會發生 tel 的 let 過程
msgbox t.tels(1)' 就是 get 了
請各位大蝦給我一些故事,請教各位大蝦 真實的故事 到底應該用real stroy還是true story呢
從前有兩個部落,一個部落有一位有順風耳的公主,一個部落有一位千裡眼的王子。他們在一個偶然的時候想見並相愛了,處於各自的利益,他們的部落不讓他們如願。於是他們私奔了,在一個沒人的山上住了下來,王子把看到的都講給公主,公主把聽到的都講給王子,有很多人議論他們人罵他們的話都讓他們看見聽到,這讓他們很煩惱。...
《請教》作文怎麼寫,請教的作文怎麼寫?
微笑之普利西亞 請教在時間這個話題上,人們的定向思維是面對未來,挑戰未來,而面對過去似乎還很少,但有的時候,我們不得不面對過去。唐太宗李世明說過 以史為鑑,可以知興替。以歷史為借鑑,把它當成一面鏡子,可清曉自己的不足之處,以後應該怎麼做,從歷史吸取經驗,來完善今天你自己的言行。歷史是不能忘記的,用其...
請給我寫一套4000左右的電腦配置
cpu amd 速龍ii x4 635 670新4核,整合2mb二級快取,價效比出色。主機板 技嘉 ga ma770t us3 649採用770獨立晶片組,搭配獨立顯示卡,穩定和相容更加出色。記憶體 金士頓 2gb ddr3 1333 1 295ddr3 1333 2g,價效比出色。硬碟 wd 50...