08/09/30 13:16:43
ボタンをクリックするたびに新しいボタンを作成して、個々に一定時間ごとに
テキストを変たいと考えています。この場合、単純にTimerコントロールでは
制御できないと思いますが、どうしたらよいでしょうか。
コードは、例えばこんな感じです（だいぶ簡略化してありますが）
Private Sub Button1_Click(省略)
Dim Sample As New Button()
Sample.Text = "YES"
Sample.Location = New Point(xxx, xxx) ←Button1をクリックするごとに位置が変わるようにしています
Call Button_Text_Change(Sample)
End Sub
Private Sub Button_Text_Change(ByVal sample As Button)
Me.Controls.Add(Sample)
ここに、一定時間後にボタンのラベルを「NO」などに変えるコードを入れたいのです
End Sub
よろしくお願いします