VB2010でイベントハンドラの動的登録
ＶＢ２０１０で目標はフォーム上で作成したLINESHAPEをクリックして消去する事です
下記のようにコードを書いてみました
Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
Private px1 As Integer = 0
Private px2 As Integer = 0
Private py1 As Integer = 0
Private py2 As Integer = 0
Private curv As LineShape
Private a As Boolean = True
Private flg As Boolean = True
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
// 座標と始点・終点フラグの初期化
px1 = 0
px2 = 0
py1 = 0
py2 = 0
a = True
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
// SHAPECONTAINER の用意
Dim canvasx As New ShapeContainer
// LINESHAPE の用意
Dim ls1 As New LineShape
// LineShape インスタンス設定
canvasx.Parent = Me
ls1.Name = "curv"
ls1.Parent = canvasx
ls1.BorderColor = Color.Lime
ls1.SelectionColor = Color.Green
ls1.X1 = px1
ls1.X2 = px2
ls1.Y1 = py1
ls1.Y2 = py2
// ShapeContainer のコントロールコレクションへの追加
Me.Controls.Add(canvasx)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
// 座標と始点・終点フラグの初期化
px1 = 0
px2 = 0
py1 = 0
py2 = 0
a = True
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
//CURV_CLiCKのイベントの登録
AddHandler curv.Click, AddressOf curv_Click
End Sub
Private Sub Form1_Click(sender As System.Object, e As System.EventArgs) Handles MyBase.Click
// Lineの座標を拾う
Dim Pos As Point = Me.PointToClient(Windows.Forms.Cursor.Position)
If a = True Then
px1 = Pos.X
py1 = Pos.Y
a = False
Else
px2 = Pos.X
py2 = Pos.Y
End If
End Sub
Private Sub curv_Click(sender As System.Object, e As System.EventArgs)
// クリックされたLineShapeの消去のつもり、テスト未完
For Each obj In Me.Controls
If obj = sender Then
obj = Nothing
End If
Me.Refresh()
Next
End Sub
End Class
書かれた直線をクリックしても何も起きません。ＬｉｎｅＳｈａｐｅ は確かにハイライト色に変化するのですが、イベントが発生しません
なにとぞご教授を
お礼
C系は型がしっかりしていて難しいですね (それが利点なんでしょうが) ありがとうございます もう少しがんばってみます。