Прозрачный label или picturebox

Обсуждение проблем, возникающих при разработке программ для мобильных устройств.
zeny
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 21.01.2005 (Пт) 16:35

Прозрачный label или picturebox

Сообщение zeny » 04.03.2006 (Сб) 14:37

Здравствуйте!
Как сделать, чтобы прозрачная картинка в picturebox на покете была тоже прозрачной? Можно как-то сделать прозрачный фон у label?
пишу
Label1.Parent = PictureBox1
Label1.BackColor = Color.Transparent
на большом компе всё норм, а на кпк фон не прозрачный

Может всё-таки можно как-то сделать?

zeny
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 21.01.2005 (Пт) 16:35

Re: Прозрачный label или picturebox

Сообщение zeny » 06.03.2006 (Пн) 19:11

Вот нашел, может кому-нибудь понадобится:
Public Class TransparentLabel
Inherits Control
Protected Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
'do nothing
End Sub
Private bPaintOnce As Boolean = False 'flag to prevent infinite loop
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
If (bPaintOnce = False) Then
bPaintOnce = True
Me.Visible = False
Me.Parent.Invalidate(Me.Bounds) 'more efficient than me.Parent.Refresh
Me.Parent.Update() 'force parent to redraw only invalidated regions
Me.Visible = True
Return
Else
bPaintOnce = False
Dim g As Graphics = e.Graphics
Dim myBrush As SolidBrush = New SolidBrush(Me.ForeColor)
g.DrawString(Me.Text, Me.Font, myBrush, 1, 1)
g.Dispose()
End If
End Sub
End Class

ну и потом соответственно:
'В form_load или после InitializeComponent
Dim myLabel As New TransparentLabel
Me.Controls.Add(myLabel)

myLabel.BringToFront
myLabel.Left=1
myLabel.Top=1
...


Вернуться в Visual Basic для мобильных устройств

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

    TopList  
cron