VB6 -> VB.net : les problemes PictureBox

Bonjour à tous,

Voici mon problème que je n'arrive pas a résoudre depuis 3 jours.

J'ai développé une centaine de logiciels en VB6 il y a quelques années, je dois aujourd'hui en modifier certains (modification des normes en vigueur)
Mais quand je vois le début des problèmes entre mes appli et les nouveaux OS, qu’apparemment ça va empirer, je me suis dit qu'il était temps de passer a VB.NET.

Donc pour ne pas tout exploser , j'importe morceaux de code par morceaux de code pour voir les changements VB6 <-> VB.NET et corriger au fur et a mesure.

Ça allait plutôt bien jusqu’à la partie graphique , là je nage , toutes les nages , les unes après les autres :weird:

Quand je dis partie graphique en fait imaginez des textbox dans lesquels je mets les dimensions d'un objet.( on va dire un rectangle pour faire simple )
la taille de ma picturebox est fixe , sous VB6 je me servais de picturebox.scalex et picturebox.scaley pour pouvoir afficher mon rectangle

un peu comme si vous avez un picturebox avec une valeur width et height quelconque mais vous attribuez a la valeur scalex=210 et scaley=297 comme ça c'est plus simple, vous dessinez comme sur un format A4


Mais a priori scalex et scaley n'existent plus sous VB.NET alors comment faire....:roll:

Merci a tout ceux qui prendront le temps de nager avec moi :mouarf:

Salut,

ces deux propriétés permettent de définir un ratio qui sera appliqué lorsqu'on renseignera -d'une manière ou une autre- une valeur pour width ou height d'un contrôle, j'ai bon ? Si oui quelle est leur utilité dans le cadre d'un contrôle qui ne sera jamais redimensionné dynamiquement ?

salut,

en fait , en VB6 , picturebox.widht et picturebox.height sont les valeurs "physiques" de mon espace picturebox exprimées en twip.
par defaut picturebox.scalex et picturebox.scaley ont les meme valeurs que picturebox.widht et picturebox.height

exemple , mon picturebox fait 500x500, si je ne touche pas a scalex et scaley , je ne peut pas faire de carré plus grand que 500x500

mais si je dis que scalex=scaley=2000
si je fais un carré de 1000x1000 il prendra un quart de mon picturebox , c'est une sorte d'echelle en fait, je ne sais pas je me fait mieux comprendre ?

Yep, en fait c'est une échelle pour le rendu et pas un ratio constant ;)
Du coup il va falloir faire cette mise à l'échelle à la main ...

Bon ça fait pas bien pro mais j'ai trouvé ce lien qui présente un code qui semble faire le taf.

le problème c'est que normalement pour migrer une appli de vb6 à vb.net il faut la réécrire totalement, pour la coder en vb.net
car vb.net et vb6 n'ont pas grand chose à voir même si la plupart du code peut s'importer
la mauvaise nouvelle c'est que ca demanderait d'apprendre à coder en vb.net, et il y a beaucoup de concepts à voir
la bonne nouvelle c'est qu'il faut en moyenne entre 5 et 15x moins de code pour faire la même chose en vb.net

après la plupart des gens répondent "bullshit" et continuent leur copier coller ...

Bonjour,

Ce n'est pas une réponse directe, mais on dirait que Microsoft a oublié cette partie de son site:

https://msdn.microsoft.com/fr-ca/vstudio/ms788229

Le lien de téléchargement du 1er livre à droite semble toujours fonctionner.

Pour le reste, je n'ai pas regardé plus loin. Je croise les doigts.

Citation:

---

Envoyé par jopopmk

Yep, en fait c'est une échelle pour le rendu et pas un ratio constant ;)
Du coup il va falloir faire cette mise à l'échelle à la main ...

Bon ça fait pas bien pro mais j'ai trouvé ce lien qui présente un code qui semble faire le taf.

---

merci, j'avais peur d'avoir une réponse dans ce genre , tout les post que j'avais lu me rapprochaient de ça :?

Citation:

---

Envoyé par Pol63

