Forum - VBA Ρύμιση TextBox φόρμας

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Ρύμιση TextBox φόρμας (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2969-rimisi-textbox-formas.html)

Ρύμιση TextBox φόρμας

Καλημέρα σε όλη την παρέα,
Έχω δημιουργήσει μια φόρμα TextBox με scrolbar, όταν εμφανίζω τη φόρμα ο Slider βρίσκεται στο κάτω μέρος
ενώ θα ήθελα να βρίσκεται επάνω προσπάθησα από τις ρυθμίσεις δεν βρήκα κάτι
Θα ήθελα τη βοήθεια σας.
Ευχαριστώ.

Παράθεση:

Αρχική Δημοσίευση από gfevran (Μήνυμα 17187)

παραθέτω συνημμένο

Καλησπέρα!

Γιώργο, μόνο προγραμματιστικά μπορείς να επιλέξεις την περιοχή ενός στοιχείου κειμένου ώστε να προκαλέσεις την κύλιση της μπάρας του προς τα επάνω.

Πέρασε την παρακάτω εντολή στη φόρμα:

Κώδικας:

Private Sub ScrollTextBoxToTop(TextBoxToScroll As MSForms.TextBox)

    If Len(TextBoxToScroll.Text) Then

        TextBoxToScroll.SelStart = 0

        TextBoxToScroll.SelLength = 0

    End If

End Sub

Περισσότερες λεπτομέρειες μπορείς να δεις εδώ: http://msdn.microsoft.com/en-us/libr...=vs.60%29.aspx

Για να τρέξει η παραπάνω εντολή με το φόρτωμα της φόρμας χρησιμοποίησε:

Κώδικας:

Private Sub UserForm_Initialize()

    ScrollTextBoxToTop TextBoxToScroll:=Me.TextBox1

End Sub

Για να τρέξει η παραπάνω εντολή με την εστίαση του πεδίου "TextBox1" χρησιμοποίησε:

Κώδικας:

Private Sub TextBox1_Enter()

    ScrollTextBoxToTop TextBoxToScroll:=Me.TextBox1

End Sub

Γενικότερα η εντολή ScrollTextBoxToTop μπορεί να χρησιμοποιηθεί από οποιοδήποτε σημείο του κώδικα της φόρμας.

Περισσότερες λεπτομέρειες μπορείς να δεις εδώ: http://msdn.microsoft.com/en-us/libr...=vs.60%29.aspx

Τάσος

Τάσο τέλειο,
είσαι η λύση στο πρόβλημα μου!
για άλλη μια φορά σε υπερευχαριστώ για την πολύτιμη βοήθεια σου.

Με εκτίμηση
Γιώργος
.