Deklaration: Declare Function PolyBezierTo Lib "gdi32.dll" ( _ ByVal hdc As Long, _ lppt As POINTAPI, _ ByVal cCount As Long) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function MoveToEx Lib "gdi32.dll" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ lpPoint As POITNAPI) As Long Private Declare Function PolyBezierTo Lib "gdi32.dll" ( _ ByVal hdc As Long, _ lppt As POINTAPI, _ ByVal cCount As Long) As Long Private Type POINTAPI x As Long y As Long End Type ' Kurven auf die Form zeichnen Private Sub Form_Paint() Dim Retval As Long, Pt(5) As POITNAPI, MovePt As POITNAPI ' Startpunkt setzen Me.Cls Me.ScaleMode = vbPixels Retval = MoveToEx(Me.hdc, 20, 20, MovePt) ' 2 Kurven definieren Pt(0).x = Me.ScaleWidth: Pt(0).y = 20 Pt(1).x = Me.ScaleWidth / 2: Pt(1).y = Me.ScaleHeight / 2 Pt(2).x = Me.ScaleWidth: Pt(2).y = Me.ScaleHeight Pt(3).x = Me.ScaleWidth / 2: Pt(3).y = Me.ScaleHeight / 2 + 20 Pt(4).x = 20: Pt(4).y = Me.ScaleHeight Pt(5).x = 20: Pt(5).y = 20 ' 2 Kurven zeichnen Retval = PolyBezierTo(Me.hdc, Pt(0), UBound(Pt) + 1) End Sub Diese Seite wurde bereits 6.702 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. |