| タイトル | ： 動的に追加したコントロールを削除 |
| 記事No | ： 9073 |
| 投稿日 | ： 2009/06/11(Thu) 13:22 |
| 投稿者 | ： VB |
VB2008
WinXP
-----------------------------------------------------------------------------------
Private Sub SplitContainer1_Panel1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SplitContainer1.Panel1.MouseUp
On Error Resume Next
Dim NewLabel As New Label()
'ラベル追加
If e.Button = Windows.Forms.MouseButtons.Left Then
NewLabel.Name = "Label" + CStr(StCnt + 1)
NewLabel.Location = New Point(e.X, e.Y)
NewLabel.Size = New Size(100, 28)
NewLabel.Font = New Font(NewLabel.Font.FontFamily, 12, FontStyle.Regular)
NewLabel.Visible = True
SplitContainer1.Panel1.Controls.Add(NewLabel)
StCnt += 1
End If
'ラベル削除
If e.Button = Windows.Forms.MouseButtons.Right Then
SplitContainer1.Panel1.Controls.RemoveAt(0)
End If
End Sub
-----------------------------------------------------------------------------------
作ったラベルを指定したものだけを消すには、
RemoveAt(index as integer)
↑選択したラベルのIndexを指定しなければならないということですが
Indexとは、TabIndexのことでしょうか？(^^;
どうすれば、指定したものだけを任意の順番で消していくことが出来るでしょうか？
それが分かれば動的に作ったコントロールの編集(サイズの変更など)は、
分かるような気がするので。
どうぞアドバイスよろしくお願いいたします。
|