Εμφάνιση ενός μόνο μηνύματος
  #3  
Παλιά 31-01-14, 15:35
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλησπέρα!

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

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

Κώδικας:
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

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 31-01-14 στις 15:50.
Απάντηση με παράθεση