Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Rotation d'une Ellipse

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 441 fois

Contenu du snippet

Const GM_ADVANCED As Long = 2
Const Pi          As Single = 3.141593

Private Type XForm
    eM11 As Single
    eM12 As Single
    eM21 As Single
    eM22 As Single
    eDx As Single
    eDy As Single
End Type

Private Type RectAPI
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Type PointAPI
    X As Long
    Y As Long
End Type

Dim OldXForm  As XForm
Dim MyXForm   As XForm
Dim WndArea   As RectAPI
Dim OldOrg      As PointAPI
Dim OldMode   As Long
Dim RotAng     As Single
Dim RotRad     As Single

Private Declare Function SetViewportOrgEx Lib "gdi32" (ByVal hDC As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As PointAPI) As Long
Private Declare Function SetGraphicsMode Lib "GDI32.dll" (ByVal hDC As Long, ByVal iMode As Long) As Long
Private Declare Function GetWorldTransform Lib "GDI32.dll" (ByVal hDC As Long, ByRef lpXform As XForm) As Long
Private Declare Function SetWorldTransform Lib "GDI32.dll" (ByVal hDC As Long, ByRef lpXform As XForm) As Long
Private Declare Function GetClientRect Lib "User32.dll" (ByVal hWnd As Long, ByRef lpRect As RectAPI) As Long

Private Sub Timer1_Timer()
    RotAng = RotAng + 2
    RotRad = (RotAng / 180) * Pi
    MyXForm.eM11 = Cos(RotRad)
    MyXForm.eM12 = Sin(RotRad)
    MyXForm.eM21 = -MyXForm.eM12
    MyXForm.eM22 = MyXForm.eM11
    Me.Cls
    Call SetViewportOrgEx(Me.hDC, WndArea.Right \ 2, WndArea.Bottom \ 2, OldOrg)
    Call SetGraphicsMode(Me.hDC, GM_ADVANCED)
    Call SetWorldTransform(Me.hDC, MyXForm)
    Me.Line (-1500, 0)-(1500, 0), vbBlue
    Me.Line (0, -750)-(0, 750), vbBlue
    Me.Circle (0, 0), 1500, vbRed, , , 0.5
End Sub

'   utilisation: il faut un Timer
    Call GetClientRect(Me.hWnd, WndArea)
    Timer1.Interval = 50
    Timer1.Enabled = True



Compatibilité : VB6

A voir également

Ajouter un commentaire

Commentaires

Votre évaluation

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.