[ Φόρμες ] Κυλιόμενο κείμενο

[artchrist73]

Καλησπέρα σε όλους τους φίλους !!
Πως μπορώ να βαλω ένα κυλιόμενο κείμενο με το που ανοίγει η φόρμα να αρχίζει να δείχνει από πάνω προς τα κάτω το κείμενο?

[Tasos]

Καλησπέρα σε όλους!

Πως μπορώ να βάλω ένα κυλιόμενο κείμενο με το που ανοίγει η φόρμα να αρχίζει να δείχνει από πάνω προς τα κάτω το κείμενο?

Αντώνη, πρέπει να μας πεις αν το κείμενο θα είναι κατακόρυφο ή οριζόντιο.

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

Περιμένουμε νέα σου!

Φιλικά

Τάσος

[Chris]

Αντώνη καλησπερα
Δες εδω νομιζω πως θα σε βοηθήσει Scrolling Message

[artchrist73]

Ας υποθέσουμε ότι το κείμενο κινείται κανονικά από κάτω προς τα πάνω

[Tasos]

Αντώνη, δημιούργησε μια ετικέτα με το όνομα LblScrollText
και στη λειτουργική μονάδα της φόρμας βάλε:

Private ScrollText As String

Private Sub Form_Timer()
    ScrollText = Mid(ScrollText, 2, (Len(ScrollText) - 1)) & Left(ScrollText, 1)
    Me.LblScrollText.Caption = ScrollText
End Sub

Private Sub Form_Load()
    ScrollText = "Παράδειγμα κυλιόμενου κειμένου στην Access" & Space(15)
    Me.TimerInterval = 300
End Sub

Φτιάξε τις διαστάσεις της ετικέτας έτσι που να χωράει ένας χαρακτήρας στο πλάτος.
Μπορείς αν θέλεις να αλλάξεις την ιδιότητα της ετικέτας "Κατακόρυφο" σε Ναι.

Φιλικά

Τάσος

[alex]

Αντώνη καλημέρα
Καλημέρα και σε όλη την παρέα.Είναι το ίδιο με αυτό που εγραψε ο Τάσος απλά είναι ενσωματωμένο και δουλεύει.Επειδή το είχα έτοιμο και το χρησιμοποιώ στην βάση μου .Αυτο που ζητούσες το ανεβάζω με ZIP.
Alex

[artchrist73]

ευχαριστω !!!!!!!!!!!