Deklaration: Declare Function PolylineTo Lib "gdi32.dll" ( _ ByVal hdc As Long, _ lppt As POINTAPI, _ ByVal cCount As Long) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function PolylineTo Lib "gdi32.dll" ( _ ByVal hdc As Long, _ lppt As POINTAPI, _ ByVal cCount As Long) As Long Private Declare Function MoveToEx Lib "gdi32.dll" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type ' Zeichnen eines umgedrehten Dreiecks auf der gesamten Form Private Sub Form_Paint() Dim Retval As Long, Points(2) As POINTAPI, OldPT As POINTAPI ' Dreieckspunkte festlegen Me.ScaleMode = vbPixels Retval = MoveToEx(Me.hdc, 10, 10, OldPT) With Points(0) .x = (Me.ScaleWidth - 20) / 2 .y = Me.ScaleHeight - 10 End With With Points(1) .x = Me.ScaleWidth - 10 .y = 10 End With With Points(2) .x = 10 .y = 10 End With ' Dreieck zeichnen Me.Cls Retval = PolylineTo(Me.hdc, Points(0), UBound(Points) + 1) End Sub ' Beim Ändern der Fenstergröße auch zeichnen Private Sub Form_Resize() Call Form_Paint End Sub Diese Seite wurde bereits 6.538 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats Juni 2024 Microsys Kramer Mausrad im Formular abschalten (Access) Deaktiviert das Mausrad in Access-Formularen. Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. |
||||||||||||||||
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. |