VB中能否定义一个常量数组，并为其赋值？该怎么做？

[ttss]

我现在有40几个常量要赋值，但现在还没有具体确定。我想定义一个常量数组，并像C语言中那样拿一个大括号给40多个值一起赋值，哪位高手能指点迷津？小弟不胜感谢！

[TechnoFantasy]

Private Sub Command1_Click()
Dim x

x = Array(20, 20)
End Sub

[sonicdater]

MyArray = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")

[ttss]

x 是常量数组吗？我想定义一个6*7的数组怎么做？

[ttss]

给常量赋值用array好像不行！

[zyl910]

不行！

试一试定义为枚举形：
Private Enum ……
C1=1
C1=2
……
End Enum

[ehappyhare]

没必要吧，定义一个6＊7的数组，接着给它赋值不就行了？（当然，以后注意不要再改变它的值就行）

[thorkhan]

用枚舉較方便

[water_j]

up!~

[water_j]

UP！

[ttss]

我刚才看了一下枚举形，不太懂。是给常量定义成枚举形之后就能通过其枚举形变量给常量赋值，还是通过枚举形定义的变量可以当成常量使了？

[zyl910]

作为变量使用！

而且 VB IDE 会自动弹出可以选择的项目


比如：
Private Enum TestEnum
Enum1=1
Enum2=2
End Enum

Private Sub Form_Load()
Dim TE as TestEnum

'观察此时的屏幕
TE=
End Sub

[bestofbest]

不可以吧，怎么可能定义这样的常量呢？


gz

[sonicdater]

你想一次 进行 40个 赋值, 又要 保证它是常数 .
实在不好办 .

用 枚举型, 是可以的, 但 它不是 常量 的.

如果你坚持 要赋值后,还是常数, 只有用一种恐怖的方法，

先用 Array 一次性 给 变量赋值 .
再 通过 SafeArray 结构, 添加一个Flag : FADF_FIXEDSIZE

fFeatures = fFeatures And FADF_FIXEDSIZE

这样做很麻烦. 甚至 还不容易成功. 所以, xx 不可兼得 呀.

[ttss]

有两个问题：
1. 例如正常我要定义：const A = CONST1，这里的A是不是可以理解成你例子中的TE?
2. 用枚举形定义和我这样定义有什么好处？
例：const A1=9
const A2=7
……
……
const A42=3

[ttss]

sonicdater 你说的那个safeArray看起来很高深，你那个flag是干什么的？为什么这么做？

[sonicdater]

很复杂. 不好实现. 而且我也没试过能不能成功.

VB的数组变量在内存中存放的不是 其内容的地址, 而是一个 SafeArray 结构的地址(即 指针) , 而这个 结构 包含了一个 数组的信息,包括 它的 维数,类型[可变size 还是 固定size ,即 Dim A(1) 还是 Dim A() ], 还包括 fFeatures 标示符. 一句两句是说不清的.
--------------------------------------------------------------------
本人水平有限,
只有建议 你放弃 "想一次 进行 40个 赋值, 又要 保证它是常数 ".
惭愧惭愧.

[ttss]

书山有路勤为径，学海无涯苦作舟！
看来我要学得还很多啊！感谢大家的帮忙！
我学到了很多知识！

[KiteGirl]

你想实现什么样的功能呢？好象没什么地方一定要用常量数组吧？