Relate Windows Forms

I lang tid jeg havde dette problem, så nu hvordan man kan løse at jeg er enig med dig.

Hvis der ud fra en form til en anden form kaldet Windows Windows heller ejendom. Vis eller. ShowDialog indtil jeg lukker den anden form har jeg ingen kontrol over den vigtigste form ... medmindre disse to former er "relateret". Overvej et simpelt eksempel til at forstå begrebet og hvordan man kan løse det.

Billedet er klart den vigtigste form med en knap "træk rød panel" og en rød panel. Ved at trykke fomrulario åben en sekunder med fire knapper (op, ned, venstre og højre). At trykke på enten knap, der gør, er at flytte den røde panelet i den angivne retning.

se koden på Form1

 Public Class Form1
     Private Sub Button1_Click (ByVal afsenderen som System.Object, ByVal e Som System.EventArgs) Håndtag Button1.Click
         Som New Form2 Dim vfrmForm2
         vfrmForm2.formulario1 = Jeg
         vfrmForm2.ShowDialog ()
     End Sub
 End Class

og kode Form2

 Public class Form2

     Form1 Som Form1 Public

     BtnArriba_Click Private Sub (ByVal afsenderen som System.Object, ByVal e Som System.EventArgs) Håndtag btnArriba.Click
         formulario1.Panel1.Top formulario1.Panel1.Top = - 1
     End Sub

     BtnDerecha_Click Private Sub (ByVal afsenderen som System.Object, ByVal e Som System.EventArgs) Håndtag btnDerecha.Click
         formulario1.Panel1.Left = formulario1.Panel1.Left + 1
     End Sub

     BtnAbajo_Click Private Sub (ByVal afsenderen som System.Object, ByVal e Som System.EventArgs) Håndtag btnAbajo.Click
         formulario1.Panel1.Top = formulario1.Panel1.Top + 1
     End Sub

     BtnIzquierda_Click Private Sub (ByVal afsenderen som System.Object, ByVal e Som System.EventArgs) Håndtag btnIzquierda.Click
         formulario1.Panel1.Left formulario1.Panel1.Left = - 1
     End Sub
 End Class

Som du kan se, tager ikke meget kode til "forbinde" de former. Desuden har vi kun brug for én ekstra linje på hver formular. I Form2 Jeg vil fremhæve følgende erklæring: Offentlig Form1 Som Form1 og Form1 vfrmForm2.formulario1 = Mig. Dette bevirker, at Form1 instantieret i hukommelsen er knyttet til erklæret Form2 Form1. Herfra og jeg kan relatere og arbejde med alle Form1 kontrol, som bare kalde det formulario1.panel1 panel1.

Jeg håber du finder det så nyttigt med det er for mig.