vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2023
 
zurück
Rubrik: Grafik & Zeichnen22.03.05
Chord-Funktion

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

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  8.504 

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:
hdcErwartet das Handle des Gerätes, auf dem der Halbkreis gezeichnet werden soll.
nLeftRectErwartet die obere horizontale Koordinate des Rechtecks, in dem der Halbkreis gezeichnet werden soll.
nTopRectErwartet die obere vertikale Koordinate des Rechtecks, in dem der Halbkreis gezeichnet werden soll.
nRightRectErwartet die untere horizontale Koordinate des Rechtecks, in dem der Halbkreis gezeichnet werden soll.
nBottomRectErwartet die untere vertikale Koordinate des Rechtecks, in dem der Halbkreis gezeichnet werden soll.
nXRadial1Erwartet die obere horizontale Koordinate des Halbkreises.
nYRadial1Erwartet die obere vertikale Koordinate des Halbkreises.
nXRadial2Erwartet die untere horizontale Koordinate des Halbkreises.
nYRadial2Erwartet 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

Diese Seite wurde bereits 8.504 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2023 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel