Παιδια γεια σας ειμαι καινουργιος στο site και γενικοτερα στον προγραμματισμο και εχω καποιες ερωτησεις.
1) Μπορει καποιος να μου πει τον κωδικα που θα μου επιτρεπει τη ρυθμιση της ημερομηνιας και της ωρας χρησιμοποιωντας Spin Buttons και Scroll Bars? Την ωρα την εχω εμφανισει ηδη σε ενα label
2) Πως μπορω να βλεπω την ωρα και οχι μονο την ωρα οταν παταω το check box, δηλαδη να λεει συνεχεια την τρεχουσα ωρα
Οποιος μπορει ας πει, ευχαριστω.

Ως προς την πρώτη ερώτηση θα σου πρότεινα να χησιμοποιήσεις τo DTPICKER που υπάρχει στό VISUALSTUDIO 6.0 με custom format dd/mm/yyyy hh:mm:ss και επιλογή του updown.Δεν χρειάζεται καμμιά χρήση κώδικα.

Ως προς την δεύτερη ερώτηση.Θα βάλεις ένα timer στην φόρμα θά δηλώσεις στά properties του interval=1000 και enabled=true και στό event



Private Sub Timer1_Timer()

DTPicker1.Value = Now()

End Sub

με αυτό τον τρόπο θα κάνει συνέχεια refresh στην τιμή του DTPICKER

---

Ιωάννης Μανουσάκης

Πως θα το βρω στο toolbox-components and then?

Οσο για το δευτερο παιδευτικα αλλα το βρηκα το βραδυ, ευχαριστω για την ανταποκριση.

Ναι είναι στο project components Microsoft windows common controls 2.6 SP4

ουσιαστικά είναι το MSCOMCT2.ocx

---

Ιωάννης Μανουσάκης

Για την ωρα πως ? Αυτο ειναι για την ημερομηνια και δουλευει τελεια.

Ασε δεν πειραζει το βρηκα. Δηλαδη ετσι νομιζω ευχαριστω για ολα, αν προκυψει τιποτα στο λεω. cu

Να σου πω τροποποιω την ωρα αλλα επανερχεται λογω του timer, τι να κανω?

Θελω αμα την τροποποιω να μετραει απο εκει και περα κανονικα.

Κανεις δεν μπορει να βοηθησει ρε παιδια ?

To DTPicker1.Value = Now() δεν είναι καλή λύση.



Προσπάθησε να αυξάνεις το Value του DateTimePicker ανά ένα δευτερόλεπτο κάθε φορά που χτυπάει το Timer Event.

---

Μην αφήνετε τα media να σας "ταΐζουν"!

Πως ? Προσπαθω αλλα δεν ξερω.

Απ' ότι είδα, το DTPicker (από το MS Common Controls Library 2), έχει ένα Property με όνομα "Value", καθώς και άλλα όπως Day, Month, Second, Hour κλπ.



Μπορείς να γράψεις για παράδειγμα:

this.axDTPicker2.Second = this.axDTPicker2.Second + 1.

Το πρόβλημα με αυτήν τη λύση, είναι ότι πρέπει να ελέγχεις για overflows (πχ το Second property να μην πάει στο 61). Η πιο σωστή πρακτική, θα ήταν να αλλάξεις το Value, παίρνοντας το ήδη υπάρχον Value, και προσθέτωντάς του 1 δευτερόλεπτο.



Σε .net περιβάλλον, θα αρκούσε να γράψεις dtPicker.Value.AddSeconds(1), αλλά από VB6 δε θυμάμαι και πολλά πράγματα.

---

Μην αφήνετε τα media να σας "ταΐζουν"!

Την πρωτη λυση την εχω δοκιμασει αλλα δεν πιανει.

Εφάρμοσε τον παρακάτω κώδικα .Στην φόρμα να προσθέσεις εκτός του DTPICKER και ένα checkbox.

Dim currentDateTime As Date



Private Sub Form_Load()

DTPicker1.CustomFormat = "dd/MM/yyyy hh:mm:ss tt"

currentDateTime = Now
DTPicker1.value=currentDateTime
End Sub



Private Sub Check1_Click()

If Check1.Value = True Then

Timer1.Interval = 0

Else

Timer1.Interval = 1000

End If

End Sub





Private Sub Timer1_Timer()





If Check1.Value = False Then

currentDateTime = CDate(CDbl(currentDateTime) + 0.00001)

DTPicker1.Value = currentDateTime

Else

currentDateTime = DTPicker1.Value

End If





End Sub

---

Ιωάννης Μανουσάκης

Θα το δοκιμασω και θα σου πω, ευχαριστω προκαταβολικα που ασχολεισε.

Απλως το ειδα, και εφαρμοσα κατι που ειδα απλως μεσα στο timer εβαλα

DTPicker = DTpicker + 0.00001