Clock in VB6

i need to do a clock that is in time with the system clock but has hours minutes and seconds and are in separate textboxes. can anyone help me out with the code?

I saw that by the post by by mikeee they had this code

Code:

---

      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
          TextBox1.Text = DateTime.Now.Hour.ToString
 
          TextBox2.Text = DateTime.Now.Minute.ToString
 
          TextBox3.Text = DateTime.Now.Second.ToString
 
      End Sub

---

Here is the original post

Now that code does not work on VB6. What can I do to put it on VB6?


Also, How hard would it be to change a VB6 program to a VB2005 program? I have another program in VB6 that is basically buttons playing sounds using MMControl. How can I convert it to VB6?

thats a vb6 question.

to upgrade a vb6 project to .net, open it using .net
there might be some upgrade issues you have to sort out

Thread Moved

txtHour.Text = Format(Now, "HH")
txtMin.Text = Format(Now, "MM")
txtSec.Text = Format(Now, "SS")

Another option:

Code:

---

txtHour.Text = Hour(Now)
txtMin.Text = Minute(Now)
txtSec.Text = Second(Now)

---

Quote:

---

Originally Posted by airman00

Also, How hard would it be to change a VB6 program to a VB2005 program?

---

You wouldn't change or convert it. You would totally rewrite it.

Quote:

---

Originally Posted by Hack

You wouldn't change or convert it. You would totally rewrite it.

---

Doesn't Microsoft supply a conversion utility that will convert most of the code?

Quote:

---

Originally Posted by MartinLiss

Doesn't Microsoft supply a conversion utility that will convert most of the code?

---

They certainly do, however as always the problem with using any kind of wizard is reliability. I've yet to find one that is... :ehh:
So the verdict is [IMHO] - manually re-writing is much safer but of course it could be time consuming.

Want to watch the clock tick? Add a timer control:

Code:

---

Dim MyTime As String

Private Sub Form_Load()
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
MyTime = Format$(Now, "hh:mm:ss")
Text1.Text = Left$(MyTime, 2)
Text2.Text = Mid$(MyTime, 4, 2)
Text3.Text = Right$(MyTime, 2)
End Sub

---

Quote:

---

Originally Posted by MartinLiss

txtHour.Text = Format(Now, "HH")
txtMin.Text = Format(Now, "MM")
txtSec.Text = Format(Now, "SS")

---

MartinLiss, "MM" and "mm" is for Month. You have to use "nn" for Minute.
However, you can use "hh:mm" for Hour:Minute.