VB.net - Criando um Texto de Fundo num mdiForm
VB.net - Criando um Texto de Fundo num mdiForm
Problema: Se você precisa colocar um texto num Form container, você coloca um Label e Digita o seu texto e coloca a cor de fundo transparente, ok, mas quando você cria um Form filho neste container, o Label do Form Container fica na frente do Form filho e se você usar o método bringToFront no Form filho ele não fica na frente do Label.
Código: (Pode ser copiado)
Public Class mdiForm1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mTexto = "TEXTO CENTRALIZADO"
Dim mFont = New System.Drawing.Font("Microsoft Sans Serif", 50, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
Dim mBitmap As New System.Drawing.Bitmap(800, 400)
With System.Drawing.Graphics.FromImage(mBitmap)
Dim mSize As System.Drawing.SizeF = .MeasureString(mTexto, mFont)
.DrawString(mTexto, mFont, System.Drawing.Brushes.White, (800 - mSize.Width) / 2, (400 - mSize.Height) / 2)
End With
Me.BackgroundImage = mBitmap
Me.BackgroundImageLayout = Windows.Forms.ImageLayout.Zoom
End Sub
Private Sub mnuNovaJanela_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNovaJanela.Click
Dim mFrm As New Form2
mFrm.MdiParent = Me
mFrm.Show()
End Sub
End Class