Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > General Coding > Coding Tutorials
You last visited: Today at 10:50

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[VB.Net]TextDokument Drucken

Discussion on [VB.Net]TextDokument Drucken within the Coding Tutorials forum part of the General Coding category.

Reply
 
Old   #1
 
Jay Niize's Avatar
 
elite*gold: 0
Join Date: Oct 2009
Posts: 4,851
Received Thanks: 3,417
[VB.Net]TextDokument Drucken

Hallo Elitepvpers! heute zeige ich euch wie ihr in Visual Basic 2008 in 8 Schritten ganz einfach ein Programm Programmiert, dass Texte aus einem Textfeld druckt!
Fangen wir an!

Schritt 1

Wähle das Label-SteuerElement aus und ziehe es oben auf die Form! Dieses Label ist dazu adr, das der Benutzer weiss was er zu tuen hat (Anweisung)

Schritt 2

Nun Ziehe das Textbox-SteuerElement auf die Form, unterhalb des Labels, stellen die EIgenschaften auf Multi-Line und machen es etwas größer! Diese textbox beinhaltet später den Text, der gedruckt werden soll!

Schritt 3

Ziehe nun das Button - SteuerElement auf die Form, unter die Textbox in die Mitte! Der Button ist dazu dar, das der Druckvorgang später ausgeführt wird!

Schritt 4

Nun musst du die Eigenschaften so festlegen :

Label1 >> Text >> "Gebe hier den Text ein, der gedruckt werden soll"
Textbox1 >> ScrollBars >> Vertical
Button1 >> Text >> "Text drucken"
Form1 >> Text >> "Dein Fenster Titel"

Deine Form sollte jetzt ungefähr so aussehen :


Schritt 5

Mache einen Doppelklick auf den Button1, um in den Code Editor zu kommen!

Schritt 6

Nun Blättere im Code Editor ganz nach oben und schreibe :
Code:
Imports System.Drawing.printing
Damit wird der NameSpace-System.drawing.printing eingebunden, was ermöglicht, das die Druckfunktion genutzt werden kann!

Schritt 7

Nun blätterst du wieder in die Ereignisprozedur Button1_click herunter, um folgenden Code einzutragen :
Code:
       'Fehlerhandler verwenden, um Druckprobleme abzufangen
        Try
            'PrintDoc-Variable mit dem Typ PrintDocument deklarieren
            Dim PrintDoc As New PrintDocument()
            AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
            PrintDoc.Print()   'Text drucken
        Catch ex As Exception  'Druckausnahme abfangen
            MessageBox.Show("Leider ist beim Drucken ein Fehler aufgetreten", _
              ex.ToString())
        End Try
Erläuterung steht ja im Code

Schritt 8

Jetzt Blätterst du nach oben, und fügst deine eigene Sub ein :

Code:
'Sub-Prozedur zum Drucken von Text
    Private Sub PrintText(ByVal sender As Object, _
      ByVal ev As PrintPageEventArgs)
        'Mit DrawString Text in einem Graphics-Objekt erstellen'
        ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", _
          11, FontStyle.Regular), Brushes.Black, 120, 120)
        'Angabe, dass dies die letzte auszudruckende Seite ist'
        ev.HasMorePages = False
    End Sub


So das wars von Mir Leute 80% Me Credits
20% gehen an mein Buch, von dem Ich gelernt habe ! Ich kann es euch nur empfehlen! Visual Basic schritt für schritt!

MFG JUsikid!
Jay Niize is offline  
Thanks
3 Users
Old 05/30/2010, 09:18   #2
 
elite*gold: 0
Join Date: May 2010
Posts: 551
Received Thanks: 732
hast dir sicherlich mühe gegben deshalb ein thanks , man könnte solche sachen jedoch aus der msdn erfahren
Yazzn™ is offline  
Old 05/30/2010, 09:27   #3
 
Jay Niize's Avatar
 
elite*gold: 0
Join Date: Oct 2009
Posts: 4,851
Received Thanks: 3,417
ja, aber sowasi st gleich auf dem Board nur SuFu nit google
Jay Niize is offline  
Reply


Similar Threads Similar Threads
Drucken Briefumschlag!SCHNELL!
06/16/2010 - Main - 10 Replies
Hallo Leute! Ich bitte um schnelle Antwort! Wie kriege ich es hin, das ich einen Briefumschlag bedrucke, so das alles genau passt. Hat einer ne Vorlage? Nicht für die mit dem Seitenfenstern und die generell großen, sondern die etwas kleineren. Ich will In der Mitte was drauf schrieben! WO muss ich das dann im Word anordnen! MITTE SCHNELLE HILFE!
Drucken mit internet ?
04/15/2010 - Technical Support - 3 Replies
hallo com, sry wenn es dre falsche platz ist für den thread :handsdown: also ich hab einen Canon MX310 drucker und auf meinem computer tisch hab ich kein platz für den drucker also will ich es über mein modem vom internet machen (wenn es geht :D) und ich hab auch schon ge-google-t und hab rausgefunden das man den drucker freigeben muss das hab ich auch schon gemacht und meine frage ist wie ich das jetzt anschließe (mit dem modem :(:confused:) wen ich alles falsch gemacht habe bitte...
D2NT Drucken
04/14/2010 - Diablo 2 - 8 Replies
Ich habe eine funktion, die den kalten immunes überspringt. Manchmal ist der bildschirm gefüllt ist. Wie kann ich eine zeitmesser eingang, damit es nicht den bildschirm auszufüllen? if(NTA_GetResistance(target, NTA_DAMAGE_COLD) >= 100) { Print("ÿc3Cold Immune " + "ÿc8" + target.name) return 1; }
Vk textdokument mit IS BUG ;)
04/11/2010 - Metin2 Trading - 2 Replies
Regelverstoß
Textdokument bearbeiten mit autoit
04/19/2009 - Guild Wars - 4 Replies
HI, also ich hab folgendes problem ich brauchte eine text datei wo nur namen drinstehen allerdings sind bei meiner textdatei dahinter immer nocheine Beschreibungen. Da ich keine lust hab 9000 Beschreibungen wegzu löschen wollt ich fragen ob man die mit einem script irgentwie wegmachen könnte. Das textdokument schaut ungefähr so vom Aufbau her aus: name1 Beschreibung1 name2 Beschreibung2 name3 Beschreibung3 name4 Beschreibung4



All times are GMT +1. The time now is 10:50.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.