Ανανέωση ιστοσελίδας

[Giorgos]

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

Εχω το εξής ερώτημα..

Μπορούμε σε μία φόρμα να έχουμε ένα πεδίο η ετικέτα η οτι άλλο.. το οποίο μπορεί να αναβοσβήνει..? με όχι γρήγορο ρυθμό?

Γιώργος

[editolis]

Μπορείς να χρησιμοποιήσεις "Με το Χρονόμετρο" της φόρμας.

Για παράδειγμα, ας υποθέσουμε ότι έχεις μια ετικέτα που ονομάζεται "lblSomeLabel" σε μια φόρμα. Επίσης έχεις μια ενσωματωμένη δευτερεύουσα φόρμα.

Τώρα ας υποθέσουμε ότι θέλεις να ειδοποιείς το χρήστη με τη λεζάντα που αναβοσβήνει εάν υπαρχουν περισσότερες από 3 εγγραφες.

Έτσι, τοποθετήστε το ακόλουθο κώδικα πίσω από το συμβάν Timer.

'************************************************* **
Private Sub Form_Timer()
With Me.lblSomeLabel
.ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
End With
End Sub
'************************************************* **

Τώρα το μόνο που χρειάζεσε είναι ένα τμήμα κώδικα που ενεργοποιεί το χρονόμετρο. Τοποθετησε αυτόν τον κώδικα στο OnCurrent.

'************************************************* **
Private Sub Form_Current()
If Me![SomeSubForm].Form.RecordsetClone.RecordCount > 3 Then
Me.TimerInterval = 300
Else
Me.TimerInterval = 0
Me.lblSomeLabel.ForeColor = vbBlack
End If
End Sub
'************************************************* ***

'Εαν θελεις Γρηγορο βαλε το Me.TimerInterval = 300
'Εαν θελεις Αργο βαλε το Me.TimerInterval = 3000 (Flash ανα 3 Δευτερολεπτα)

[Giorgos]

Καλημερα Τόλη..

Σε ευχαριστώ πολύ.. το παλεψα εχθες και δουλεψε..!!

Γιώργος

[Jim]

Καλησπέρα Γιώργο δεν το ανεβάζεις να το δούμε και εμείς
Φιλικά Δημήτρης