WithEvents で配列やハッシュを使うには？

解決

ドリフト 2005-09-20 03:55:28 No: 125477

WithEventsで配列やハッシュを使おうとするとエラーがおきます

Friend WithEvents Button(0) As System.Windows.Forms.Button

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles MyBase.Load
        MsgBox("新しいボタン")
        Me.Button(0) = New System.Windows.Forms.Button
        Me.SuspendLayout()

        Me.Button(0).Location = New System.Drawing.Point(0, 0)
        Me.Button(0).Name = "Button0"
        Me.Button(0).Size = New System.Drawing.Size(80, 32)
        Me.Button(0).TabIndex = 0
        Me.Button(0).Text = "Button0"

Me.Controls.Add(Me.Button0)
End Sub

のようにしたいのですがどうしたらよいでしょうか？

ガッ 2005-09-20 05:39:39 No: 125478

WithEventsについて調べましたか？
> Friend WithEvents Button(0) As System.Windows.Forms.Button
Buttonが配列型なので使えないだけだと思うのですが…

※AddHandlerなるものを発見…

ドリフト 2005-09-23 23:27:17 No: 125479

どうしてもオブジェクトを配列などで使いたいのですが
やっぱり無理でしょうか？

我龍院忠太 2005-09-24 00:14:23 No: 125480

AddHandler Button(0).Click, AddressOf Button_click
じゃあだめですか。

ドリフト 2005-09-24 00:15:00 No: 125481

AddHandlerを使ったらできるようになりました。
ガッさんのおかげで無事解決しました。
まことにありがとうございました。

ドリフト 2005-09-24 00:16:52 No: 125482

すみません
我龍院忠太さんもありがとうございました。

ドリフト 2005-09-24 00:18:43 No: 125483

こういうのを書きました

Friend Button(1000) As System.Windows.Forms.Button

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("新しいボタン")
        Me.Button(0) = New System.Windows.Forms.Button
        Me.SuspendLayout()

        Me.Button(0).Location = New System.Drawing.Point(0, 0)
        Me.Button(0).Name = "Button0"
        Me.Button(0).Size = New System.Drawing.Size(64, 32)
        Me.Button(0).TabIndex = 0
        Me.Button(0).Text = "New"

Me.Controls.Add(Me.Button(0))

AddHandler Button(ii).Click, AddressOf BTN_CLICK

End Sub

    Private Sub BTN_CLICK(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("hello, word!")
    End Sub

本当にありがとうございました

我龍院忠太 2005-09-24 00:56:42 No: 125484

>AddHandler Button(ii).Click, AddressOf BTN_CLICK
AddHandler Button(0).Click, AddressOf BTN_CLICK

>MsgBox("hello, word!")
#MsgBox("Hello, World!")の方が良いかも、なんとなく。orz