Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Vytvorte nový projekt kliknutím na tlačidlo " Súbor " , " New Project " z hlavného menu . Po zobrazení výzvy , dať mu názov " PipeServer . " Udržujte všetky ostatné nastavenia na ich predvolené hodnoty a kliknite na " OK " . 
 
 Tie budú prezentované s prázdnym oknom v grafickom užívateľskom rozhraní ( GUI ) , návrhára . 
 2 
 Pridanie tlačidla do rozhrania pretiahnutím ikony tlačidla " " zo zoznamu zložiek na ľavej strane a pádu na okne . 
 
 Pretože sa jedná o jednoduchý návod , nemusíte sa starať o premenovanie alebo prispôsobenie textu. 
 3 
 Dvakrát kliknite na tlačidlo . Tým sa dostanete z GUI návrhára a do zdrojového kódu editor pre vašu aplikáciu . To bude tiež vytvoriť udalosť pre prípad, keď používateľ klikne na tlačidlo 
 
 Pridať tento kód k tejto udalosti : . 
 
 Dim rúrku As New System.IO.Pipes.NamedPipeServerStream ( " testPipe " , IO.Pipes.PipeDirection.Out ) pipe.WaitForConnection ( ) 
 
 Dim sw ako New System.IO.StreamWriter ( potrubie ) sw.AutoFlush = Truesw.WriteLine ( " Posielame tieto dáta " ) 
 
 Chystáte sa riadok po riadku , to vytvorí nový PipeServer a pomenuje ju " testPipe . " Vyhlasuje, že táto aplikácia môže zapisovať iba informácie von na potrubie a nečítal ju späť . 
 
potom sa zastaví na čakať na klientskej aplikácie sa k nemu pripojiť . Akonáhle sa tak stane , otvorí StreamWriter , ktorý bude robiť to jednoduchšie písať informácie k trubke . Hovorí sa StreamWriter automaticky zapisovať informácie do potrubia , akonáhle prijme , a zapíše jednoduchý reťazec potrubie na čítanie klientom . Celým
 To dokončí servera . 
 4 
 Otvorte novú kópiu Visual Basic a vytvoriť ďalší nový projekt s názvom " PipeClient . " Rovnako ako predtým , predvolené možnosti sú dostačujúce . 
 5 
 Pridať textové pole pretiahnutím " textové pole " ; .. ikonu zo zoznamu zložiek do okna 
 6 
 tlačidlo Pridať pretiahnutím zo zoznamu zložiek 
 7 
 Dvakrát kliknite na tlačidlo , prejdite na . editor zdrojového kódu a vytvorte udalosť 
 
 Pridať tento kód k tejto udalosti : 
 
 Dim rúrku As New System.IO.Pipes.NamedPipeClientStream ( " localhost " , " testPipe " ) potrubia . Connect ( ) 
 
 Dim reader ako New System.IO.StreamReader ( potrubie ) 
 
 Dim Data As String 
 
 dát = reader.ReadLine ( ) 
 
 TextBox1.Text = údaje 
 
 Chystáte sa riadok po riadku , to otvorí PipeClient a pomocou rovnakého názvu potrubia , ako ste boli zvyknutí na serveri , sa pripája k tomuto potrubia . 
 
 otvorí StreamReader , aby bolo ľahko čítať dáta z potrubia v reťazci , a to prečíta jeden riadok z potrubia . To sa potom zmení na textové pole sa zobrazí reťazec je dostal od servera . 
 8 
 Kliknite na zelené šípky v oboch projektov na spustenie jednotlivých aplikácií súčasne . Potom, čo sú obaja beží , kliknite na tlačidlo v každej aplikácii . Poradí nezáleží . 
 
 Počas krátkej doby , reťazec " Posielame tieto dáta . " By sa mal objaviť v textovom poli žiadosti o PipeClient .