Συσχετισμός των Windows Έντυπα

Για πολύ καιρό είχα αυτό το πρόβλημα, έτσι και τώρα πώς να λύσουμε ότι θα μοιραστώ μαζί σας.

Εάν από μια μορφή σε άλλη μορφή που ονομάζεται τα παράθυρα, είτε ιδιοκτησίας. Εμφάνιση ή. ShowDialog μέχρι να κλείσω την δεύτερη μορφή δεν έχω τον έλεγχο της κύριας φόρμας ... εκτός και αν αυτές οι δύο μορφές είναι "σχετικά". Θεωρήστε ένα απλό παράδειγμα για να κατανοήσουμε την έννοια και πώς να το λύσει.

Η εικόνα είναι σαφώς μια κύρια φόρμα με ένα κουμπί "κίνηση κόκκινο πίνακα" και ένα κόκκινο πίνακα. Πατώντας fomrulario ανοιχτό ένα δευτερόλεπτο με τέσσερα κουμπιά (πάνω, κάτω, αριστερά και δεξιά). Πατώντας οποιοδήποτε πλήκτρο που κάνει είναι να κινηθεί το κόκκινο πίνακα στην κατεύθυνση που δείχνει.

δείτε τον κώδικα της Φόρμα1

 Δημόσια τάξη Φόρμα1
     Private Sub Button1_Click (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές Button1.Click
         Όπως Νέα Form2 Δημ. vfrmForm2
         vfrmForm2.formulario1 = I
         vfrmForm2.ShowDialog ()
     Sub End
 Τέλος κατηγορίας

και ο κώδικας του Form2

 Δημόσια τάξη Form2

     Όπως Φόρμα1 Φόρμα1 Δημόσια

     BtnArriba_Click Private Sub (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές btnArriba.Click
         formulario1.Panel1.Top formulario1.Panel1.Top = - 1
     Sub End

     BtnDerecha_Click Private Sub (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές btnDerecha.Click
         formulario1.Panel1.Left = formulario1.Panel1.Left + 1
     Sub End

     BtnAbajo_Click Private Sub (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές btnAbajo.Click
         formulario1.Panel1.Top = formulario1.Panel1.Top + 1
     Sub End

     BtnIzquierda_Click Private Sub (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές btnIzquierda.Click
         formulario1.Panel1.Left formulario1.Panel1.Left = - 1
     Sub End
 Τέλος κατηγορίας

Όπως μπορείτε να δείτε δεν λαμβάνει μεγάλο μέρος του κώδικα για να «συνδεθούν» των εντύπων. Επιπλέον, χρειαζόμαστε μόνο μία επιπλέον γραμμή σε κάθε έντυπο. Σε Form2 θα ήθελα να υπογραμμίσω την ακόλουθη δήλωση: Δημόσια Form1 Φόρμα1 Όπως και Φόρμα1 vfrmForm2.formulario1 = Me. Αυτό προκαλεί το Φόρμα1 τεκμηριώθηκε στη μνήμη συνδέεται με τα δηλωθέντα Form2 Φόρμα1. Από εδώ και μπορώ να αφορούν και να συνεργαστεί με οποιοδήποτε έλεγχο Φόρμα1, όπως απλά καλώντας το formulario1.panel1 panel1.

Ελπίζω να βρείτε τόσο χρήσιμες είναι για μένα.