Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvoriť VB a vytvoriť nový projekt , v ktorom chcete naprogramovať vyhľadávaciu aplikáciu stlačením tlačidla " Control - N . " Kliknite na odkaz , ktorý znie : " Prihláška Windows " vytvoriť aplikáciu , ktorá budete prispôsobiť s programovým kódom vykonať hľadanie systému Windows .
2
Otvorte formulár Návrhár kliknutím na " dizajn " položky pod " Windows " menu nadpis .
3
Presuňte ovládací prvok popisek z krabice riadiace nástroje na spodnej časti obrazovky do formulára . Kliknite pravým tlačidlom myši na menovku a zvoľte " Vlastnosti " , zadajte " názov priečinka " v " text " položku v okne " Vlastnosti " .
4
Vytvorte ďalšie označenia , ako si prvá . Presuňte ju na miesto priamo pod prvou značkou , a použiť krok 3 v návode , aby štítku text " Názov súboru " . Tieto dva štítky vyzve užívateľa svojho programu vstúpiť Mená súborov a priečinkov , ktoré váš program bude používať na to hľadanie systému Windows .
5
Presuňte ovládací prvok textové pole na pravej strane druhého štítku , a pretiahnite ďalšie textové pole na pravej strane prvý . Používateľ zadať parametre pre vyhľadávanie ( tj zložiek a názvy súborov ) , v týchto krabiciach .
6
Presuňte ovládací prvok tlačidlo z krabice nástrojov do formulára nižšie existujúcich kontrol . Poklepaním na tlačidlo sa zobrazí okno pre zadanie kódu programu na vykonanie vyhľadávanie .
7
Zadajte nasledujúci príkaz nad " Public Class " textu. " Dovoz " vyhlásenie robí . NET knižnice s kódom programu .
Imports System.IO
8
Vložte nasledujúce vyhlásenie vyššie uvedené " End Sub " vyhlásenie v " Button1_Click " podprogram . Toto vyhlásenie vyzýva hlavného programu vášho programu , ktorý budete písať ďalej .
WinSearch ( )
9
vložte nasledujúci kód pod " End Sub " riadku " button1_Click " podprogram . Tento podprogram funguje volaním GetFiles čistého knižnice . Funkciu hľadať Windows súboru zadaného používateľom .
Sub WinSearch ( )
Dim d As String
Dim f as String
Skúste
d = TextBox2.Text
For Each f In Directory.GetFiles ( d , TextBox1.Text )
MsgBox ( " The súbor je tu. " )
Ďalšie
Chyť e ako System.Exception
Debug.WriteLine ( e.Message )
End Try
End Sub
10
spustite program stlačením tlačidla " F5 " . Zadajte názov priečinka v hornom textovom poli formulára . Zadajte názov súboru v dolnom textovom poli .
11
Stlačte tlačidlo formulára na spustenie programového kódu , ktorý bude vykonávať hľadanie súboru , ktorý ste zadali . Program zobrazí žiadnu správu v prípade , že nenašiel súbor . To sa zobrazí " Súbor je tu . " ak to robí nájsť súbor .