Deklaration: Declare Function PolyPolyline Lib "gdi32.dll" ( _ ByVal hdc As Long, _ lppt As POINTAPI, _ lpdwPolyPoints As Long, _ ByVal cCount As Long) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function PolyPolyline Lib "gdi32.dll" ( _ ByVal hdc As Long, _ lppt As POINTAPI, _ lpdwPolyPoints As Long, _ ByVal cCount As Long) As Long Private Type POINTAPI x As Long y As Long End Type ' Zeichnen zweier umgedrehter Dreiecke auf der gesamten Form Private Sub Form_Paint() Dim Retval As Long, Points(7) As POINTAPI, Figures(1) As Long Me.ScaleMode = vbPixels ' erstes Dreieck festlegen With Points(0) .x = 10 .y = 10 End With With Points(1) .x = (Me.ScaleWidth - 20) / 2 .y = (Me.ScaleHeight - 20) / 2 End With With Points(2) .x = Me.ScaleWidth - 10 .y = 10 End With With Points(3) .x = 10 .y = 10 End With Figures(0) = 4 ' zweites Dreieck festlegen With Points(4) .x = 10 .y = (Me.ScaleHeight - 20) / 2 End With With Points(5) .x = (Me.ScaleWidth - 20) / 2 .y = Me.ScaleHeight - 10 End With With Points(6) .x = Me.ScaleWidth - 10 .y = (Me.ScaleHeight - 20) / 2 End With With Points(7) .x = 10 .y = (Me.ScaleHeight - 20) / 2 End With Figures(1) = 4 ' Dreieck zeichnen Me.Cls Retval = PolyPolyline(Me.hdc, Points(0), Figures(0), UBound(Figures) + 1) End Sub ' Beim Ändern der Fenstergröße auch zeichnen Private Sub Form_Resize() Call Form_Paint End Sub Diese Seite wurde bereits 7.061 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung 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 :-) |
||||||||||||||||||
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. |