Label прячется за Picturebox

[Serge200803141927]

Вероятно это уже обсуждалось 1000 раз, но я не нашел того решения, которое мне нужно.
Пытаюсь вытащить Label из-за Picturebox'а наверх, естественно, с сохранением прозрачности.
VB2008
Есть пустая форма. В нее из файла подгружаются контролы с абсолютными координатами:
1.Form1.BackgroundImage
2.Picturebox
3.Label
У формы фон=Picture, на ней еще небольшая Picture, на ней (должен быть на ней, а не под ней) Label
Самое простое - сказать Label'у, что у него Parent - Picturebox и Bringtofront. Но это просто только в такой конфигурации,
если у меня десятка Picturebox'ов и Label'ов - как мне вычислить под каким Picturebox'ом прячется какой Label? Сложно.
Второй вариант - использовать Label.CreateGraphics, но тут непонятно как выбрать контекст для графики,
потому что если делать CreateGraphics в Label'е, то не получится использовать его абсолютные координаты ...
Если делать CreateGraphics в From1, то Label рисуется в контексте формы, т.е. ЗА Picturebox'ом.

Заранее благодарен,
Сергей

[Serge200803141927]

ай гад ит!

Уже который раз убеждаюсь - бьюсь полдня над проблемой, пишу в форум и сразу сам нахожу решение.

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

Public Class TransparentLabel : Inherits Control
    Public Sub New()
        MyBase.New()
        Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    End Sub
    Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
        'do nothing
    End Sub
    Private bPaintOnce As Boolean = False
    Public deltaX, deltaY As Single
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        If bPaintOnce = False Then
            bPaintOnce = True
            Me.Visible = False
            Me.Parent.Invalidate(Me.Bounds)
            Me.Parent.Update()
            Me.Visible = True
            Return
        Else
            bPaintOnce = False

            ' Рисуем текст
            Dim ForeColorBrush As SolidBrush = New SolidBrush(Me.ForeColor)
            e.Graphics.DrawString(Me.Text, Me.Font, ForeColorBrush, deltaX, deltaY)
        End If
    End Sub
End Class

В коде объявляем mylabel as TransparentLabel
mylabel.BackColor=Transparent
mylabel.BringToFront

Все. Лэйбл лежит поверх картинки

[MIT]

Уже который раз убеждаюсь - бьюсь полдня над проблемой, пишу в форум и сразу сам нахожу решение.

У сеня тоже так сначало было , потом я переучился и стал делать так: сначала "бьюсь полдня над проблемой", только потом, если ниче не получилось "пишу в форум"

[Williams]

Когда пишешь вопрос в форум, мысли выстраиваются в нужном порядке и вероятность самостоятельного нахождения решения увеличивается на 50-75%.

[MIT]

Williams Можно формулировать свой вопрос не только на форуме, но и дома, в блокнотике . А вообще это конечно дело каждого: если легче создавать топик и самому отвечать на вопрос, то пусть так и будет, не мне судить.