Med lite arbete , kan du skriva en egen version av dator anteckningsblock program i Visual Basic programmeringsspråk . Detta gör det möjligt för användaren att skriva , skriva ut och spara text precis som Microsofts Notepad programmet gör . Ansökan kan vara så grundläggande som den som beskrivs här eller mer komplex med ytterligare funktioner , skapa programvara som liknar ett ordbehandlingsprogram . Programmet använder vanliga kontroller och dialogrutor redan inbyggda i Visual Basic . Instruktioner
1
Skapa ett nytt Visual Basic 6.0 ( VB6 ) projekt med hjälp av " Standard EXE " mall . Klicka på " File " i övre VB6 menyn och välj " Spara projekt som. " Den första prompten frågar efter ett formulär namn . Namnge formuläret " MyNotepad " och klicka på " OK . " Nästa prompten frågar efter projektets namn . Namnge den " Mina Anteckningar " och klicka på " OK . "
2
Klicka på " Projekt " i övre VB6 menyn och välj " komponenter . " Rulla nedåt i listan över komponenter tills du ser " Microsoft Common Dialog 6.0 . " Klicka på kryssrutan bredvid detta för att lägga till den här kontrollen , och klicka sedan på " OK ". Dubbelklicka på denna kontroll , vilket bör vara det sista objektet i verktygslådan till vänster , för att lägga till det i formuläret . Addera 3
Leta reda på Egenskaper rutan till höger på skärmen och dubbelklicka på den första posten , " ( namn ) . " Ändra standardnamnet till " MyNotepad . \\ " Dubbelklicka på " Caption " egendom och ändra namn till " Mitt anteckningsblock . \\ "
4
Dubbelklicka på textrutan ikonen i verktygslådan panelen till vänster på skärmen för att lägga detta till formuläret . Klicka på den nya kontrollen och använda dra handtagen för att förstora textrutan till nästan storleken på själva formuläret . Lokalisera textrutekontroll i panelen Egenskaper till höger på skärmen och göra dessa ändringar :
( name) = MyNote
Multiline = true
ScrollBars = 3 - Både
5
Klicka på "Verktyg " i översta VB6 menyn och välj " Menu Editor . " Gör dessa ändringar i menyn Editor rutan som öppnas , klicka på " Nästa " efter varje av de första två menyer och " Exit " efter den sista som visas nedan :
Caption = Print
Name = mnuPrint
Klicka på "Nästa "
Caption = Spara
Name = mnuSave
Klicka på "Nästa "
Caption = Avsluta
Name = mnuExit
Klicka på " OK "
6
Öppna koden genom att klicka på " Visa " och sedan " koden " i den översta nivån VB6 menyn . Skriv följande rader i koden exakt så som de visas nedan :
Sub Form_Load ( )
End Sub
Funktion SaveMyNote ( MyNote som kontroll , CommonDialog1 Som CommonDialog , Filnamn As String ) As Boolean
Dim fNum As Integer
On Error GoTo ExitNow
CommonDialog1.Filter = \\ " textfiler