le problème c'est que normalement pour migrer une appli de vb6 à vb.net il faut la réécrire totalement, pour la coder en vb.net
car vb.net et vb6 n'ont pas grand chose à voir même si la plupart du code peut s'importer
la mauvaise nouvelle c'est que ca demanderait d'apprendre à coder en vb.net, et il y a beaucoup de concepts à voir
la bonne nouvelle c'est qu'il faut en moyenne entre 5 et 15x moins de code pour faire la même chose en vb.net

après la plupart des gens répondent "bullshit" et continuent leur copier coller ...

---

oui , ça fait plus pro , mais disons que le soft en question m'a pris 6 mois de développement à l"époque donc repartir de zero sur un langage tout neuf 8O

Citation:

---

Envoyé par clementmarcotte

Bonjour,

Ce n'est pas une réponse directe, mais on dirait que Microsoft a oublié cette partie de son site:

https://msdn.microsoft.com/fr-ca/vstudio/ms788229

Le lien de téléchargement du 1er livre à droite semble toujours fonctionner.

Pour le reste, je n'ai pas regardé plus loin. Je croise les doigts.

---

ah merci , j'avais deja trouver une sorte de guide sur ce site, un medecin qui a fait le meme chemin que moi vb6->vb.net , mais de la documentation supplémentaire ne fait pas de mal , encore merci :D

