Chord-Funktion Diese Funktion zeichnet einen Halbkreis auf ein angegebenes Gerät.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  8.765

Deklaration:

Declare Function Chord Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal nLeftRect  As Long, _
  ByVal nTopRect As Long, _
  ByVal nRightRect As Long, _
  ByVal nBottomRect As Long, _
  ByVal nXRadial1 As Long, _
  ByVal nYRadial1 As Long, _
   ByVal nXRadial2 As Long, _
  ByVal nYRadial2 As Long) As Long

Beschreibung:
Diese Funktion zeichnet einen Halbkreis auf ein angegebenes Gerät.

Parameter:

hdc	Erwartet das Handle des Gerätes, auf dem der Halbkreis gezeichnet werden soll.
nLeftRect	Erwartet die obere horizontale Koordinate des Rechtecks, in dem der Halbkreis gezeichnet werden soll.
nTopRect	Erwartet die obere vertikale Koordinate des Rechtecks, in dem der Halbkreis gezeichnet werden soll.
nRightRect	Erwartet die untere horizontale Koordinate des Rechtecks, in dem der Halbkreis gezeichnet werden soll.
nBottomRect	Erwartet die untere vertikale Koordinate des Rechtecks, in dem der Halbkreis gezeichnet werden soll.
nXRadial1	Erwartet die obere horizontale Koordinate des Halbkreises.
nYRadial1	Erwartet die obere vertikale Koordinate des Halbkreises.
nXRadial2	Erwartet die untere horizontale Koordinate des Halbkreises.
nYRadial2	Erwartet die untere vertikale Koordinate des Halbkreises.

Rückgabewert:
Ist die Funktion erfolgreich, so wird ein Wert "ungleich 0" zurückgegeben, andernfalls derWert "0". Unter Windows NT, 2000, XP können Sie die GetLastError-Funktion für erweiterte Fehlerinformationen aufrufen.

Beispiel:

Private Declare Function Chord Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal nLeftRect As Long, _
  ByVal nTopRect As Long, _
  ByVal nRightRect As Long, _
  ByVal nBottomRect As Long, _
  ByVal nXRadial1 As Long, _
  ByVal nYRadial1 As Long, _
   ByVal nXRadial2 As Long, _
  ByVal nYRadial2 As Long) As Long
Private Declare Function CreatePenIndirect Lib "gdi32.dll" ( _
  lpLogPen As LOGPEN) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" ( _
  ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
   ByVal hObject As Long) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Type LOGPEN
  lopnStyle As Long
  lopnWidth As POINTAPI
  lopnColor As Long
End Type
 
Private Const PS_SOLID = 0
Private Const PS_DASH = 1
Private Const PS_DOT = 2
Private Const PS_DASHDOT = 3
Private Const PS_DASHDOTDOT = 4
Private Const PS_NULL = 5
Private Const PS_INSIDEFRAME = 6

Private Sub Form_Load()
  Dim Retval As Long, hPen As Long, hOldPen As Long, PenInfo As LOGPEN
 
  Me.AutoRedraw = True
  Me.ScaleMode = vbPixels
 
  ' Pen definieren
  With PenInfo
    .lopnColor = vbRed
    .lopnStyle = PS_DASHDOTDOT
  End With
 
  ' Pen erstellen
  hPen = CreatePenIndirect(PenInfo)
 
  ' Neuen Pen der Form zuweisen und alten Pen zwischenspeichern
  hOldPen = SelectObject(Me.hdc, hPen)
 
  ' Halbkreis zeichnen
  Retval = Chord(Form1.hdc, 10, 10, Me.ScaleWidth - 20, Me.ScaleHeight -  _
  20, (Me.ScaleWidth - 20) / 2, 10, (Me.ScaleWidth - 20) / 2,  _
  Me.ScaleHeight - 20)
 
  ' Alten Pen wiederherstellen
  Call SelectObject(Me.hdc, hOldPen)
 
  ' erstellten Pen zerstören
  DeleteObject hPen
End Sub