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.695 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 April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! |
||||||||||||||||
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. |