Πώς να περάσει πληροφορίες από ένα Visual Basic Application στον άλλο

Υπάρχει μια ποικιλία τρόπων για να περάσει τις πληροφορίες μεταξύ των διαφόρων εφαρμογών της Visual Basic . Αυτές κυμαίνονται σε πολυπλοκότητα από την απλή αντιγραφή των πληροφοριών σε πρόχειρο που χρησιμοποιείται συνήθως από cut-and -paste για τη δημιουργία πολύπλοκων σχέσεων server /client /interface . Μια καλή μέση λύση είναι η « επώνυμη διοχέτευση ", η οποία επιτρέπει σε δύο μονόδρομη και αμφίδρομη επικοινωνία μεταξύ των εφαρμογών που χρησιμοποιούν απλές ακολουθίες . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο κάνοντας κλικ στο " Αρχείο ", " New Project" από το κύριο μενού . Όταν σας ζητηθεί , να δώσει το όνομα « PipeServer . " Κρατήστε όλες τις άλλες ρυθμίσεις στις προεπιλεγμένες τιμές τους και κάντε κλικ στο "OK".

Θα σας παρουσιαστεί με ένα κενό παράθυρο στην Graphical User Interface ( GUI ) σχεδιαστή . 2

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

Δεδομένου ότι αυτό είναι ένα απλό tutorial , δεν χρειάζεται να ανησυχείτε σχετικά με τη μετονομασία ή την προσαρμογή του κειμένου .
εικόνων 3

κάντε διπλό κλικ στο κουμπί . Αυτό θα σας μεταφέρει από το σχεδιαστή GUI και στο πρόγραμμα επεξεργασίας πηγαίου κώδικα για την εφαρμογή σας . Θα δημιουργήσει επίσης ένα συμβάν όταν ο χρήστης κάνει κλικ το κουμπί σας

Προσθέστε τον κώδικα σε αυτό το συμβάν : .

Dim σωλήνα As New System.IO.Pipes.NamedPipeServerStream ( " testPipe » , IO.Pipes.PipeDirection.Out ) pipe.WaitForConnection ( )

Dim sw As New System.IO.StreamWriter ( σωλήνα ) sw.AutoFlush = Truesw.WriteLine ( « στέλνουμε τα δεδομένα" )

Πηγαίνοντας γραμμή, αυτό δημιουργεί ένα νέο PipeServer και το ονομάζει " testPipe . " Είναι δηλώνει ότι η εφαρμογή αυτή μπορεί να γράψει μόνο πληροφορία στο σωλήνα και να μην το διαβάσετε ξανά .

στη συνέχεια σταματά να περιμένετε για μια εφαρμογή -πελάτη να συνδεθεί σε αυτό . Μόλις συμβεί αυτό , ανοίγει ένα StreamWriter , γεγονός που θα καταστήσει πιο εύκολο να γράψει τις πληροφορίες στο σωλήνα . Θα αφηγείται την StreamWriter να γράψει αυτόματα τις πληροφορίες στο σωλήνα , το συντομότερο που λαμβάνει, και γράφει μια απλή σειρά με τον αγωγό για να διαβαστεί από τον πελάτη .

Αυτό τελειώνει το διακομιστή .
Η 4

Ανοίξτε ένα νέο αντίγραφο του Visual Basic και να δημιουργήσετε νέο πρόγραμμα που ονομάζεται " PipeClient . " Ακριβώς όπως πριν , οι προεπιλεγμένες επιλογές είναι επαρκείς .
5

Προσθέστε ένα πλαίσιο κειμένου , σύροντας το " Πλαίσιο κειμένου " ? . . εικονίδιο από τη λίστα συστατικών στο παράθυρο σας
Η 6

Προσθέστε ένα κουμπί σύροντάς το από τη λίστα συστατικών
Η

7 κάντε διπλό κλικ στο κουμπί για να μεταβείτε στο . πρόγραμμα επεξεργασίας πηγαίου κώδικα και να δημιουργήσει ένα γεγονός

Προσθέστε τον κώδικα σε αυτό το συμβάν :

Dim σωλήνα As New System.IO.Pipes.NamedPipeClientStream ( "localhost " , " testPipe " ) σωλήνα . Connect ( )

Dim αναγνώστη As New System.IO.StreamReader ( σωλήνα )

Dim δεδομένα Όπως String

δεδομένων = reader.ReadLine ( )

TextBox1.Text = δεδομένα

Πηγαίνοντας γραμμή, αυτό ανοίγει ένα PipeClient και , χρησιμοποιώντας το ίδιο όνομα σωλήνα όπως χρησιμοποιείται στο διακομιστή , το συνδέει με αυτόν τον σωλήνα .

ανοίγει ένα StreamReader ώστε να είναι εύκολο να διαβάσει τα δεδομένα από το σωλήνα σε χορδές , και να διαβάζει μια ενιαία γραμμή από το σωλήνα . Στη συνέχεια, αλλάζει το πλαίσιο κειμένου για να εμφανιστεί το string που έλαβε από τον server .
8

Κάντε κλικ στα πράσινα βέλη και στα δύο σχέδια για να τρέξει κάθε εφαρμογή ταυτόχρονα . Αφού και οι δύο τρέχουν , κάντε κλικ στα κουμπιά σε κάθε εφαρμογή . Η σειρά δεν έχει σημασία .

Μέσα σε σύντομο χρονικό διάστημα , η σειρά « Στέλνουμε τα δεδομένα . " Θα πρέπει να εμφανίζονται στο πλαίσιο κειμένου της αίτησης PipeClient .

Η