Wince下透明Label的实现(vb.net)

在WinCE下实现透明Label，搞了半天，终于在网上找到正解，还是很不容易的，现在把解决方案理一下。

步骤如下：

（0）建个空工程

（1）拖个PictureBox控件进来，名称为PictureBox1；

（2）拖个Label控件进来，名称为Label1；

（3）将Label控件放到PictureBox上面，并把Visable属性设置成False

（4）在Form1_Load事件里加入以下代码:

AddHandler Picture<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>1.Paint,AddressOf Me.picture<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>1_Paint

（5）加入以下变量定义和DrawLabel函数

Dim targ<a href="https://www.jb51.cc/tag/eto/" target="_blank" class="keywords">eto</a>ffset As Point Dim drawBounds As Rectangle Dim sizeTmp As Si<a href="https://www.jb51.cc/tag/zef/" target="_blank" class="keywords">zef</a> Dim intleft As Integer Private Sub DrawLabel(ByRef labSource As Label,ByRef picTarget As Form,ByRef grx As Graphics) targ<a href="https://www.jb51.cc/tag/eto/" target="_blank" class="keywords">eto</a>ffset = picTarget.Location drawBounds = labSource.Bounds drawBounds.X -= picTarget.Location.X drawBounds.Y -= picTarget.Location.Y If (labSource.TextAlign = ContentAlignment.TopLeft) Then grx.DrawString(labSource.Text,labSource.Font,New SolidB<a href="https://www.jb51.cc/tag/rush/" target="_blank" class="keywords">rush</a>(labSource.ForeColor),drawBounds) ElseIf (labSource.TextAlign = ContentAlignment.TopCenter) Then sizeTmp = grx.MeasureString(labSource.Text,labSource.Font) intleft = Me.Width / 2 - CInt(sizeTmp.Width) / 2 intleft -= picTarget.Location.X Dim rect As Rectangle = New Rectangle(Left,labSource.Top,CInt(sizeTmp.Width),CInt(labSource.Height)) grx.DrawString(labSource.Text,rect) ElseIf (labSource.TextAlign = ContentAlignment.TopRight) Then sizeTmp = grx.MeasureString(labSource.Text,labSource.Font) intleft = labSource.Width - CInt(sizeTmp.Width) + labSource.Left Left -= picTarget.Location.X Dim rect As Rectangle = New Rectangle(Left,CInt(sizeTmp.Height)) grx.DrawString(labSource.Text,rect) End If End Sub

（6） 创建pictureBox1_Paint函数，加入以下代码:

Private Sub picture<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>1_Paint(ByVal sender As Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms.PaintEventArgs) DrawLabel(Label1,Me,e.Graphics) End Sub

（7）运行一下吧，看看效果

<!-- /* Font DeFinitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:Simsun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;} @font-face {font-family:"/@宋体"; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;} /* Style DeFinitions */ p.Msonormal,li.Msonormal,div.Msonormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; text-align:justify; text-justify:inter-ideograph; mso-pagination:none; font-size:10.5pt; mso-bidi-font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:宋体; mso-font-kerning:1.0pt;} /* Page DeFinitions */ @page {mso-page-border-surround-header:no; mso-page-border-surround-footer:no;} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} -->

原文地址：https://www.jb51.cc/vb/261824.html