台灣最大程式設計社群網站
∣
免費加入會員
∣登入
∣回首頁∣
您好
線上人數
1044
會員總數:
245219
討論主題:
189091
討論區
程式下載/上傳
科技新聞
專欄文章
會員中心
加值服務
外包接案
求職求才
登入
登出
歡迎您
免費
加入會員
討論區選單
新手必讀
我要提問!!
討論區
個人討論區
我的關注主題
我的黑名單
討論區EP英雄榜
專家等級說明
討論區常見問題
兌換發問點數QP
扣點申請加值服務
申請版主
開發工具
ASP
ASP.NET
C#
VB.NET
VB6
C/C++
PHP
Java
Java Script/ Node.js
AJAX / JSON / jQuery
其他語言
行動裝置開發
Android APP 開發
iOS APP/ swift 開發
Windows Phone APP
資料庫
ACCESS
MS SQL
MySQL
Oracle
其他DB
多媒體 / 網管
CSS/HTML5/Bootstarp
影像處理
office VBA / WinOS
Windows 伺服器
Linux / Unix
網管 / 資安 / VM
硬體 / 週邊 / 其他
綜合
求職求才
外包接案
心情甘苦談
網站經營 / 合夥 / 證照
建言 / 公告
文章區
專欄文章
科技新聞
Blog精華文章
討論區列表
>>
VB.NET
>> 對class 不了解 想請教怎麼做
[]
[
我要回覆
]
1
對class 不了解 想請教怎麼做
價值 : 100 QP
點閱數:331 回應數:3
樓主
小魔
2950
153
2941
803
發送站內信
我參考網上的教學做一個類別 可以運作(內容如下)
Public Class JsonDO Private A As Integer = 0 Private B As String = "" Public Property Pid() As Integer Get Return A End Get Set(ByVal value As Integer) A = value End Set End Property Public Property Pname() As String Get Return B End Get Set(ByVal value As String) B = value End Set End Property End Class
單筆寫入值沒問題
Dim Jrecord As New JsonDO Jrecord.Pid = 1 Jrecord.Pname = "aaa"
但是我想要變成像陣列這樣
Dim Jrecord As New JsonDO Jrecord.Pid(0) = 1 Jrecord.Pname(0) = "aaa" Jrecord.Pid(1) = 2 Jrecord.Pname(1) = "bbb"
要怎麼改寫呢 ,麻煩客位大大了
搜尋相關Tags的文章:
[ class ] ,
本篇文章發表於2019-03-15 17:50
別忘捐VP感謝幫助你的人
新手會員瞧一瞧
1樓
不錯的參考
小羊窒息
Dim Jrecord(100) As New JsonDO Jrecord(0).Pid = 1 Jrecord(0).Pname = "aaa" Jrecord(1).Pid = 2 Jrecord(1).Pname = "bbb" .. .. .. Jrecord(100).Pid = 101 Jrecord(100).Pname = "VB多1個可以用"
本篇文章回覆於2019-03-16 00:48
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應
小魔
小羊大 不行耶 會出現如下錯誤
編譯器錯誤訊息: BC30053: Arrays cannot be declared with 'New'. 行 34: Dim Jrecord(100) As New JsonDO 行 35: Jrecord(0).Pid = 1 行 36: Jrecord(0).Pname = "aaa"
本篇文章回覆於2019-03-18 15:19
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
最有價值解答
小羊窒息
Dim Jrecord(100) As JsonDO 'new拿掉 Jrecord(0) = New JsonDO '一個一個 new Jrecord(0).Pid = 1 Jrecord(0).Pname = "aaa" Jrecord(1) = New JsonDO '一個一個 new Jrecord(1).Pid = 2 Jrecord(1).Pname = "bbb" .. .. .. Jrecord(100) = New JsonDO Jrecord(100).Pid = 101 Jrecord(100).Pname = "VB多1個可以用"
本篇文章回覆於2019-03-18 15:32
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
1
回覆
如要回應,請先
登入
.
|
網站導覽
|
網站介紹
|
4P點數說明
|
電子報
|
小舖活動
|
大事紀
|
廣告刊登
|
常見問題
|
聯絡我們
|
版權所有 ©copyright 2000 All Rights Reserved