Office Development

Απ: Συντεταγμένες σημείου κλικ

KoYkoY — Fri, 12 May 2006 15:52:49 GMT

Τέλειο! Καταπληκτικό! Εύκολο!

Πολλά πολλά ευχαριστώ

Απ: Συντεταγμένες σημείου κλικ

evliatsas — Fri, 12 May 2006 04:45:53 GMT

Δοκίμασε να πάρεις το Χ καi Y ώς εξής:

Μέσα στο Event που παρακολουθείς δώσε

myX = Me.CurrentSectionLeft

myY = Me.CurrentSectionTop

όπου myX και myY είναι οι global μεταβλητές που κρατάς για να δώσεις τις αρχικές συντεταγμένες στην δεύτερη φόρμα που ανοίγεις.

Ουσιαστικά θα πάρεις τις συντεταγμένες τις οθόνης από το την Current Row και δεν θα χρειαστεί να κρατάς το RowID ή να ανησυχείς για το Scroll.

Απ: Συντεταγμένες σημείου κλικ

KoYkoY — Fri, 12 May 2006 04:07:58 GMT

Παιδιά ευχαριστώ για τις συμβουλές.. το κυριότερο απ' όλα είναι ότι με κάνουν να σκεφτώ κι' αλλιώς...

Tα συμβάντα GotFocus και Click για το textbox φυσικά και υπάρχουν και στην Access... αυτό έλειπε! ....αλλά το συμβάν Mouse_Left_Button_Down δεν το βλέπω.
Σκέφτηκα λοιπόν να κάνω το εξής:

Private Sub txtChooce_GotFocus()

yTopPosition = 0
yTopPosition = lngCurrentRecord - 1 'σύνολο εγγραφών μείον της τρέχουσας
If yTopPosition > 0 Then
    yTopPosition = yTopPosition * 1170 'επί το ύψος της λεπτομέρειας
    yTopPosition = yTopPosition + 3215 '+ το ύψος της κεφαλίδας
    yTopPosition = yTopPosition + 113 '+ το ύψος της λεπτομέρειας της τρέχουσας εγγραφής μέχρι το textbox
    yTopPosition = yTopPosition + 330 '+ το ύψος του textbox
Else
    yTopPosition = 3215 '+ το ύψος της κεφαλίδας
    yTopPosition = yTopPosition + 113 '+ το ύψος της λεπτομέρειας της τρέχουσας εγγραφής μέχρι το textbox
    yTopPosition = yTopPosition + 330 '+ το ύψος του textbox
End If

End Sub

Ε λοιπόν αυτό δεν λειτουργεί σωστά γιατί εμφανίζει τη δεύτερη φόρμα κάτω από το textbox με ένα τεράστιο διάστημα αλλά τουλάχιστον φαίνεται σαν να πρόκειται για ένα σταθερό σημείο.

Έστι χρειάζεται μία επιπλέον διόρθωση για να εμφανιστεί η δεύτερη φόρμα στο σημείο που θέλω.
yTopPosition = yTopPosition - 300 'διόρθωση

Τώρα γίνεται ικανοποιητικό αλλά ξανά όταν μετακινούμε μεταξύ των εγγραφών δημιουργείται μια πολύ μικρή διαφορά μεταξύ του textbox και του σημείου εμφάνισης της δεύτερης φόρμας. Η διαφορά αυτή ολοένα μειώνει το διάστημα μεταξύ του textbox και της δεύτερης φόρμας καθώς μεγαλώνει η lngCurrentRecord . Στην πέμπτη -έκτη εγγραφή αρχίζει να καβαλά το textbox.

Οπότε χρειάζεται μία επιπλέον διόρθωση στην περίπτωση που η lngCurrentRecord > 0.
yTopPosition = yTopPosition + (6 * lngCurrentRecord) 'επιπλέον διόρθωση

Λίγο μπακαλίστικο αλλά αφού λειτουργεί...

Όμως γιατί όλες αυτές οι διορθώσεις θα πρέπει να υπάρχει μία εξήγηση.....

Τέλος πάντων.. τί γίνεται τώρα όταν μετακινούμε σε μία εγγραφή αρκετά παρακάτω με το scrollbar; Υπάρχει κάποιος τρόπος να μετρήσω κατά πόσο και που μετακινήθηκα;

Απ: Συντεταγμένες σημείου κλικ

evliatsas — Thu, 11 May 2006 15:19:03 GMT

KoYkoY wrote:

Γενικά ποιος είναι ο τρόπος για να ανιχνεύσουμε τις συντεταγμένες του σημείου της οθόνης όπου ο χρήστης κάνει κλικ;

Ο γενικός τρόπος είναι να πάρεις τις συντεταγμένες τις οθόνης που δίνει το Mouse_Left_Button_Down Event.

Δοκίμασε να να γεμίσεις την μεταβλητή σου σ'αυτό το Event και όχι στο Mouse_Move (το οποίο δίνει συνέχεια τιμή).

Κανονικά θα έπρεπε να διαβάζεις το Position του Control στο οποίο έκανες Enter,

δηλ. κάτι σαν : myTop = myTextBox.Top ,

αλλά η VBA δεν σου δίνει την δυνατότητα αυτή για continuous forms, καθώς διαβάζει πάντα τις συντεταγμένες του Control που δημιούργησε στο πρώτο Row.

Απ: Συντεταγμένες σημείου κλικ

Panagiotis Kefalidis — Thu, 11 May 2006 09:23:14 GMT

Κανονικά θα έπρεπε να πιάσεις event όπως GotFocus , ή mouseClick πάνω στο textbox..Δυστυχώς όμως δεν ξέρω εαν υπάρχουν στην Access αυτά τα event στο συγκεκριμένο control..

Συντεταγμένες σημείου κλικ

KoYkoY — Wed, 10 May 2006 23:18:03 GMT

Σε μία βάση δεδομένων της ms Access έχω δημιουργήσει μία φόρμα με καθορισμό της ιδιότητας DefaultView=1 (continuous forms).

Εκείνο που προσπαθώ να κάνω είναι όταν ο χρήστης μπαίνει σ' ένα textbox κάποιας εγγραφής τότε μία άλλη φόρμα να ανοίγει ακριβώς κάτω από το textbox εισόδου.

Στο συμβάν Enter του textbox εμφανίζω τη φόρμα και χρησιμοποιώ τη μέθοδο Move(Left, Top, Width, Height) για να μετακινήσω τη φόρμα στο σημείο που θέλω όπου Top μια δημόσια μεταβλητή που παίρνει τιμή στο συμβάν Λεπτομέρεια_MouseMove όπως:

Private Sub Λεπτομέρεια_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
yTopPosition = Y

yTopPosition=yTopPosition + Ύψος Κεφαλίδας Φόρμας

yTopPosition=yTopPosition + 520

End Sub

Ο παραπάνω τρόπος αρκετές φορές εμφανίζει τη φόρμα στο σωστό σημείο άλλες πάλι σε άσχετο σημείο. Μπορεί να μου πει κάποιος τί δεν κάνω σωστά; Γενικά ποιος είναι ο τρόπος για να ανιχνεύσουμε τις συντεταγμένες του σημείου της οθόνης όπου ο χρήστης κάνει κλικ;