Deklaration: Declare Function PolyBezier Lib "gdi32.dll" ( _ ByVal hdc As Long, _ lppt As POINTAPI, _ ByVal cPoints As Long) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function PolyBezier Lib "gdi32.dll" ( _ ByVal hdc As Long, _ lppt As POINTAPI, _ ByVal cPoints As Long) As Long Private Type POINTAPI x As Long y As Long End Type ' Bezier auf die Form zeichnen Private Sub Form_Paint() Dim Retval As Long, Pt(6) As POITNAPI Me.ScaleMode = vbPixels Me.Cls ' Kurven definieren With Pt(0) .x = 20 .y = 20 End With With Pt(1) .x = 200 .y = 200 End With With Pt(2) .x = 120 .y = 300 End With With Pt(3) .x = 120 .y = 80 End With With Pt(4) .x = 200 .y = 120 End With With Pt(5) .x = 20 .y = 60 End With With Pt(6) .x = 20 .y = 20 End With ' Bezier zeichnen Retval = PolyBezier(Me.hdc, Pt(0), UBound(Pt) + 1) End Sub Diese Seite wurde bereits 7.296 mal aufgerufen. |
sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |