Clock in VB6

[airman00]

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

      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?

[.paul.]

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

[RobDog888]

Thread Moved

[MartinLiss]

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

[Joacim Andersson]

Another option:

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

[Hack]

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.

[MartinLiss]

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?

[RhinoBull]

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...
So the verdict is [IMHO] - manually re-writing is much safer but of course it could be time consuming.

[Code Doc]

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

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

[anhn]

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.