サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/12/27 15:36
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[基本コード][][] *
* キーワード：変数の型,関数,プロシージャ,配列処理,, *
***********************************************************************************
---------------------------------------------------------------------------------
No.515 RE:プロパティに配列を設定する 投稿者：たくボン [1999/06/23(水)16：33分]
---------------------------------------------------------------------------------
こんな風に書いてみるのはどうでしょうか？
確かに、あまり行儀の良いコードではありませんが、どうしても配列に
されたいのならこれでいけるハズです。
（型チェック等は入れていません。）
'---- UserControl1.ctl -----
Option Explicit
Option Base 0
Private m_VarArray As Variant
Private m_VarArrayCount As Long
Public Property Get VarArray() As Variant
VarArray = m_VarArray
End Property
Public Property Let VarArray(ByVal vNewValue As Variant)
Dim i As Integer
m_VarArray = vNewValue
m_VarArrayCount = UBound(m_VarArray) + 1
End Property
Public Property Get VarArrayCount() As Long
VarArrayCount = m_VarArrayCount
End Property
'---- From1.frm -----
Option Explicit
Option Base 0
Private Sub Form_Load()
Dim var As Variant
Dim i As Long
var = Array("A", "B", "C", "D", "E")
With UserControl11
.VarArray = var
For i = 0 To .VarArrayCount - 1
Debug.Print .VarArray(i)
Next i
End With
End Sub
ActiveX関連で参考にしていた書籍は、「Visual C++5.0 によるActiveXコンポーネント開発」
(ISBN4-88135-570-8 C3055)という翔泳社の本です。
 |
