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

[gfevran]

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

[gfevran]

Αρχική Δημοσίευση από gfevran

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

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

[Tasos]

Καλησπέρα!

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

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

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

Τάσος

[gfevran]

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

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