Der er en række forskellige måder at passere information mellem de forskellige Visual Basic applikationer. Disse varierer i kompleksitet fra blot kopiere oplysninger til klippebordet almindeligvis anvendes af cut- and- paste operationer til at oprette komplekse server /klient /interface relationer. En god mellemvej er " navngivne pipe ", som tillader både envejs- og to- vejs kommunikation mellem applikationer ved hjælp af simple strenge. Instruktioner
1
Opret et nyt projekt ved at klikke på "File ", " New Project" fra hovedmenuen . Når du bliver bedt , giv den navnet " PipeServer . " Hold alle andre indstillinger på deres standard , og klik på " OK. "
Du vil blive præsenteret med et tomt vindue i Graphical User Interface ( GUI) designer.
2
Tilføj en knap til din grænseflade ved at trække " knap" ikon fra komponenter på listen til venstre og slippe det på dit vindue.
Da dette er en simpel tutorial, du behøver ikke at bekymre dig om at omdøbe den eller tilpasse teksten.
3
Dobbeltklik på knappen. Dette vil tage dig ud af GUI designer og i kildekoden editor til din ansøgning. Det vil også skabe en begivenhed for når brugeren klikker på din knap
Tilføj denne kode til denne begivenhed : .
Dim rør Da New System.IO.Pipes.NamedPipeServerStream ( " testPipe " IO.Pipes.PipeDirection.Out ) pipe.WaitForConnection ()
Dim sw As New System.IO.StreamWriter ( rør) sw.AutoFlush = Truesw.WriteLine ( " Vi sender disse data " ) < br >
Går linje for linje , dette skaber en ny PipeServer og navne det " testPipe . " Det erklærer, at denne ansøgning kun kan skrive information ud til røret og ikke læse det igen .
p Det stopper derefter til vent et klientprogram til at oprette forbindelse til den. Så snart dette sker, er det åbner en StreamWriter , hvilket vil gøre det lettere at skrive information til røret . Det fortæller StreamWriter til automatisk skrive information til røret , så snart modtager det, og det skriver en enkel streng til røret at blive læst af kunden.
Der afslutter serveren.
4
Åbn en ny kopi af Visual Basic, og opret et nyt projekt med navnet " PipeClient . " Ligesom før, standardindstillingerne er tilstrækkelige.
5.
Tilføj et tekstfelt ved at trække " tekstboks " ; . ikon fra komponenter listen i dit vindue
6
Tilføj en knap ved at trække det fra komponenter listen
7
Dobbeltklik på knappen for at gå til . . kildekode editor og oprette en begivenhed
Tilføj denne kode til denne begivenhed : Hej
Dim rør Da New System.IO.Pipes.NamedPipeClientStream ( " localhost ", " testPipe " ) rør . Forbind ()
Dim reader Da New System.IO.StreamReader ( rør)
Dim data As String
data = reader.ReadLine ()
< p > TextBox1.Text = data
Går linje for linje , det åbner en PipeClient og med samme rør navn, som du brugte i serveren , det forbinder til dette rør .
den åbner en StreamReader at gøre det nemt at læse data fra røret i strenge, og det læser en enkelt linje fra røret . Det ændrer derefter tekstfeltet for at vise strengen det modtages fra serveren .
8.
Klik på de grønne pile i begge projekter til at køre hver enkelt ansøgning på samme tid . Efter at de begge kører, klikke på knapperne i hver enkelt ansøgning . Ordren betyder ikke noget.
Inden for en kort tid, strengen " Vi sender disse data . " Skal vises i tekstfeltet for PipeClient ansøgningen.
