События к лейблам

[nikola20]

Создаю програмно лэйблы. Мне необходимо так же создать события к этим лейблам. Это возможно? Принцип создания лейблов следующий:

Код: Выделить всё

        arFile = Directory.GetFiles(".\blank\")
        For i = 0 To UBound(arFile)
            myReader = myCommand1.ExecuteReader()
            j = 30
            While myReader.Read()
                Dim lb As New Label()
                lb.BackColor = System.Drawing.Color.LightYellow
                lb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
                lb.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
                lb.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
                lb.Location = New System.Drawing.Point(j, 30 + i * 20)
                lb.Size = New System.Drawing.Size(myReader(3), 20)
                lb.Name = "Label" & i
                lb.TabIndex = i
                lb.Text = ""
                TabPage1.Controls.Add(lb)
                j = j + myReader(3)
            End While
            myReader.Close()
        Next i

Вид напоминает ленточную форму Accessa. В зависимости от количества записей выводится определенное количесво строк записей. Если возможно создать событие по двойному клику мыши, то подскажите как.

[GSerg]

Видимо, путём чтения мануала, в котором обязательно встретится конструкция AddHandler lb.doubleclick, addressof MyHandler.

[nikola20]

Я не совсем понял. У меня lb может доходить до нескольких десятков. Как их распознать? Если можно примерчик какой нибудь.

[GSerg]

Например, по координатам.

[Dmitriy Solomnikov]

Я не совсем понял. У меня lb может доходить до нескольких десятков. Как их распознать? Если можно примерчик какой нибудь.

Распознать...в смысле какой label сгенерил событие, или еще как-то?

[Sebas]

Sender as object

[PUNK-GRUNGER]

Я всегда юзаю Tag Если много объектов (особенно к тулбару относится), добавляешь к кнопке (лейблу или чего там еще), а потом в КЛиек обрабатываешь Select case Ctype(Sender, Label).Tag : Case "label1" и т.д.

Вобщем, TAG очень клевая штука )) Очень часто юзаю.