du coup un peu sur le meme theme , existe t-il une sorte de repertoire "officiel" (j'en ai trouvé des fragments pas un bon gros fichier) regroupant les différences entre VB6 et VB.net ?

par exemple j'ai en VB6 :

fichier = App.Path & "\ressources\matiere.txt"

mais "app" n'existe plus en VB.net , par quoi est-il remplacé ???

il y a énormément de différences entre vb6 et vb.net, donc je ne pense pas que ca se trouve, tout comme une liste de différences entre vb6 et c++, 2 langages différents sont différents

cherche dans my.application, ou system.windows.forms.application.current
sinon il y a system.reflection.assembly.getentryassembly.location

plus j'avance avec VB.net plus je me résouds à oublier que passer de VB6 a VB.net serais simplement une evolution.

je croyais avoir 90% de la base VB qu'il me restait 10% a apprendre de nouveau code mais il semble que ce soit l'inverse :aie:

oui oui c'est ce que je disais
vb6 c'est un langage procédural et évènementiel
vb.net ajoute en plus l'orienté objet (héritage, polymorphisme ...), un peu de fonctionnel (linq), de la réflexivité ("inspection du programme par lui même") etc...
c'est un langage beaucoup plus évolué

ce n'est pas une évolution de vb6, à l'origine microsoft a fait un langage nouveau qui ressemble à java (OO managé avec garbage collector pour la libération de la mémoire automatique), sur lequel il a rendu disponible plusieurs syntaxes, qui sont équivalentes entre elles (c#, vb.net ...)
vb.net hérite des mots clés du basic if/then/else ... là où c# utilise if {} ... (comme le C et java) ; ils utilisent tous les 2 le framework .net

après en .net il y a plusieurs framework graphiques, le plus ancien étant windows forms, qui était aussi utilisé par vb6, ce qui fait quelques similitudes supplémentaires

Ah ok , merci pour l'explication ;)

bonjour
Le pseudo c'est quoi "tinmarre" ou "jean nemare"(bande dessine)...Moi aussi !!!

En GDI+ on utilise des matrices de transformation lineaire c'est scarce mais faisable:
- Graphics.Translate(), Graphics.RotateTransform(),Graphics.ScaleTransform()

Les transformations utilises dans GDI+ sont internes .
Qu'est-ce à dire ? Apres transformation on ne peut accede aux nouvelles coords de l'objet dessine....ni ses dimensions...
La mise à l'echelle par exemple ,multiplie les dimensions mais egalement les coords de l'objet dessine....Ainsi un objet "mis à l'echelle" est dessine mais avec decalage de l'origine....

1/ Regle d'or 1 simple :pallier l' inconvenient des Transformations Lineaires(en 2D ou 3D) :
- deplacer l'objet à l'Origine des coords par defaut du Control soit (0,0) pour un picbox
- le mettre à l'echelle dans ton cas (500/2000) soit 0.25
- le deplacer vers son origine initiale...

2/ Regle d'or 2 : utilizer dans GDI+ des Container Graphics qui encadre et limite les transformation aux seuls objets inclus dans le Container (BeginContainer et EndContainer )....

code.vb exemple avec un picturebox droppe sur le form:

Code:

---

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 59 60 61 62 63

Imports System.Drawing.Drawing2D   Public Class Form1 'The user's ellipses. Private UnRectA As New Rectangle(50, 70, 350, 200) Private UnRectB As New Rectangle(140, 160, 300, 150) Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint 'Draw smoothly. Dim gr As Graphics = e.Graphics gr.SmoothingMode = SmoothingMode.AntiAlias   'Raz gr.ResetTransform()     Dim lecon1 As GraphicsContainer = gr.BeginContainer 'debut container1   'Envoi à l'origine des coords gr.TranslateTransform(-UnRectA.X, -UnRectA.Y, MatrixOrder.Append)   'Scale factor de 500/2000=0.25 Dim scaleX As Single = CSng(500 / 2000) Dim ScaleY As Single = CSng(500 / 2000)   gr.ScaleTransform(scaleX, ScaleY, MatrixOrder.Append)   'Renvoi à son origine normale... gr.TranslateTransform(UnRectA.X, UnRectA.Y, MatrixOrder.Append)   'Dessin en vert gr.DrawRectangle(Pens.Green, UnRectA)   gr.EndContainer(lecon1) 'fin container1       Dim lecon2 As GraphicsContainer = gr.BeginContainer 'debut container1   gr.TranslateTransform(-UnRectB.X, -UnRectB.Y, MatrixOrder.Append)   'Scale factor de 500/1000=0.50 scaleX = 0.5 ScaleY = 0.5 gr.ScaleTransform(scaleX, ScaleY, MatrixOrder.Append)   'Rnvoi à son origine normale... gr.TranslateTransform(UnRectB.X, UnRectB.Y, MatrixOrder.Append)   'Dessin gr.DrawRectangle(Pens.Magenta, UnRectB)   gr.EndContainer(lecon2) 'fin container2   'RECTANGLE ORIGINAL A gr.DrawRectangle(Pens.Red, UnRectA)     'RECTANGLE ORIGINAL B gr.DrawRectangle(Pens.Blue, UnRectB) End Sub   End Class

---

bon code......

merci d'avoir développé cette façon de faire, mais j'ai fait une mise a l’échelle systématique, c'était plus simple ,mon niveau en .NET n'est pas assez avancé pour utiliser ta méthode.

mais merci d'avoir pris le temps de la faire, j'y jetterais un coup d’œil dans quelques mois quand mon niveau aura évolué.

nouvelle curiosité :aie:

j'appelle une procédure qui remplie 2 RichTextbox et qui "théoriquement" dessine des graph dans des picturebox en même temps.

le problème est que au lancement de la procédure les graphs ne se dessinent pas, les picture box restent désespéramment vides, j'ai relu mes lignes de codes 1 milions de fois avant d'avoir l'idée de contourner le problème

j'explique

lorsque je clic sur un nouvel onglet de mon appli, cette action lance la procedure en question qui pose probleme, donc premier lancement , les picturebox ne se remplissent pas
j'ai alors mis un bouton provisoire histoire de relancer la procedure une seconde fois en manuel, et là les graphiques se dessinent nickel.

quelqu'un a-t'il une piste ? est-ce que .net a besoin de deplacer le focus ?

les controles se redessinent "souvent"

aussi si on veut ajouter du dessin qui reste sur les controles il faut le faire dans leur event Paint (appelé après ce que le framework a prévu de dessiner pour votre controle (bordure, texte ...))
si on le fait par creategraphics au prochain appel de l'event paint tout est effacé, et votre partie ne sera pas remise

je n'ai pas d'évènement "paint"

et quand je dis que les graph ne se dessinent pas , c'est que le picturebox reste vide meme avec les lignes de codes qui sont censée faire des traits


j'ai effectué une autre procedure avec la meme methode et tout marche nickel, j'ai meme remplacé le picturebox "defaillant" par une copie du picturebox lié a la procedure qui fonctionne mais sans succes , vb6 etait quand meme moins :aie:

Citation:

---

Envoyé par ftinmar

je n'ai pas d'évènement "paint"

---

c'est bien ce que je dis, abonnes toi à l'event paint du picturebox en question (via les combobox en haut de vs)
et ajoute un peu de gymnastique (variables qui disent ce qu'il faut dessiner)

Citation:

---

Envoyé par ftinmar

vb6 etait quand meme moins :aie:

---

.net demande en effet d'avoir un peu plus de niveau pour faire des choses simples, mais c'est parce qu'il permet beaucoup plus que vb6
et il y a aussi le fait que tu connaissais vb6, alors que tu découvres .net ; et vu que ce sont 2 langages différents, c'est normal qu'il y a des méthodes différentes pour faire la même chose

c'est quand meme frustrant de réaliser une procedure qui fonctionne nickel , dans refaire une autre 3 jours plus tard sur la meme methode et que cette fois ça ne marche pas 8O

c'est frustrant de galérer oui, moi ca fait 2 semaines que je galère sur une API qui n'a de doc que le nom
par contre c'est plutot bien de voir que le hasard ne fait pas que ca marche à chaque fois :D

ce que je veux dire par là c'est que si un truc ne marche pas à chaque fois c'est que tu n'as pas tout compris dans ce que tu utilises, il faut un peu comprendre ce qui se passe derrière avant d'avoir des certitudes sur ce qu'on écrit, et ca ne se fait pas en une semaine, et pas forcément en codant non plus (cours ...)

le probleme est que je ne suis pas informaticien et que je developpe ça pour le boulot , au boulot , et que le boss voudrait pas que j'y passe 6 mois :roll:

le genre qui demanderais a un chercheur dans combien de temps il compte trouver parce que faudrait pas y passer trop de temps :roll:

bonjour
Tu as ecris des tonnes de blablah ,montre ton code ...!!!

Citation:

---

Envoyé par MABROUKI

bonjour
Tu as ecris des tonnes de blablah ,montre ton code ...!!!

---

Voilà une intervention fort intéressante. ;) :king:

Bonjour,

Au risque de paraître brutal, ton boss a deux choix:

1) Il te laisse le temps d'apprendre VB.net (Une bonne place pour commencer, ici) et de le faire
2) Il paie une ressource externe pour faire la job

