[VB6] Rotation d'un contrôle

**Asdorve** · 09/06/2006, 13h13

Bonjour,

Est-il possible de faire pivoter un contrôle sur lui-même?

merci

**Vesta** · 09/06/2006, 13h18

Je pense pas que ce soit possible... Peut etre avec des API mais j'en doutes...

**jmfmarques** · 09/06/2006, 13h45

A voir à voir ...

Dis-nous tout, ami asdorve... C'est quoi, ce contrôle ? et que cherches-tu à faire ?

Vas-y ! Ne crains rien... on est là pour écouter et te dire si oui ou non... c'est tout

**Asdorve** · 09/06/2006, 13h50

jmf, figure toi que j'étais sur ma pause et que je me suis posé la question.

je propose ce petit bout de code, dites-moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
 
'On appuie sur "r"  du clavier (comme Rotation)
 
Private Sub Form_KeyPress(KeyAscii As Integer)
 
    If KeyAscii = 114 Then
        Call Rotation
    End If
 
End Sub
 
Private Sub Rotation()
 
'Je récupère la position des bords du bouton par rapport à la form
X = Command1.Left
Y = Command1.Top
 
'Je récupère les dimensions du bouton
Lo = Command1.Width
La = Command1.Height
 
'Je détermine les coordonnées du centre du bouton (intersection des 2 diagonales
 
Ox = X + Lo / 2
Oy = Y + La / 2
 
'Je recalcule la position par rapport aux bord de la form et au centre du bouton
'pour avoir une rotation par rapport au centre du bouton
 
X2 = Ox - La / 2
Y2 = Oy - Lo / 2
 
 
Command1.Left = X2
Command1.Top = Y2
'Je redimmensionne le bouton
 
Command1.Width = La
Command1.Height = Lo
End Sub

**Asdorve** · 09/06/2006, 14h05

ça devrait marcher avec n'importe quel contrôle... qui se nomme Command1 (pas forcément un bouton)

**jmfmarques** · 09/06/2006, 14h12

Oui asdorve... mais...
Une rotation est une rotation : pas simplement ce "basculement"...
Essaye avec un angle de 25° et reviens

On t'attend !

**Asdorve** · 09/06/2006, 14h13

chaque chose en son temps, jmf, on est pas pressé, non?

**jmfmarques** · 09/06/2006, 14h17

Non... pas pressé du tout... pas pressé ...
Mais attention : on attendra (bien évidemment) un contrôle ayant subi une rotation et pas une image de contrôle ayant subi une rotation dans une picturebox, d'accord ?

**Asdorve** · 09/06/2006, 14h19

j'aime pas quand tu parles comme ça, ça fait peur..

**jmfmarques** · 09/06/2006, 14h25

Faut pas avoir peur, asdorve,... Je suis juste gourmand (pas un ogre)...
Allez ! Tu vas perdre ton temps .. sauf à faire des calculs épouvantables à chaque click ou survol de la souris, selon l'évènement...

**Asdorve** · 09/06/2006, 14h26

possible, mais j'aime les calculs...

Mais y'a bien un moyen de trouver quelque chose, non?

**jmfmarques** · 09/06/2006, 14h27

Vas-y ! Jette-toi !
On ramasse...

**Asdorve** · 09/06/2006, 14h28

mouais... en tout cas tu te mouilles pas....

**jmfmarques** · 09/06/2006, 14h40

Ben non !
J'ai déjà donné (chat échaudé craint l'eau chaude) ...
Allez ! Au boulot ! En silence... jusqu'au bout... On t'attend !

**Asdorve** · 09/06/2006, 14h42

jm'y penche ce we.

**Asdorve** · 12/06/2006, 08h29

salut à tous,

je me suis penché sur la question ce we est j'ai deux équations générales qui permettent de trouver les coordonnées de points après une rotation.

Maintenant il y a un problème: y-a-t-il une propriété pour les contrôles qui permette de donner les coordonnées des 4 points aux extrémités du contrôle?

**jmfmarques** · 12/06/2006, 08h58

Bonjour asdorve,

T'es sur d'être réveillé ?

coin supérieur gauche : controle.left, controle.top
coin supérieur droit : controle.left + controle.width, controle.top
coin inférieur gauche : controle.left, controle.top + controle.height
coin inférieur droit : controle.left + controle.width, controle.top + controle.height

**jmfmarques** · 12/06/2006, 09h26

Tiens , si celà peut t'aider dans tes calculs (inspire-t-en).
Tu es servi en primeur, mais n'en abuse pas

**Asdorve** · 12/06/2006, 09h41

salut jmf,

oui réveillé, j'essaye un truc et je te dis pourquoi j'ai posé cette question.

Pour ton fichier joint, c'est des éq similaire que j'ai trouvé.