USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Colocando um form dentro de uma picture (simulando um MDI)
Postada em 22/8/2007 por ghost_jlp            
Esta dica foi passado pelo colega Sandro e simula um form MDI.
Digamos que queremos o form1 seja o form principal e o form2 fique dentro dele. Para comparação é como o form1 fosse o MDIForm e o form2 o MDIChild.

Cole isso em um .BAS (módulo):

Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

No form1 coloque um botão e cole o código a seguir:

Dim HWNDAnt As Long

Private Sub Command1_Click()
'Restaurando o "Parent" padrão
SetParent Form2.hwnd, HWNDAnt
End Sub

Private Sub Form_Load()

HWNDAnt = GetParent(Form1.hwnd)
SetParent Form2.hwnd, Form1.hwnd
Form2.Show

End Sub

Isso também serve para um picture. Caso vc queira colocar um form dentro de uma picture substitua o form1 pela picture no exemplo acima:

Private Sub Form_Load()
HWNDAnt = GetParent(Picture1.hwnd)
SetParent Form2.hwnd, Picture1.hwnd
Form2.Show
End Sub

Obrigado mais uma vez ao Sandro

até a próxima!
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página