Hvordan skrive ut en fil med Visual Basic 6.0

Hvordan skrive ut en fil med Visual Basic 6.0


Visual Basic utskrift inneholder en "Skriver" funksjonen til å skrive ut en fil, men gir ingen kontroll over formateringen, spesielt å vikle lange linjer. Tilleggskoden kan manipulere teksten, testing for linjelengde og plassering av områder for å finne et godt sted å bryte linjene. Men det er en enklere måte involverer bare noen få linjer med kode og en rik TextBox kontroll. Den eneste ulempen er at det vil ikke gi margin innstillinger. Dette er mulig med en API (Application Programming Interface) samtale, men API kode er lang, kjører over 122 linjer med kode og 700 + ord med forklaring. Dette overgår omfanget av denne artikkelen.

Bruksanvisning

1 Opprett et nytt Standard EXE-prosjekt i Visual Basic ved å klikke på "File" og deretter "New Project" og velge Standard EXE mal. Legg en etikett kontrollen til skjemaet som åpnes ved å klikke på Label ikonet i verktøykassen som viser til venstre. Dette er den store bokstaven "A" i caps. Se i Properties listen til høyre for Label1 egenskaper og endre Caption å lese "Navn på filen som skal skrives?", Men ikke bruke anførselstegn.

2 Legg en TextBox kontrollen til skjemaet på samme måte, ved hjelp av Verktøykasse ikon av en liten firkant med små bokstaver "ab" i den. Plasser tekstboksen til høyre for etikett. Finn "Text" eiendom i listen eiendommer for kontroll og dobbeltklikk på Tekst eiendommen for å markere standardnavnet. Trykk på "Delete" på tastaturet for å fjerne det.

3 Legg til to kommandoknapper fra verktøykassa, identifisert av en liten firkant. Endre Caption av de første som "Print" og Caption av andre til å "Avbryt". Legg en kontroll for å Toolbox ved å klikke på "Project" i toppmenyen og deretter "Components. Finn" Microsoft Rich Tekstboks' Kontroll 6.0 (SP6) "i listen og klikk på boksen for å velge den. Klikk på" Apply "og" OK ". Legg til den nye kontrollen, noe som bør være på bunnen av kontrollisten. Flytte markøren over ikonet vises navnet.

4 Klikk på Microsoft Rich Tekstboks' Kontroll 6.0 (SP6) på skjemaet. I Egenskaper liste for denne kontrollen, slett "Text" navn, endre "Multi" eiendom fra "False" til "Sant nok, gjør det" Synlig "eiendom" False "og sette" Skrift "eiendom til hva font og størrelse du ønsker.

5 Dobbeltklikk på Print kontrollen for å åpne koden vinduet. Skriv inn denne koden nøyaktig slik den vises nedenfor:

Private Sub Command1_Click ()
Dim strFileToPrint, strFullFile, strReadLine As String
strFileToPrint = Text1.Text
Åpne strFileToPrint For Input As # 1
Gjør Inntil EOF (1)
Linje Input # 1, strReadLine
strFullFile = strFullFile & strReadLine
Loop
RichTextBox1 = strFullFile
RichTextBox1.Visible = True
RichTextBox1.SelLength = 0
RichTextBox1.SelPrint Printer.hDC
End Sub

Under denne typen følgende kode:

Private Sub Command2_Click ()
Slutt
End Sub

6 Trykk "F5" for å kjøre programmet og skrive ut en fil. Hvis dokumentet ikke skrives ut, kontrollerer du kodelinjer over for å være sikker på at du la dem inn på riktig måte. Hvis en advarsel vises til effekten filen ble ikke funnet, så dobbeltsjekke plassering og filnavn.

Hint

  • Legg noen feil fangst rutiner hvis brukeren angir en feil plassering eller filnavn, som vil varsle brukeren og hindre en krasj.
  • Sett inn en ny kommando for å skille kommandoen Skriv ut fra filen lasteoperasjonen, slik at brukeren kan redigere informasjonen i Rich Textbox. Du må gjøre Rich Tekstboks' synlig eiendom sant og forstørre boksen med de dra håndtakene.
  • Ikke prøv å skrive ut tekstbehandling eller regneark filer som inneholder formateringskommandoer, som et resultat vil være vrøvl.