投稿日	： 2003/12/12(Fri) 17:45
投稿者	： nanashi
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: コントロールの動的配置とそれぞれの制御

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

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

★ - コントロールの動的配置とそれぞれの制御 - tunenon 12/12-17:24No.7102
• Re: コントロールの動的配置とそれぞれの制.. - nanashi 12/12-17:45 No.7103
  • Re^2: コントロールの動的配置とそれぞれの.. - tunenon 12/12-18:01 No.7105
• 動的配置したボタンの色 - Dai 01/30-13:14 No.7755
  • 不必要なスレッドは上げないで - 花ちゃん 01/30-13:42 No.7757