• 
  

  hur man skapar en Notepad - Visual Basic 6.0

  
  

Med lite arbete kan du skriva din egen version av dator notepad mjukvara i Visual Basic-programmering språk . Detta kommer att tillåta användare att komma in , skriva ut och spara text precis som Microsofts Notepad gör . Ansökan kan vara så grundläggande som den som beskrivs här eller mer komplexa med ytterligare funktioner , skapa programvara som liknar ett ordbehandlingsprogram . Programmet använder vanliga kontroller och dialog redan inbyggd i Visual Basic
1.
Skapa ett nytt Visual Basic 6. 0 ( VB6 ) projekt med hjälp av " Standard EXE " mall . Klicka på " Arkiv "längst upp VB6 -menyn och välj "Spara projekt som. " Den första prompt frågar efter ett formulär namn . Namn formen " MyNotePad " och klicka " OK ". Nästa prompt frågar efter projektets namn . Name it " Mina Anteckningar "och klicka " OK ".
2 .
Klicka på "Projekt " i den övre VB6 -menyn och välj " komponenter ". Bläddra nedåt i listan över komponenter tills du ser " Microsoft Common Dialog Control 6. 0. " Klicka på kryssrutan bredvid denna att lägga till denna kontroll , och klicka sedan på " OK . " Dubbelklicka på denna kontroll , som bör vara den sista punkten i verktygslådan till vänster , för att lägga till formuläret.
3 .
Leta i rutan till höger om skärmen och dubbelklickar på den första punkten , " ( namn ) . " Ändra standardnamnet att " MyNotePad . " Dubbelklicka på " Caption " egendom och ändra namn till " Mitt anteckningsblock. "

4 .
Dubbelklicka på ikonen i textrutan 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. Leta reda på textrutekontroll i panelen Egenskaper till höger på skärmen och göra dessa förändringar :

( Namn )=MyNote
Flera rader=Sant
scrollbars=3-Både och

5 .
Klicka på "Verktyg "längst upp VB6 -menyn och välj " Meny Editor . " Göra dessa ändringar i Menu 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=Skriv
Namn=mnuPrint
Klicka på " Nästa "
Caption=Spara
Namn=mnuSave
Klicka på " Nästa "
Caption=Avsluta
Name=mnuExit
Klicka på " OK "
6 .
Öppna koden genom att klicka på " Visa " och sedan " Code " på den högsta nivån VB6 menyn . Skriv följande rader med kod exakt som de visas nedan :

Sub form_load ( )
End Sub
Function SaveMyNote ( MyNote som kontroll, CommonDialog1 Som CommonDialog , Filnamn As String ) Som Boolean
Dim fNum As Integer
On Error GoTo ExitNow
CommonDialog1. Filter=" text -filer | *. txt "
CommonDialog1. Filename=Filnamn
CommonDialog1. CancelError=True
CommonDialog1. ShowSave Filnamn
=CommonDialog1 . Filnamn
fNum=FreeFile ( )
Open Filnamn för utskrift som # fNum
Skriv # fNum , MyNote. Text ;
Stäng # fNum
SaveMyNote=Sant
ExitNow :
End Function
Private Sub mnuPrint_Click ( )
Med CommonDialog1
PrinterDefault=Sant
ShowPrinter
Printer. Print MyNote. Text
Printer. EndDoc
End With
End Sub
Private Sub mnuSave_click ( )
Dim Filename As String
Om SaveMyNote ( MyNote , CommonDialog1 , Filnamn ) Sen
MsgBox " Ditt meddelande har sparats till " Filnamn
End If
End Sub
Private Sub mnuExit_Click ( )
End
End Sub

7 .
Tryck " F5 "för att köra programmet . Skriv vad du vill i rutan och skriva ut eller spara den med hjälp av menyalternativen .


tips och varningar




Du kan lägga till fler menyalternativ till toppen av din nya anteckningsblock genom att använda menyn Editor som i steg 5 och skriva tillhörande kod . Du kan också använda MenuEditor att skapa undermenyer ramen för de viktigaste alternativen.

Common Dialog Control 6,0 ingår i en separat fil Microsoft , COMDLG32. OCX . Om du bygger detta program för att skapa en applikation som kan installeras och användas av andra , måste du distribuera den här filen tillsammans med den körbara ( exe) .

Previous：nothing Next：hur man hittar filer i asp

Relaterade artiklar