Discussion :

[Namson]

Bonjour à tous...je programme sous VB.net 2008 /XP ...Je voulais dessiner un cercle...et après quelques recherches j'ai télécharger le Power Pack 2005....
car au lieu d'écrire les codes, j'ai voulu utiliser les anciennes techniques de VB6. ok je voudrais agrandir la taille de mon dessin en entrant une valeur. Et aussi le faire changer de position selon des valeurs definies. J'ai ecris ce code:

Code :

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

1
2
3
4
5
6
 
'pour agrandir la taille
Me.Oval.Size.Width = Me.Oval.Size.Width + 30
'pour le faire deplacer selon l'axe X et Y
Me.Oval.Location=new Point(Me.Oval.Location.X=104,0)
Me.Oval.Location=new Point(Me.Oval.Location.Y=0,91)

mais je recois cette erreur pour l'agrandisssemnt de la taille :

Code :

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

1
2
 
Error	1	Expression is a value and therefore cannot be the target of an assignment.

ok aussi pour le deplacement, cela ne deplace pas selon l'axe de X seulement selon l'axe de Y. je ne sais pas qu'est ce qui ne vas pas? Merci pour votre aide...Merci

[Pol63]

Code :

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

1
2
Me.Oval.Location=new Point(Me.Oval.Location.X=104,0)
Me.Oval.Location=new Point(Me.Oval.Location.Y=0,91)

Me.Oval.Location=new Point(104,91) ??

[tomlev]

Cette instruction est incorrecte :

Code :

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

Me.Oval.Size.Width = Me.Oval.Size.Width + 30

En effet, Size est un type valeur, donc la propriété Size te renvoie une copie de la valeur et non une référence. Donc quand tu modifies le Width, tu ne modifies en fait qu'une copie de la taille de l'ovale... Il faut écrire ça :

Code :

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

Me.Oval.Size = New Size(Me.Oval.Size.Width + 30, Me.Oval.Size.Height)

Pour la suite... comme le fait remarquer sperot51, ce que tu as écrit n'a pas vraiment de sens... d'ailleurs je comprends pas exactement ce que tu veux faire

[Namson]

Code :

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

Me.Oval.Size = New Size(Me.Oval.Size.Width + 30, Me.Oval.Size.Height)

OK merci bien a Tomlev pour la solution...je n'avais pas vraiment penser à cette option...ok Quant à Sperot51, j'ai du genre un cercle à une location xy à (0,0) et lorsque je change les coordonnées de xy ( 200, 450) je voudrais que mon cercle se positionne à cette location.
c'est pour celà que j'ai essayé ce code:

Code :

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

1
2
3
 
Me.Oval.Location=new Point(Me.Oval.Location.X=104,0) ' pour l'abscisse X
Me.Oval.Location=new Point(Me.Oval.Location.Y=0,91) ' pour l'ordonnée Y

puisque quand j'écris :

Code :

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

1
2
 
Me.Oval.Location=new Point(Me.Oval.Location =104,91) ' du genre pour les 2 axes

Je recois un message d'erreur .
OK jespère que vous avez compris ma préoccupation.
Merci pour votre aide

[Pol63]

comme au début

Code :

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

Me.Oval.Location=new Point(Me.Oval.Location =104,91)

cette ligne ne veut rien dire en vb, le compilateur ne peut pas l'interpreter

new point demande 2 valeurs
sans "=" dedans !!

Code :

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

Me.Oval.Location=new Point(104,91)

[Namson]

OoooooK, je comprends mieux...Desolé je ne suis qu'un pure novice en VB ...Merci beaucoup...OK....pourrais- tu m'indiquer des liens ou je pourrai apprendre le coté graphique de VB.net? Merci beaucoup

[Pol63]

http://plasserre.developpez.com/vsommair.htm


y a de quoi lire pendant des heures ...