Citation:

---

Envoyé par ftinmar

le probleme est que je ne suis pas informaticien et que je developpe ça pour le boulot , au boulot , et que le boss voudrait pas que j'y passe 6 mois :roll:

le genre qui demanderais a un chercheur dans combien de temps il compte trouver parce que faudrait pas y passer trop de temps :roll:

---

bonjour
De 2 choses l'une :
-ou ton Boss est plus ignare que toi ,et tu peux lui raconteur n'importe quoi...Conclusion :changer de boulot
-ou ton Boss est en train de te mener la malvie ,en connaissance de cause car il sait pertinement que demander à un macon de reparer la tuyautrie à la place du plombier est voué à un echec assure...Conclusion : tu dois t'iinterroger et faire ton examen de conscien au boulot !!!

Citation:

---

J'ai développé une centaine de logiciels en VB6 il y a quelques années

---

Citation:

---

le probleme est que je ne suis pas informaticien

---

Ca m'a un peu choqué :(

Bonsoir,

Le plus fréquent est la neutralisation accidentelle d'une ligne de code. As-tu fait une sauvegarde? Avec un peut de chance tu va retrouver ton appli qui marche !

Citation:

---

Envoyé par casiii

Ca m'a un peu choqué :(

---

Je comprend ce qu'il veut dire ! Je suis un peu dans son cas ! Mais j'adapte pas : je réécrit tout !