Met een beetje werk , kun je je eigen versie van computer notepad software te schrijven in de Visual Basic programmeertaal . Dit stelt de gebruiker in te voeren , af te drukken en op te slaan tekst net als Microsoft's Kladblok programma doet . De applicatie kan zo basic als de een hier of meer complexe beschreven met extra functies , het creëren van software die vergelijkbaar is met een tekstverwerkingsprogramma . De applicatie maakt gebruik van gemeenschappelijke controles en dialoog reeds in Visual Basic gebouwd . Instructies
1 Maak een nieuwe Visual Basic 6.0 ( VB6 ) project met behulp van de "Standard EXE " template . Klik op "Bestand " in het bovenste VB6 menu en selecteer " Project opslaan als . " De eerste prompt vraagt om een formulier naam . Noem het formulier " MyNotepad " en klik op "OK . " De volgende prompt vraagt naar de naam van het project . Noem het ' Mijn Notepad " en klik op" OK . "
Klik 2 op " Project " in het bovenste VB6 menu en selecteer " componenten . " Scroll naar beneden in de lijst van onderdelen totdat u" Microsoft Common dialoogvenster controle 6.0 . "Klik op het selectievakje naast deze om deze controle toe te voegen , en klik op ' OK '. Dubbelklik op deze controle , moet die het laatste item in de toolbox aan de linkerkant , om deze toe te voegen aan het formulier .
3 Zoek het venster Eigenschappen aan de rechterkant van het scherm en dubbelklikt u op het eerste item , " ( naam ) . " Verander de standaard naam te " MyNotepad . \\ " Dubbelklik op het " Caption " eigendom en verander deze naam aan "Mijn notitieblok . \\ "
4 Dubbelklik op het pictogram TextBox in de toolbox paneel aan de linkerkant van het scherm om voeg deze toe aan het formulier . Op de nieuwe controle-en met slepen grepen te vergroten TextBox bijna de grootte van de vorm zelf . Zoek deTextBoxbesturingselement in het venster Eigenschappen aan de rechterkant van het scherm en maak deze wijzigingen :
( Name ) = MyNote
Multiline = True
ScrollBars = 3 - Beide
5 Klik op 'Extra' in het bovenste VB6 menu en selecteer " menu Editor . " Maak deze veranderingen in de Editor doos menu dat opent , klik op " Next " na elk van de eerste twee menu's en "Exit " na de laatste zoals hieronder weergegeven :
Caption = Print
Naam = mnuPrint
Klik op " Next " < br /> Caption = Opslaan
Naam = mnuSave
Klik op " Next "
Caption = Exit
Naam = mnuExit
Klik op " OK " < br >
6 Open het venster Code door te klikken op "View " en vervolgens "Code" in het bovenste menu VB6 niveau . Typ de volgende regels code precies zoals ze hieronder weergegeven :
Sub Form_Load ( )
End Sub
Functie SaveMyNote ( MyNote Zoals Control, CommonDialog1 Zoals CommonDialog , Bestandsnaam als Koord ) zoals Van Boole
Dim fNum als Geheel
On Error GoTo ExitNow
CommonDialog1.Filter = \\ " Text Files | . * txt \\ " < br /> CommonDialog1.Filename = Bestandsnaam
CommonDialog1.CancelError = True
CommonDialog1.ShowSave
Filename = CommonDialog1.Filename
fNum = FreeFile ( ) < br /> Open Filename Voor Output Zoals # fNum
Print # fNum , MyNote.Text
GO
Close # fNum
SaveMyNote = True
ExitNow :
End Function Private Sub mnuPrint_Click ( )
Met CommonDialog1
. PrinterDefault = True
. ShowPrinter
Printer.Print MyNote.Text
Printer.EndDoc
Eind met
End Sub
Private Sub mnuSave_click ( )
Dim Bestandsnaam As String
Als SaveMyNote ( MyNote , CommonDialog1 , Bestandsnaam ) dan
MsgBox \\ " Jouw opmerking is opgeslagen in \\ " & bestandsnaam
Eind als
End Sub
private Sub mnuExit_Click ( )
End End Sub
Druk op " F5 " 7 om het programma te draaien . Type wat je wilt in het vak en afdrukken of opslaan met behulp van de menu-items .
|
