C# と VB.NET の質問掲示板

■No10607 (ビンゴＶ さん) に返信
> そこで生成するpictureboxを配列化しようとしたのですがfriend witheventsでは配列化できない。
動的にコントロールを作成・配置しているのなら、
作成した各コントロールに対してイベントを関連付ければ良いのでは？

1個のコントロールなら...
Addhandler hoge.Click, AddressOff hogehogeClick

配列なら...
Addhandler hoge(index).MouseMove, AddressOff hogehogeClick

イベントハンドラはこんな感じで。
(イベントに対するシグネチャを要確認)
Sub hogehogeClick(ByVal sender As Object, ByVal e As System.EventArgs)
   ...
End Sub
こいつの senderにイベントが発生したコントロールが来るので、
適当にキャストして使うとか。

> あるところで　Dictionary<string, PictureBox> crl = new Dictionary<string, PictureBox>();　を使ってみては？
> とご教授いただいたのですが、まったく使い方がわからず困っています。
こちらですね?
http://dobon.net/cgi-bin/vbbbs/cbbs.cgi?mode=al2&namber=20849&no=0
http://dobon.net/cgi-bin/vbbbs/cbbs.cgi?mode=al2&namber=20897&no=0

■No10611 (ビンゴＶ さん) に返信
> 以前もdictionaryを使おうとしたのですが、定義されていません。というエラーがでるんです…

名前空間の指定がよろしくないのでは...。

VS2005のHelpより
Dictionary ジェネリック クラス
名前空間: System.Collections.Generic

Importsを使うか、全部書いてしまえば良いかと。

# pictureboxを使う理由を知りたいのですが。

ま・・間に合わなかった・・デス。。

2005で動かしちゃいましたが、せっかくなので解決例の代わりにテストしたコードを載せてみマス。
とりあえず動的にPictureBoxを追加しつつ、
それぞれのコントロールでマウス移動イベント拾ってマス。
なんかカッコ悪いコード・・。

    Dim mIndex As Integer = 0
    Dim pbArray() As PictureBox     '// 動的PictureBoxコントロール配列

    '// ボタン押ささったらコントロールを追加しマス！
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pb As New PictureBox()               '// 追加するコントロール
        Dim gr As Graphics                       '// 書き込むグラフィック
        Dim fn As New Font("ＭＳ ゴシック", 14)  '// ふぉとん（雑字がベスト）
        Dim sf As New StringFormat()             '// 縦書き
        Dim rc As RectangleF                     '// れくたんF

        Try
            '// とりあえず適当に値セットデス
            With pb
                .Tag = mIndex
                .Top = 0
                .Left = 40 * mIndex
                .Width = 40
                .Height = Me.Height
                .Image = New Bitmap(pb.Width, pb.Height)
            End With

            gr = Graphics.FromImage(pb.Image)
            '// 縦書きの指定
            sf.FormatFlags = StringFormatFlags.DirectionVertical
            rc = New RectangleF(0, 0, pb.Width, pb.Height)
            gr.FillRectangle(Brushes.WhiteSmoke, rc)
            gr.DrawString("カンタービレ", fn, Brushes.Red, rc, sf)

            '// イベントを関連させマス
            AddHandler pb.MouseMove, AddressOf PictureBox_MouseMove

            '// なんかカッコ悪いのは気にしないで配列追加
            If pbArray Is Nothing Then
                ReDim pbArray(0)
            Else
                ReDim Preserve pbArray(pbArray.Length)
            End If
            pbArray(mIndex) = pb

            '// フォームに追加配置デス
            Me.SuspendLayout()
            Me.Controls.Add(pb)
            Me.ResumeLayout(False)

            mIndex += 1

        Finally
            If Not fn Is Nothing Then fn.Dispose()
            If Not gr Is Nothing Then gr.Dispose()
        End Try
    End Sub