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.371 mal aufgerufen. |
Neu! sevCommand 4.0 ![]() Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Buchempfehlung Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. 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. |