Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Die PSet-Methode legt beim Auftreten des Print-Ereignisses einen Punkt auf einem Report-Objekt auf eine angegebene Farbe fest.
Syntax
Ausdruck verwendet werden. PSet (Flags, x, y, Farbe)
Ausdruck Eine Variable, die ein Report-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Flags | Erforderlich | Integer | Ein Schlüsselwort (keyword), das angibt, dass die Koordinaten relativ zur aktuellen Grafikposition sind, die durch die Einstellungen für die Eigenschaften CurrentX und CurrentY des Arguments Object angegeben wird. |
| x | Erforderlich | Single | Die horizontale Koordinate des festzulegenden Punkts. |
| y | Erforderlich | Single | Die vertikale Koordinate des festzulegenden Punkts. |
| Color | Erforderlich | Long | Die RGB-Farbe (rot-grün-blau), auf die der Punkt gesetzt werden soll. Wird dieses Argument nicht angegeben, so wird der Wert der ForeColor -Eigenschaft verwendet. Sie können für die Farbangabe auch die RGB -Funktion oder die QBColor -Funktion verwenden. |
Rückgabewert
Nichts
Bemerkungen
Die Größe des Punkts hängt von der Einstellung der DrawWidth-Eigenschaft ab. Wenn die DrawWidth-Eigenschaft auf 1 festgelegt ist, wird durch die PSet-Methode ein einzelnes Pixel auf die angegebene Farbe festgelegt. Ist der Wert der DrawWidth-Eigenschaft größer als 1, wird der Punkt auf den angegebenen Koordinaten zentriert.
Wie der Punkt gezeichnet wird, hängt von den Einstellungen der Eigenschaften DrawMode und DrawStyle ab.
Wenn Sie die PSet-Methode anwenden, werden die Eigenschaften CurrentX und CurrentY auf die Punktkoordinaten festgelegt, die durch die Argumente x und y bestimmt sind.
Um ein einzelnes Pixel mit der PSet-Methode zu löschen, geben Sie die Koordinaten des Pixels an und verwenden Sie &HFFFFFF (weiß) als Argument Farbe .
Beispiel
Im folgenden Beispiel wird die PSet-Methode zum Zeichnen einer Linie entlang der horizontalen Achse eines Berichts verwendet.
Zum Testen dieses Beispiels in Microsoft Access erstellen Sie einen neuen Bericht. Legen Sie die OnPrintOnPrint-Eigenschaft des Detailbereichs auf [Ereignisprozedur] fest. Geben Sie den folgenden Code in das Berichtsmodul ein, und wechseln Sie dann in die Seitenansicht.
Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim sngMidPt As Single, intI As Integer
' Set scale to pixels.
Me.ScaleMode = 3
' Calculate midpoint.
sngMidPt = Me.ScaleHeight / 2
' Loop to draw line down horizontal axis pixel by pixel.
For intI = 1 To Me.ScaleWidth
Me.PSet(intI, sngMidPt)
Next intI
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.