title image


Smiley Druckvorschau - Immer wieder Ärger mit PaintPicture - Wer kann helfen?
Ich stehe mit der PaintPicture-Methode auf Kriegsfuß!Um eine skalierbare Druckvorschau eines Diagramms anzuzeigen, drucken ich zuerst in eine versteckte PictureBox, die die gleiche Grösse wie das Printer-Objekt hat. (PictureBox.Height=Printer.Height) Dann soll der Bildinhalt mit PaintPicture in die sichtbare PictureBox auf deren Grösse kopiert werden.Nachdem ich ein Bild in eine PictureBox lade, druckeich noch etwas mit .print in die PictureBox und will dannden Bildinhalt der Picture-Box in eine andere kopieren.Mit PaintPicture wird aber nur das Bild im Hintergrund kopiert, der Text im Vordergrund nicht!!!Was mache ich falsch?Wie kriege ich die skalierte Druckvorschau hin?Schon mal Vielen Dank für die Antworten.AndreasHier ist ein kleines Beispielprogramm, das zeigt, was ich meine.'Das Form enthält zwei Pictureboxes: pbhidden und pbresults'sowie vier Commandbuttons: cbLoad, cbPaint, cbCopy, cbClose'(alle vier genauso beschriftet)Private Sub cbClose_Click()EndEnd SubPrivate Sub cbCopy_Click()CopyEnd SubPrivate Sub cbLoad_Click()pbhidden.Picture = LoadPicture("c:\irgendein.bmp") 'Hintergrundbild ladenEnd SubPrivate Sub cbPaint_Click() 'In Bild Zufallsmuster malenDim iRandomizeFor i = 0 To pbhidden.Widthpbhidden.CurrentX = ipbhidden.CurrentY = Rnd() * pbhidden.Heightpbhidden.Print "o"Next iEnd SubPrivate Sub Form_Load()pbresults.AutoRedraw = TrueBreite = pbresults.Width 'Printer.Width 'wird, wenn´s funktioniert, auf Printer umgestellthöhe = pbresults.Height ' Printer.Height'pbhidden.Width = Breite'pbhidden.Height = höheEnd SubPrivate Sub Copy() 'Bildinhalt in sichtbares Bild kopierenpbresults.PaintPicture pbhidden.Image, 0, 0, pbresults.Width, pbresults.Height, 0, 0, pbhidden.ScaleWidth, pbhidden.ScaleHeightEnd SubPrivate Sub Form_Resize() 'Fenster beim Ändern der Grösse mitskalierenpbresults.Width = Form1.Width / 2pbresults.Height = Form1.Height - 1000pbresults.Left = 0pbresults.Top = 0cbPaint.Top = Form1.Height - cbPaint.Height - 400cbLoad.Top = Form1.Height - cbLoad.Height - 400cbCopy.Top = Form1.Height - cbCopy.Height - 400cbClose.Top = Form1.Height - cbClose.Height - 400CopyEnd Sub
MFG, EW-Andy.


vbBooks.de - VB-Bücher zum Schmökern und Links zu allen Tutorien und Tips&Tricks-Seiten.



geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: