Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvoriť nový projekt štandardné EXE v VB6 . Vyberte " projekt " , " súčasti " z menu a kliknite na zaškrtávacie políčko vedľa " Microsoft Rich TextBox Control 6.0 ( SP6 ) . " Kliknite na tlačidlo " OK " uložte a zatvorte obrazovku . Budete musieť napísať wrapper pre prístup k NET " FileStream " triedy .. Obal by mal mať jeden riadok , ktorý vyzerá takto : " . Späť New Stream ( StreamParameters ) "
2
Vyberte ovládací prvok Rich Textové pole na paneli nástrojov a kliknite na formulár pre pridanie nového RTF ovládacia skrinka s názvom " richTextBox1 " v predvolenom nastavení . Premenujte ju na niečo zmysluplné , ako je " rtbNotePad . "
3
Definujte premennú držať číslo súboru a názov súboru . Premenná pre počet súborov by malo byť celé číslo a volal niečo ako " iFileNum " a premenná pre názov súboru musí byť reťazec a s názvom niečo ako " sMyFile . " " . IFileNum = FreeFile " Získať číslo bez súboru kódovaním
4
Otvorte Poznámkový blok súbor a zobraziť obsah vo formáte RTF Box :
Otvoriť sMyFile Pre vstup ako iFileNum
obsahu " sMyFile " môže byť prečítať bajt po bajtu , alebo všetko naraz . Ak chcete čítať kúsok po kúsku , kódu tento riadok " rtbNotepad.text = vstup ( 10 , iFileNum ) . " Ak chcete čítať celý súbor , kód tento riadok " rtbNotepad.text = Input ( LOF ( iFileNum ) , iFileNum ) . " " LOF " je " dĺžka súboru " funkcie .
5
Pridanie tlačidla do formulára a pomenujte ju " cmdSave " a nastavte jeho titulok " Uložiť " . Pridávať , odstraňovať alebo upravovať obsah " rtbNotePad " a po dokončení kliknite na tlačidlo " Uložiť " . Ak chcete uložiť obsah ovládacieho prvku poľa s formátovaný text , Kód tento riadok " Napíšte iFileNum , rtbNotepad.text . "