タイトル : 疑似配列 投稿日 : 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 |