καλησπερα σε ολους,

---

This Business Is Binary. You are a 1 or a 0. Alive or Dead.-

Ορίστε το πως η κλάση PictureBox υπολογίζει το Rectangle στο οποίο θα σχεδιάσει την εικόνα σου στην περίπτωση που το SizeMode είναι στην τιμή Zoom,είναι πολύ απλό να καταλάβεις το πως θα πορευθείς με βάση αυτήν την πληροφορία:

    Dim size As Size = Me.image.Size
                Dim num As Single = Math.Min(CSng((CSng(MyBase.ClientRectangle.Width) / CSng(size.Width))), CSng((CSng(MyBase.ClientRectangle.Height) / CSng(size.Height))))
                rectangle.Width = CInt((size.Width * num))
                rectangle.Height = CInt((size.Height * num))
                rectangle.X = ((MyBase.ClientRectangle.Width - rectangle.Width) / 2)
                rectangle.Y = ((MyBase.ClientRectangle.Height - rectangle.Height) / 2)

Όπου rectangle είναι το ClientRectangle αφού αφαιρέσεις το Padding από αυτό.

ειλικρινά με μπέρδεψες περισσότερο....

---

This Business Is Binary. You are a 1 or a 0. Alive or Dead.-

Johny, ο darklynx σου απάντησε αρκετά καλά με κώδικα. Το picturebox υπολογίζει τη σχέση μεταξύ των διαστάσεων της εικόνας και του picturebox και επιλέγει τη μικρότερη.  Μετά πολλαπλασιάζει τις διαστάσεις της εικόνας με αυτή τη σχέση. Αν κάνεις κι εσύ το ίδιο στο δικό σου κώδικα θα έχεις ο ίδιο αποτέλεσμα.

---

Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos

αρα δεν γινεται και πρεπει να κανω εγω το resize και να παρω τα νουμερα? αυτο λες αν καταλαβαινω σωστά,

---

This Business Is Binary. You are a 1 or a 0. Alive or Dead.-

Όχι. Ξαναδιάβασε τί σου λέμε και οι δύο. Ο κώδικας αυτός σου δείχνει πως ΥΠΟΛΟΓΙΖΕΤΑΙ το μέγεθος. Δεν σου είπε κανείς να κάνεις ο ίδιος resize.

---

Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos

hmmmm θα το δοκιμασω, οκ παιδια ευχαριστω.

---

This Business Is Binary. You are a 1 or a 0. Alive or Dead.-

για οποιον ενδιαφερθει ποτε για κατι τετιο στο μελλον να η τελικη function Που εφτιαξα, για δικους μου λογους το return ηθελα να ειναι σε string της μορφης (Χ,Υ) αλλα γενκα δουλευει σωστα.

---

This Business Is Binary. You are a 1 or a 0. Alive or Dead.-

Δεν θα έλεγα ότι αυτός ο κώδικας είναι σωστός ή απλός, ούτε θα τον πρότεινα ως λύση. Καταρχήν, το catch που τρώει τα λάθη είναι ... εγκληματικό. Αν κάτι δεν σου δουλεύει, βρες το και διόρθωσε το, μην το καταπίνεις. Άσε που ένα exception είναι εκατοντάδες φορές πιο αργό από ένα If.

Επίσης, το "just in case" σημαίνει ότι δεν έχεις καταλάβει πως δουλεύει ο κώδικας που έγραψες. Τέλος, μπλέκεις τον υπολογισμό του zoom με τον υπολογισμό των διαστάσεων. Είναι πολύ κακή συνήθεια να μπλέκεις διαφορετικά πράγματα καθώς οδηγεί σε δυσανάγνωστο κώδικα και πιθανά σφάλματα. Εξάλλου, το γεγονός και μόνο ότι έχεις βάλει τα "just in case" και το "Catch το σύμπαν" σημαίνουν ότι συνάντησες προβλήματα τα οποία δεν έλυσες ακόμα.

 

---

Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos

οταν βρω χρονο θα επιστρεψω σε αυτη για βελτιωσεις γνωριζω καποια "αρνητικα" που εχει αλλα για τωρα την δουλεια μου την κανω, δεν ειναι για κατι ετσι κι αλλιος εππαγγελματικο αλλα οπως και να χει ευχαριστω για τις παρατηρησεις.

---

This Business Is Binary. You are a 1 or a 0. Alive or Dead.-

Οφείλω να επισημάνω δύο σοβαρά λάθη που έχει η δική σου υλοποίηση:

α)δεν λαμβάνεις καθόλου υπόψην σου το padding,το οποίο όμως λαμβάνει υπόψην του το PictureBox όταν επιχειρεί να υπολογίσει το Rectangle στο οποίο θα σχεδιάσει την εικόνα.Άρα αν βάλεις padding οτιδήποτε άλλο εκτός από μηδέν θα σου βρει λάθος τιμές.Το σοβαρότερο λάθος όμως είναι το

β)η συνθήκη που υπολογίζει με βάση ποια διάσταση του picturebox πρέπει να γίνει το scaling είναι λάθος.

Εσύ την ορίζεις ως:

                If zoomImageHeight > pBox.ClientRectangle.Height Then
                    ' Use client rectangle height as reference

Το PictureBox όμως δεν κάνει το ίδιο.Αν αναπτύξεις την Math.Min και αποσπάσεις το αντίστοιχο κομμάτι κώδικα με το δικό σου:

If (pBox.ClientRectangle.Width / img.Width) > (pBox.ClientRectangle.Height / img.Height) Then 
     ' Use client rectangle height as reference 

Νομίζω ότι η διαφορά είναι εμφανής και ο μόνος λόγος που δεν το έχεις διαπιστώσει ακόμα (αλήθεια,πως γνωρίζεις ότι οι τιμές που παίρνεις είναι σωστές;) είναι θέμα τύχης περισσότερο.

EDIT:Δεν έκανα τα μαθηματικά μου και την πάτησα.Κράτα μόνο το α) λοιπόν και συγγνώμη για την αβλεψία μου.

σε ευχαριστώ για την παρατήρηση αλλα εχω παντα το pading στο 0. οταν θα αποφασισω να το τελειοποιήσω αργοτερα, φυσικα θα το υπολογιζω και αυτο μετα.

---

This Business Is Binary. You are a 1 or a 0. Alive or Dead.-