Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Φόρμες ] Κυλιόμενο κείμενο (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1180-kyliomeno-keimeno.html)

artchrist73 29-05-11 15:44
Κυλιόμενο κείμενο
 
Καλησπέρα σε όλους τους φίλους !!
Πως μπορώ να βαλω ένα κυλιόμενο κείμενο με το που ανοίγει η φόρμα να αρχίζει να δείχνει από πάνω προς τα κάτω το κείμενο?
:fryingpan::fryingpan:

Tasos 29-05-11 21:15
Καλησπέρα σε όλους!

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

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

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

Φιλικά

Τάσος

Chris 29-05-11 21:20
Αντώνη καλησπερα
Δες εδω νομιζω πως θα σε βοηθήσει Scrolling Message

artchrist73 29-05-11 22:12
Ας υποθέσουμε ότι το κείμενο κινείται κανονικά από κάτω προς τα πάνω

Tasos 30-05-11 00:00
Αντώνη, δημιούργησε μια ετικέτα με το όνομα 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 30-05-11 10:55
1 Συνημμένο(α)
Αντώνη καλημέρα
Καλημέρα και σε όλη την παρέα.Είναι το ίδιο με αυτό που εγραψε ο Τάσος απλά είναι ενσωματωμένο και δουλεύει.Επειδή το είχα έτοιμο και το χρησιμοποιώ στην βάση μου .Αυτο που ζητούσες το ανεβάζω με ZIP.
Alex

artchrist73 30-05-11 18:25
ευχαριστω !!!!!!!!!!!


Η ώρα είναι 12:58.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2