Förord

I denna kursen skall vi gå igenom hur man skriver en text editor med de vanligaste funktionerna. Kursen är främst skriven för nybörjare!

Innehåll

  » Exempelfil att tanka
  » Var denna artikeln användbar?

Börja med att starta ett nytt Standard EXE projekt. Gå sedan in i menyn "Projekt" och tryck på "Components". Markera sedan "Microsoft Rich Textbox Control", "Microsoft Common Control" och "Microsoft common dialog control". Tryck sedan på "OK". Nu skall du ha fått lite fler komponenter att välja på.



Du kan börja med att sätta in en "Status Bar". Status baren sätter sig automatiskt på botten men du behöver sätta in egna paneler. Och det gör du genom att högerklicka på status baren och klicka på "Properties". Klicka sedan på fliken "Panels" och ställ in följande:
Text = "Mitt Program
Alignment = 0 - sbrLeft
Style = 1 - sbrText
Gör sedan en ny panel där du ställer in:
Alignment = 1 - sbrCenter
Style = 5 - sbrTime
Och sedan en tredje med:
Alignment = 1 - sbrCenter
Style = 6 - sbrDate
Så nu har du skapat en status bar med ditt programs namn, tid och datum.

Nu skulle vi behöva något att skriva på så vi sätter in en Rich Textbox och passar in den efter ditt program. Sedan ställer vi in följande:
Name = RTF
ScrollBars = 3 - Both
Detta gör att båda rullisterna används.

Genom att klicka på menyn "Tools" och sen på "Menu Editor …" Skapade jag sedan en arkivmeny med "Öppna", "Spara", "Skriv ut" och "Avsluta".

Sen la jag till en "ToolBar" och en "ImageList" som jag döpte till "Tbar och "IMG". Jag högerklickade sedan på imagelisten och tryckte på "Properties" och gick in i fliken "Images" och la sedan till fyra bilder en för Nytt dokument, en för öppna, en för Spara och en för skriv ut. Bilderna hittade jag i min Visual Basic mapp. Sen startade jag "Properties" för ToolBaren och satte:
Imagelist = IMG
Din Imagelist om du döpt den till annat
Style = 1 tbrFlat
Sen skapade jag tre knappar en med texten "Nytt" och Image=1, en med texten "Öppna" och Image=2, en med texten "Spara" och Image=3 och slutligen en med texten "Skriv ut" och Image=4. På varje knapp skall även "Key" vara samma som texten.

Nu skall det se ut något så här:



Sen är det bara kodningen kvar. Vi börjar med att dubbelklicka på ToolBaren och skriver:


Select Case Button.Key
Case "Nytt" 'När Key är vad som står inom "" händer
mnuNytt_Click 'det man skriver här
Case "Öppna"
mnuOppna_Click
Case "Spara"
mnuSpara_Click
Case "Skriv ut"
mnuskriv_Click
End Select

' sen avslutar vi

End


Nu kan du klicka på menyn "Nytt" och skriva följande:


RTF.Text = "" ' Tar bort all tidigare text från RichTextboxen


Sedan tar vi skriv ut och då behövs även Common Dialog kontrollen (Döp den till CMD). Klicka sedan på menyn "Skriv ut" och skriv följande:


On Error GoTo ERR

CMD.ShowPrinter 'Visar alla skrivare
Printer.Print
RTF.SelPrint Printer.hDC
Printer.EndDoc
Exit Sub

ERR: ' Hit går det om något blir fel
If Not ERR = cdlCancel Then Resume Next
' Om inte användaren tryckte på avbryt så fortsätter det


Sen tar vi öppna. Klicka då på menyn "Öppna" och skriv följande:


On Error GoTo ERR

CMD.Filter = "Rich Text Filer (*.Rtf)|*.rtf|Alla filer (*.*)|*.*"
' Vilka filsorter som skall visas
CMD.ShowOpen ' Visar filer att öppna
RTF.LoadFile (CMD.filename) ' Laddar filen du markerade
Exit Sub

ERR:
If Not Err = cdlCancel Then Resume Next

' Sedan tar vi spara. Klicka på menyn "Spara" och skriv följande:

On Error GoTo ERR

CMD.Filter = "Rich Text Filer (*.Rtf)|*.rtf|Alla filer (*.*)|*.*"
CMD.ShowSave ' Visar filer att spara
RTF.SaveFile (CMD.filename) ' Sparar filen du markerade
Exit Sub

ERR:
If Not Error = cdlCancel Then Resume Next

'Sist tar vi Avsluta. Klicka på menyn "Avsluta" och skriv följande:

End


Så nu har vi gjort en väldigt enkel Text Editor. I senare lektioner har jag tänkt att bygga på programmet och göra så att man kan ändra fonter storlekar m.m.

Exempelfil att tanka

Fil: TextEditor.zip

Var denna artikeln användbar?

Om du gör någon intressant (eller kanske något konstigt fel) på grund av detta material så skicka gärna det med ett mail eller bifoga en länk till mig så presenterar jag detta som ytterligare exempelfiler för kursen. Om detta innehållet är felaktigt eller du lärt dig fler finesser så skriv gärna en rad eller varför inte en egen kurs baserat på dina erfarenheter.Sänd gärna in dina tips till denna kurs.

/Andreas Lundgren

0 Kommentarer

Skriv en kommentar på artikeln

Ditt betyg på artikeln

UtmärktLäsvärdIntressantMindre braDålig

Kommentar: