📄 用vb6.0开发activex控件,如何填加一个数组属性.txt
字号:
MSDN中 介 绍 的 方 式 和 ChartData属 性 是 不 同 的 。
如 果 你 象 使 用 MSDN中 这 样 方 式 , 通 常 你 的 控 件 中 应 该 有 一 个 数 组 来 保 存 用 户 的 设 置 , 例 如 :
Dim m_Things(10, 10)
Public Property Let Things(ByVal X As Integer, _
ByVal Y As Integer, ByVal Thing As Variant)
m_Things(X, Y) = Thing
End Property
Public Property Get Things(ByVal X As Integer, _ByVal Y As Integer) As Variant
Things = m_Things(X, Y)
End Property
如 果 你 要 使 用 MSChart的 ChartData方 式 , 只 需 要 将 属 性 类 型 声 明 为 Variant就 可 以 了 。
Dim m_ChartData As Variant
Public Property Get ChartData() As Variant
ChartData = m_ChartData
End Property
Public Property Let ChartData(ByVal data As Variant)
m_ChartData = data
End Property
如 果 你 需 要 访 问 m_ChartData中 的 元 素 , 可 以 这 样 :
Print m_ChartData(0)
<END>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -