vb makes a widget to display the current, time changes 10 times every 1 second

Let's talk about one that changes every two seconds.

Set it directly in the form.

private sub form_load()= time

end sub

private sub timer1_timer()= time

end sub perfect!

Add a method that doesn't use a timer:

do 'while sets the conditions for exiting, otherwise it will run all the time.

format(now(),"hh:mm:ss")doevents

loop

private sub form_load()= "Digital clocks"

trueend sub

private sub timer1_timer()= format(now, "YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY")= format(now, "hh hour nn minutes sss seconds")end sub

It's very simple, but what about your diagram?

In the change event of the text box, write the refresh method of the injector.

VB can use the timer event of the timer control to implement the click event of the execution button.

Timer control, which can be executed at regular intervals by raising a timer event.

Timer event, which occurs after a scheduled time interval for a timer control has passed. The frequency of the interval is stored in the interval property of the control, which specifies the length of time in thousandths of a second.

Instance: option explicit

dim i as long

private sub command1_click()i = i + 1

iend sub

private sub form_load()= 1000

trueend sub

private sub timer1_timer()command1_click

end sub

Start by putting two commandbuttons and a timer control on the form

option explicit

private sub command1 click() This is the click event for command button 1.

msgbox ""

end sub

private sub command2 click() Clicking on command button 2 will close the timer call.

falseend sub

private sub form load() for one second.

end sub

private sub timer1 timer() The click event of command button 1 is invoked every second.

call command1_click

end sub

The program **win7+ runs normally under the hope.

The start of the drawing process is set:

false true

Set at the end of the drawing process:

false true

Make if (change happens) then the condition is not met, I don't know what yours is.

or directly: the start of the drawing process:

Set at the end of the falsedrawing process:

true

1) The system generates 18 clock signals per second — so even if the interval property is measured in milliseconds, the actual accuracy of the interval will not exceed 18th of a second. (i.e. 55ms once), lz you can't reach it if you set 10ms.

2) If you trigger the drawing process during the timer event of the timer control, and the drawing process takes 30 ms, the period for the timer control to trigger the timer event includes 30 ms.

3) The program is executed step by step, apparently the drawing process is triggered in the timer event and a new timer event cycle starts after the process is completed.

It is not counted in the interval until it is executed to the end sub or other exit sub**.

Of course, the drawing is done and then the scan is performed.

Use a timer control to set a refresh once every 1 second, and execute the next record to be displayed.

private sub command1_click() 'Execute the keystrokes.

truetimer1_timer

end sub

private sub command2_click() 'End button.

falseprint "The program runs"

end sub

private sub timer1_timer()static x as long

x = x + 1

print "The program is running ......" & x

The program to be executed is placed here.

end sub

There are three controls involved in the above: command1, command2, and timer1

The vbtimer control shows the duration completed using the timer event of the timer control.

Timer event, which occurs after a scheduled time interval for a timer control has passed. The frequency of the interval is stored in the control's interval

property, it specifies the length of time in thousandths of a second.

An example of a timer event.

This example demonstrates a digital clock. To try this example, you can paste a label control that contains a label control and one.

Timer control form, and then press F5.

private sub form_load ()= 500 'Set the timer interval.

end sub

private sub timer1_timer ()if <>cstr(time) then= time 'The update time is displayed.

end if

end sub

Digital clocks are simple and useful applications that involve timer controls. Once you understand how the app works, you can enhance its performance and implement the functions of alarm clocks, stopwatches, or other timing devices.

First you need to set = 1000

You can set it in the form load, or you can set it to private sub timer1 timer()= time() in the properties panel

end sub

private sub timer1_time()end sub

Your two label controls that receive click events will work better if one is disabled after the click, and the other will be used for the lesson.

Add label3 below.

private sub form_load()= false

end sub

private sub label3_click()= true

nowend sub

private sub label5_click()= false

Start time" + chr(13) +"End time" +end sub

private sub timer1_timer()= time

end sub

Click label3 to start the timer.

VB6 version is not the same, I don't know.