Ταυτόχρονη σκίαση δύ πλαισίων κειμένων

[alex]

Καλημέρα
γνωρίζει κάποιο μέλος πως γίνεται η ταυτόχρονη σκίαση δύο πλαισίων κειμένου..Παράδειγμα να σκιάσω μια πρόταση σε Textbox1 και ταυτόχρονα στο Textbox2 να εμφανίζει και εκεί την σκίαση.

[alex]

Καλημέρα,
στο παράδειγμα που ανέβασα εν μέρη γίνεται το ζητούμενο που ζητούσα.
Όταν έχω το ίδιο κείμενο και στα δύο και σκιάσω ένα μέρος κειμένου στο πρώτο textbox1 τότε με ένα κουμπί εντολής γίνεται σκίαση στο ίδιο μέρος κειμένου στο δεύτερο textbox2.
Επειδή πρόκειτε όμως για μεταγλώττιση και τα κείμενα είναι διαφορετικά αλλά με ισοτιμία γραμμάτων δεν υπάρχει θέμα με τους χαρακτήρες.Υπάρχει αντιστοιχία χαρακτήρων.(Δηλαδή η μεταγλώττιση γίνεται γραμμα-γράμμα)
Οπότε για να λυθεί το θέμα πρέπει να γίνεται επιλογή χαρακτήρων και όχι λέξεων.

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

Private seltxt As String

Private Sub TextBox1_LostFocus()
    seltxt = TextBox1.SelText
End Sub

Private Sub btnFind_Click()
    i = InStr(1, TextBox2, seltxt, vbTextCompare) 
    If i Then
        TextBox2.SetFocus
        TextBox2.SelStart = i-1
        TextBox2.SelLength = Len(seltxt)
    End If
End Sub

Προσπάθησα με τις συναρτήσεις παρακάτω αλλά δεν το κατάφερα

SelLength - επιστροφές ή ορίζει τον αριθμό των χαρακτήρων που επιλέγονται.

SelStart - επιστρέφει ή ορίζει το σημείο εκκίνησης του κειμένου που επιλέγονται? υποδεικνύει
τη θέση του σημείου εισαγωγής αν δεν έχει επιλεγεί κείμενο.

SelText - επιστρέφει ή ορίζει το string που περιέχει το επιλεγμένο κείμενο? αποτελείται από μια συμβολοσειρά μηδενικού μήκους ( ""), εάν δεν έχουν επιλεγεί χαρακτήρες.

Υ/Γ; Στο παράδειγμα που επισυνάπτω έχει 2 εγγραφές στην πρώτη τα κείμενα είναι διαφορετικά και είναι αυτό που θέλω να πετύχω .
Στη δεύτερη εγγραφή τα κείμενα είναι ίδια έτσι δουλεύει εάν κάνεις μιά επιλογή κειμένου και με κουμπί εντολής επιλέγεται ακριβώς το αντίστοιχο ίδιο κείμενο που εάν γίνει και με μια παλέτα χρωμάτων μπορείς να εντοπίζεις ένα απόσπασμα κειμένου και να αλλάζει χρώμα το επιλεγμένο κείμενο .

[Meteora]

Καλησπέρα,...

Αλέξανδρε, ρίξε μια ματιά σε μια μικρούλα αλλαγή που έκανα, ώστε να "μαυρίζει" και στο textbox2 όταν το κείμενο είναι ανόμοιο.
Ίσως να επιδέχεται και άλλες διορθώσεις που να μπορούμε να πλησιάσουμε με τις λιγοστές γνώσεις μας... Απ΄ότι είδα το πάει γράμμα-γράμμα και αυτό σημαίνει ότι δεν μπορεί να ταιριάξει τα μαυρίσματα, όταν -για παράδειγμα-το ελληνικό "ου" αντιστοιχεί σε ένα γράμμα "U". Επιπλέον είδα ότι άμα μαυρίσεις τη λέξη "χρόνος" που υπάρχει στο TextBox1 δυο φορές, τότε καταλαβαίνει ότι μαύρισες την πρώτη από τις δυο, σε κάθε περίπτωση.

Δεν έχω ιδέα, αν είσαι στην Άρτα, στην Αλεξανδρούπολη, αν ταξιδεύεις, ... Όπου και αν είσαι, να έχεις μια ωραία χρονιά και να συνεχίσεις να προσφέρεις στο χώρο της εκπαίδευσης σπουδαία πράγματα. Παρακολουθώ το blog του σχολείου σου και καμαρώνω.

Φιλικά / Νίκος

[alex]

Νίκο καλησπέρα,
καταρχήν σε ευχαριστώ για όλα και για τα καλά σου λόγια. Προσπαθούμε να κάνουμε το καλύτερο.
Νίκο όπως ξέρεις το πρόγραμμα αυτό που έκανα το συνοδεύω και με ένα βιβλίο το οποίο παρουσίασα στο Αριστοτέλειο πανεπιστήμιο.
Τώρα ετοιμάζω το δεύτερο και προσπαθώ να κάνω το πρόγραμμα μέθοδο αυτο διδασκαλίας braile.
Προσπαθώ να κάνω κάτι που να είναι καινοτόμο και να μην υπάρχει.
Μην νομίζεις και μένα οι γνώσεις μου είναι άριστες.
Έχω πολλές ελλείψεις στην VBA .Σε μερικά κομμάτια που έχω ασχοληθεί περισσότερο τα γνωρίζω καλύτερα. Στην περίπτωση με την σκίαση προσπαθούσα να την εντάξω στο δεύτερο πρόγραμμα αλλά πάλι υπάρχει θέμα μάλλον θέλει λέξη - λέξη για να είναι το σωστό.Γιατί πάλι με τους χαρακτήρες υπάρχει πρόβλημα λόγω του ότι στην Ελληνική έχουμε διφθόγγους όπως προαναφέρεις το "ου" είναι δύο χαρακτήρες που στη μεταγλώττιση είναι ένας το "U" φαντάσου εάν είναι μια σελίδα μεταγλώττιση πόσο μακριά θα ξεφύγει η σκίαση.
Το οποίο "U" εγώ αλλάζω την γραμματοσειρά σε Braille και αντιστοιχεί σε κουκκίδες. Το είχα αφήσει για ένα μήνα λόγω του σχολείου γιορτές κλπ
Γιατί κατάλαβα ότι λέξη λέξη πρέπει να γίνει η σκίαση διαφορετικά δεν θα δείχνει το σωστό. Οπότε κάτι τέτοιο πρέπει να κάνω.
Σε ευχαριστώ και πάλι.Είδα το φούρνο σου είσαι καλός πετράς τελικά και μάστορας.
Είμαι Άρτα για νέο Χρόνο σου εύχομαι Χρόνια Πολλά !!Καλή Χρονιά!! Ευτυχισμένο το νέο έτος.
Επίσης εύχομαι σε όλες και όλους τους φίλους του φόρουμ Καλή Χρονιά με υγεία.