1、先定義一個(gè)結(jié)構(gòu)體
創(chuàng)新互聯(lián)公司主要從事成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)友誼,十年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18980820575
2、初始化并定義一個(gè)結(jié)構(gòu)體的變量
3、使用該變量即可
一個(gè)簡單的例子:
Dim a(3) As Integer = { 0, 1, 2 }**修改**既然有界數(shù)組不能初始化,就還缺(?。┙鐢?shù)組試試嘛:
Dim a() As Integer = { 0, 1, 2 }
類型不匹配的錯(cuò)誤估計(jì)是你的結(jié)構(gòu)體缺少構(gòu)造函數(shù)造成的。在你的quality_i結(jié)構(gòu)體定義里面加一個(gè)構(gòu)造函數(shù),如下所示
Public Structure quality_i
Public nub As Integer
Public nae As String
Public Sub New(ub As Integer, ae As String)nub = ubnae = aeEnd SubEnd Structure然后以如下方式初始化:
因?yàn)閿?shù)組是引用類型,所以直接賦值會(huì)出現(xiàn)這種情況
可以在kb=k后單獨(dú)復(fù)制數(shù)組
kb.rr=k.rr.Clone
這樣兩個(gè)數(shù)組就是獨(dú)立的了
之所以先kb=k是為了當(dāng)其含有多個(gè)成員時(shí)值型成員可以直接復(fù)制,只需Clone引用類型的就行了
結(jié)構(gòu)體無法初始化值,你可以用類實(shí)現(xiàn),或者寫一個(gè)構(gòu)造函數(shù),把值傳進(jìn)去。
Public Structure wheelmodel
Public ID As Short
Public swapway() As Short
Public start As Short
Public Sub New(ByVal Size As UShort) 'Size就是傳入的數(shù)組的大小
swapway = New Short(Size) {}
End Sub
End Structure
調(diào)用的時(shí)候:
Dim x As wheelmodel = New wheelmodel(10)