|
| |
Visual-Basic Einsteiger| Bild ausdrucken! | |  | | Autor: Soulfly | | Datum: 07.12.02 15:43 |
| Hallo
Leider funtzt der Tipp von der Seite hier bei mir nicht mit dem Bild anzeigen
mit call bild_anzeigen lädt er ein Bild von einer Textbox in das Haupt.Picture1 rein!!
Doch wenn ich ausdrucken will sagt der immer kein Bild gefunden, wenn ich aber ein Bild schon von anfang an definiere druckt er dies aus auch wenn ich halt ein anderes reingeladen habe hier der Code
Wäre nett wenn mir einer weiter hilft!!!
Public Sub drucken_farbe()
Dim nie As Long
nie = 0
If drucken.Op_co_front = True Then
On Error GoTo error
Call bild_anzeigen
PrintPicture Haupt.Picture1.Picture, 20, 20, _
120, 120
If nie = 1 Then
error:
MsgBox ("Bild nicht gefunden")
End If
End If
End Sub
'''''''''''''''''''Der code von Tips und Tricks
Public Sub PrintPicture(Picture As Picture, _
ByVal xPos As Long, ByVal yPos As Long, _
Optional ByVal xSize As Long = 0, _
Optional ByVal ySize As Long = 0)
Dim OldScaleMode As Integer
With Printer
' Maßeinheit mm
OldScaleMode = .ScaleMode
.ScaleMode = 6
If xSize > 0 And ySize > 0 Then
' Bild vergrößert/verkleinert drucken
Printer.PaintPicture Picture, xPos, yPos, _
xSize, ySize
Else
' Bild in Orginalgröße drucken
Printer.PaintPicture Picture, xPos, yPos
End If
' ursprüngliche Maßeinheit wiederherstellen
.ScaleMode = OldScaleMode
End With
End Sub
'''''''''''''''''''''''Hier mein Call bild_anzeigen ()
Public Sub bild_anzeigen()
On Error GoTo bild
If Haupt.txt_bild = "" Then
bild:
With Haupt.Picture1
.AutoRedraw = True
.PaintPicture LoadPicture(App.Path & "\nocover.jpg"), 0, 0, _
.ScaleWidth, .ScaleHeight
.AutoRedraw = false
End With
Else
With Haupt.Picture1
.AutoRedraw = True
.PaintPicture LoadPicture(Haupt.txt_bild.Text), 0, 0, _
.ScaleWidth, .ScaleHeight
.AutoRedraw = false
End With
End If
End Sub
MFG Soulfly | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Neu! sevCoolbar 3.0 
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
Re: Bild ausdrucken!
