Discussion :

[Attila54]

Bonsoir,

Comme un bon dessin vaut mieux qu'une mauvaise explication .......



voila donc une petite partie de mon appli

la textbox sous le button exit affiche une valeur calculée entière comprise entre 0 et 360 (unité est le degré)

Lorsque je clique sur le bouton database, la valeur de la textbox se calcule et je voudrais que l'image (contenue dans une picturebox) pivote de la valeur en degrés de la textbox

les chiffres en rouge sont le repère

exemple : ma valeur de textbox = 90 ferait tourner mon image d'un quart de tour vers le haut de manière à aligner le 0 sur le 90

j'ai cherche mais j'avoue ne pas y être arrivé du tout ( a part mettre 360 images décalées de 1 degré et jouer sur les .visible ).

A vrai dire, je ne vois même pas comment aborder le sujet

Merci de vos conseils

[Pol63]

dans system.drawing et system.drawing.drawing2D il y a tout ce qu'il faut pour manipuler des images et du rendu, avec entre autre rotatetransform

[MABROUKI]

bonjour attila
Utilise matrix.rotateAt(angle, pointCentreRotation) et un bmp qui contient ton image.
voici un exemple pour t'edifier sur la demarche à suivre:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Imports System.Drawing.Drawing2D
 
Public Class Form1
	Private angleRotation As Integer
	Private bmp As Bitmap
 
	Public Sub New()
 
		' Cet appel est requis par le Concepteur Windows Form.
		InitializeComponent()
 
		' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
		'un picbox
		Me.PictureBox1.Dock = DockStyle.Fill
		'un trackbar
		Me.TrackBar1.Dock = DockStyle.Left
 
		Me.PictureBox1.Image = Nothing
		'pick image from resource 
		bmp = My.Resources.Nenuphars
 
		Me.TrackBar1.Minimum = 0
		Me.TrackBar1.Maximum = 360
		Me.TrackBar1.SmallChange = 1
		Me.TrackBar1.LargeChange = 5
 
		'initialise l'angle de rotation
 
		Me.angleRotation = 15
		Me.TrackBar1.Value = Me.angleRotation
 
	End Sub
 
 
 
	Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
		If bmp Is Nothing Then Return
 
 
		Dim g As Graphics = e.Graphics
		Dim myMatrix As Matrix = New Matrix
		g.PageUnit = GraphicsUnit.Pixel
		'calcule le centre de rotation 
		Dim centerBmp As Point = New Point(bmp.Width / 2, bmp.Height / 2)
		myMatrix.RotateAt(Me.TrackBar1.Value, centerBmp)
 
		g.Transform = myMatrix
		g.DrawImage(bmp, 0, 0)
 
	End Sub
 
	Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
		Me.PictureBox1.Invalidate()
	End Sub
 
 
End Class

bon code............

[Attila54]

merci a vous deux, cela fonctionne parfaitement