投稿日	： 2003/12/12(Fri) 17:24
投稿者	： tunenon
Ｅメール	： tune@gold.ocn.ne.jp
ＵＲＬ	：
タイトル	： コントロールの動的配置とそれぞれの制御

初めて投稿させていただきます。

Controls.Addメソッドを使って、フォームにコマンドボタンを3つ動的に配置します。
それぞれのコマンドボタンのCaptionを「朝」「昼」「夜」と設定し、
それぞれのClickイベントを
「おはようございます」、「こんにちは」、「おやすみなさい」
のように、別々に制御するにはどのようにすればよいのでしょうか？

以下のように、考えてみましたがうまくいきませんので質問させていただきます。
よろしくお願いします。

************************************************************************
Option Explicit
Private WithEvents btnObj 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 i As Integer
    For i = 1 To 3
        Set btnObj = Controls.Add("VB.CommandButton", "myCmd" & i)
        With btnObj
            .Visible = True
            .Width = 2000
            .Top = i * 500
            .Left = 500
            .Height = 500
        End With
        Select Case i
            Case 1
                btnObj.Caption = "朝"
            Case 2
                btnObj.Caption = "昼"
            Case 3
                btnObj.Caption = "夜"
        End Select
    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