tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 疑似配列
投稿日: 2009/09/01(Tue) 16:37
投稿者どったの
VB6ですが。
フォームにスイッチを100個配置したいので、疑似配列を用いて作りたいのですが、
Excelで動いていた物を移植しようとしています。
内容を理解していなくてすみませんが、MyCmdでエラーしています。
ユーザー定義型が定義されていません。と言う事ですがどういう事でしょうか?

’フォーム Form1
Dim CB_dimension1(3) As MyCmd
Private Sub UserForm_Initialize()
    For p = 1 To 3
        Set CB_dimension1(p) = New MyCmd
        CB_dimension1(p).obj = Form1.Controls("Command" & p)
        CB_dimension1(p).Name = "CB-" & p
    Next p
End Sub


'クラスモジュール Class1
Private WithEvents i_ctrl As CommandButton
Private i_name As String

Public Property Let obj(argobj As CommandButton)
    Set i_ctrl = argobj
End Property

Public Property Let Name(argname As String)
    i_name = argname
End Property

Public Property Get Name() As String
    Name = i_name
End Property

Private Sub i_ctrl_Click()
        MsgBox i_name & "が押されました"
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。