Hvordan passere informasjon fra en Visual Basic programmet til en annen

Det finnes en rekke måter å sende informasjon mellom ulike Visual Basic-programmer. Disse varierer i kompleksitet fra å kopiere informasjon til utklippstavlen som vanligvis brukes 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 applikasjoner ved hjelp av enkle strenger.

Bruksanvisning

1 Opprett 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 grafisk brukergrensesnitt (GUI) designer.

2 Legg til en knapp i grensesnittet ved å dra "Button" -ikonet fra listen komponentene på venstre side og slippe det på vinduet.

Siden dette er en enkel tutorial, trenger du ikke å bekymre deg for å døpe den eller tilpasse teksten.

3 Dobbeltklikk på knappen. Dette vil ta deg ut av GUI designer og inn i kildekoden redaktør for søknaden din. Det vil også skape et arrangement for når brukeren klikker på knappen.

Legg denne koden til denne hendelsen:

Dim pipe As New System.IO.Pipes.NamedPipeServerStream("testPipe", IO.Pipes.PipeDirection.Out)
pipe.WaitForConnection()

Dim sw som ny System.IO.StreamWriter (pipe)
sw.AutoFlush = True
sw.WriteLine (& quot; Vi sender disse dataene & quot;)

Going linje for linje, skaper dette en ny PipeServer og navnene det "testPipe". Det erklærer at dette programmet kan bare skrive informasjon ut til røret og ikke lese den tilbake.

Den stopper så å vente på et klientprogram for å koble til det. Så snart dette skjer, åpnes det en Stream, noe som vil gjøre det lettere å skrive informasjon til røret. Det forteller Stream til automatisk å skrive informasjon til røret så snart som mottar den, og den skriver en enkel streng til røret som skal leses av kunden.

Som full serveren.

4 Åpne en ny kopi av Visual Basic og opprette et nytt prosjekt kalt "PipeClient." Akkurat som før, standardvalgene er tilstrekkelig.

5 Legg en tekstboks ved å dra «Tekstboks'" -ikonet fra listen komponenter i vinduet ditt.

6 Legg til en knapp ved å dra den fra listen komponenter.

7 Dobbeltklikk på knappen for å gå til kildekoden redaktør og opprette en hendelse.

Legg denne koden til denne hendelsen:

Dim pipe As New System.IO.Pipes.NamedPipeClientStream("localhost", "testPipe")
pipe.Connect()

Dim leseren som ny System.IO.StreamReader (pipe)

Dim data As String

data = reader.ReadLine ()

TextBox1.Text = data

Going linje for linje, åpner dette en PipeClient og ved å bruke samme rør navn som du brukte i serveren, den kobles til dette røret.

Det åpner en 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 den mottok fra serveren.

8 Klikk de grønne pilene i begge prosjektene å kjøre hvert program samtidig. Etter at de er i gang, kan du klikke på knappene i hvert program. Rekkefølgen spiller ingen rolle.

Innen kort tid, strengen "Vi sender denne informasjonen." Skal vises i tekstboksen for PipeClient søknaden.