VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

コントロールの動的配置とそれぞれの制御(VB6.0)_2 ( No.2 ) 　[親スレッドへ]

日時： 2011/04/05 13:04
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[コントロール共通][基本コード][]                                    *
* キーワード：動的作成,実行時に作成,配列,テキストボックス,ボタン,イベント処理     *
***********************************************************************************

-------------------------------------------------------------------------------
Re: コントロールの動的配置とそれぞれの制.. - nanashi  2003/12/12-17:45 No.7103
-------------------------------------------------------------------------------

動的な配置などはやったことないですけど、以下のようにしたら動きました。

Option Explicit

Private WithEvents myCmd1 As CommandButton
Private WithEvents myCmd2 As CommandButton
Private WithEvents myCmd3 As CommandButton

Private Sub myCmd1_Click()
    MsgBox "おはようございます"
End Sub

Private Sub myCmd2_Click()
    MsgBox "こんにちは"
End Sub

Private Sub myCmd3_Click()
    MsgBox "おやすみなさい"
End Sub

Private Sub Form_Load()
    Dim sBuff As String
    Dim i As Integer
    Dim btnObj As CommandButton

    For i = 1 To 3
        Select Case i
            Case 1
                Set myCmd1 = Controls.Add("VB.CommandButton", "myCmd" & i)
                Set btnObj = myCmd1
                sBuff = "朝"

            Case 2
                Set myCmd2 = Controls.Add("VB.CommandButton", "myCmd" & i)
                Set btnObj = myCmd2
                sBuff = "昼"

            Case 3
                Set myCmd3 = Controls.Add("VB.CommandButton", "myCmd" & i)
                Set btnObj = myCmd3
                sBuff = "夜"

        End Select

        With btnObj
            .Visible = True
            .Width = 2000
            .Top = i * 500
            .Left = 500
            .Height = 500
            .Caption = sBuff
        End With

        Set btnObj = Nothing
    Next i
End Sub