PROBLEMAS COM FORMULARIO MDI
Boa noite pessoal,
Estou com o seguinte problema, tenho no meu projeto um formulário MDI e um formulário MDi filho. O MDI pai possui uma picturebox de fundo, e o problema ocorre justamente ao chamar o formulário filho, pois acontece que ele está sendo aberto do lado da picture, e como estou utilizando esta picture como o fundo de tela o formulário filho não aparece, eu apenas consigo ver que ele foi aberto quando maximizo a tela e vejo ele do lado da picture.
Alguém sabe de qual forma posso fazer com que o form abra por cima da picture?
Obrigado.
Estou com o seguinte problema, tenho no meu projeto um formulário MDI e um formulário MDi filho. O MDI pai possui uma picturebox de fundo, e o problema ocorre justamente ao chamar o formulário filho, pois acontece que ele está sendo aberto do lado da picture, e como estou utilizando esta picture como o fundo de tela o formulário filho não aparece, eu apenas consigo ver que ele foi aberto quando maximizo a tela e vejo ele do lado da picture.
Alguém sabe de qual forma posso fazer com que o form abra por cima da picture?
Obrigado.
Supondo que você tenha uma imagem para mostrar.
Private Sub MDIForm_Resize()
frmMenu.Height = Me.Height
Set objAcesso = New clsAcesso
Picture1.Cls
mdiPrincipal.Picture = LoadPicture([Ô]c:\JK1.bmp[Ô])
Picture1.Visible = True
Picture1.AutoRedraw = True
Picture1.BackColor = &H8000000C
Picture1.Height = Me.Height
[ô]Para centralizar a imagem no fundo
[ô] Image1.Top = Picture1.Height / 2 - Image1.Height / 2
[ô] Image1.Left = Picture1.Width / 2 - Image1.Width / 2
[ô]ou expandir a imagem por todo o fundo
Image1.Stretch = True
Image1.Top = 0
Image1.Left = 0
Image1.Height = Picture1.Height
Image1.Width = Picture1.Width
Picture1.PaintPicture Image1, Image1.Left, Image1.Top, Image1.Width, Image1.Height
mdiPrincipal.Picture = Picture1.Image
Picture1.Visible = False
End Sub
Private Sub MDIForm_Resize()
frmMenu.Height = Me.Height
Set objAcesso = New clsAcesso
Picture1.Cls
mdiPrincipal.Picture = LoadPicture([Ô]c:\JK1.bmp[Ô])
Picture1.Visible = True
Picture1.AutoRedraw = True
Picture1.BackColor = &H8000000C
Picture1.Height = Me.Height
[ô]Para centralizar a imagem no fundo
[ô] Image1.Top = Picture1.Height / 2 - Image1.Height / 2
[ô] Image1.Left = Picture1.Width / 2 - Image1.Width / 2
[ô]ou expandir a imagem por todo o fundo
Image1.Stretch = True
Image1.Top = 0
Image1.Left = 0
Image1.Height = Picture1.Height
Image1.Width = Picture1.Width
Picture1.PaintPicture Image1, Image1.Left, Image1.Top, Image1.Width, Image1.Height
mdiPrincipal.Picture = Picture1.Image
Picture1.Visible = False
End Sub
Faça seu login para responder