Det finnes en rekke måter å passere informasjon mellom ulike Visual Basic-programmer . Disse varierer i kompleksitet fra bare kopiere informasjon til utklippstavlen ofte brukt av cut- and- paste operasjoner for å sette opp komplekse server /klient /grensesnitt relasjoner. En god middelvei er " navngitt pipe ", som gjør at både enveis og toveis kommunikasjon mellom programmer ved hjelp av enkle strenger . Instruksjoner
en
Lag et nytt prosjekt ved å klikke på "File ", " New Project" fra hovedmenyen . Når du blir bedt , gi den navnet " PipeServer . " Hold alle andre innstillinger på standardverdier og klikk " OK ".
Du vil bli presentert med et tomt vindu i det grafiske brukergrensesnittet (GUI ) designer .
2
Legg en knapp for å grensesnitt ved å dra i " Button" ikonet fra komponentene listen til venstre og slippe den på vinduet ditt .
Siden dette er en enkel tutorial , du trenger ikke å bekymre seg døpe det eller tilpasse teksten .
3
Dobbeltklikk på knappen. Dette vil ta deg ut av GUI designer og inn i kildekoden redaktør for programmet. Det vil også skape et arrangement for når brukeren klikker på knappen
Legg denne koden til dette arrangementet : .
Dim rør som ny System.IO.Pipes.NamedPipeServerStream ( " testPipe " , IO.Pipes.PipeDirection.Out ) pipe.WaitForConnection ( )
Dim sw som ny System.IO.StreamWriter ( pipe) sw.AutoFlush = Truesw.WriteLine ( «Vi sender disse dataene ")
Going linje for linje , skaper dette en ny PipeServer og navn det " testPipe . " det erklærer at dette programmet bare kan skrive informasjon ut til røret og ikke lese den tilbake .
p Det stopper deretter til vente på et klientprogram for å koble til det. Så snart dette skjer , åpnes det en StreamWriter , som vil gjøre det enklere å skrive informasjon til røret . Det forteller StreamWriter å automatisk skrive informasjon til røret så snart som mottar den , og den skriver en enkel streng til røret som skal leses av klienten .
Som fullfører server.
4
Åpne en ny kopi av Visual Basic og opprett et nytt prosjekt kalt " PipeClient . " Akkurat som før , standardinnstillingene er tilstrekkelige .
5
Legg til en tekstboks ved å dra " tekstboks " ; . ikonet fra komponentene listen i vinduet ditt
6
Legg en knapp ved å dra den fra komponentene listen
7
Dobbeltklikk på knappen for å gå til . . kildekode editor og lage et arrangement
Legg denne koden til dette arrangementet : en
Dim rør som ny System.IO.Pipes.NamedPipeClientStream ( " localhost ", " testPipe " ) rør . Koble ( )
Dim leseren som ny System.IO.StreamReader ( pipe)
Dim data As String
data = reader.ReadLine ( )
< p > TextBox1.Text = data
Going linje for linje , åpner dette en PipeClient og , med samme rør navn som du brukte i serveren , kobler den til dette røret.
p Det åpner et StreamReader for å gjøre det lett å lese data fra røret i strenger , og den leser en enkelt linje fra røret . Det endrer deretter tekstboksen for å vise strengen det mottas fra serveren .
8
Klikk på de grønne pilene i begge prosjektene til å kjøre hver applikasjon på samme tid . Etter at de begge kjører, klikker du på knappene i hvert program . Rekkefølgen spiller ingen rolle .
Innen kort tid , strengen «Vi sender disse dataene. " Skal vises i tekstboksen for PipeClient søknaden .