VB Label mobile issues

Put a label1, timer1

set or other integers, the smaller the faster).

private sub timer1_timer()if >=100 then

end if

end sub

Here's a left-shifting program that needs to be added with a timer control and a label control.

private sub form_load()= 1000

end sub

private sub timer1_timer()if < 0 then

else = - 100

end if

end sub

To add a timer timer1

private sub form_load()= 100

true is checked every 100 milliseconds.

end sub

private sub timer1_timer()'Use the if statement to determine the position of the label.

if < val( then 'label = +100 when not fully left out of the form

else 0 - val( 'label appears end if from the left side of the form

end sub

private sub form_load()= true

end sub

private sub timer1_timer()= + 50

if > then =

end sub

-Write the text in label1 by yourself.

Use one timer control and two label controls.

Let the two label controls move alternately.

Upstairs didn't understand what he meant. Moving the label may not achieve the effect you want, it is better to move the words inside. It's a little better and easier to control.

if < then 'It means that when label1 is moving to the left, it completely enters the left side of the form, and label1 is out of the scope of the form, and label1 is not visible

Move label1 to the right side of the form, if it is still not in the form range, then move it to the left to see label1

end if

-"It means the minus sign, such as -1000

Meaning of the book:

When the left border of label1 is <-the width of label1, that is, the right border of label1 is < 0, that is, label1 moves out of the form1 form.

Set the left border of label1 to the right border of the form1 form, otherwise label1 will be shifted to the left by 100

And the ** you write has a lot to do with the position of form1 on the screen and the width of label1.

In general, the form1 form is biased towards the screen**, while the width of labe1 is smaller, so in most cases the "is true" and does not change by the execution of the if statement.

So just execute, i.e., move the label1 tag out of the form1 form.

If you move the form1 form to the far left of the screen and then execute your statement, you can see that the label1 label gradually moves to the left until it disappears.

The left of label1 is its relative position in form1, your **.

if < then

And are always the same, and of course will not achieve a dynamic effect.

** in the book: "means that when the rightmost side of label1 is moved to the left to the invisible (note: < 0 does not mean that it has moved to the far left of form1, because label1 has width), label1 moves back to the far right of form1, I wonder if this explanation will help you.

Why, what you said is a little weird. And than the size? You look at the value of vb. And. I tried both programs. The result is the same.

Be cautious in the event of this.

When judging that the time meets the requirements (for example, equal to, equal to, false magnanimous year, set label2 to the label of seconds, n is the width of a number, according to your font size to try how much is appropriate), when you want to re-time, never revert.

At first, I didn't think about moving all the time, so I changed the judgment condition of time to equal, equal, and not less than.

Take the silver at the time of the changing car, plus the following **, = true

+ 10 'The last constant, the sail feast can be adjusted by itself.

'Argument Huai Hong and friends are cautious.

dim lsstr as string

lsstr="seconds"

I wrote one to you, you need to create a label label1 and a time control timer1, set the interval property of timer1 to 10, and set the enable property to false. The height and width properties of the form are set to 4620 and 6465, respectively. You can modify the interval property of timer1 (the smaller the value, the faster) or change the value of -20 and 20 in the program (the larger the faster), if the size of the form is not suitable, adjust it yourself, I hope it will help you.

dim i%

private sub form_load()i = 20

trueend sub

private sub timer1_timer()= + i

if > 5880 then i = -20if < 0 then i = 20

end sub

What he means is to make the effect of moving text, just like the effect in online production! I won't do this either, who can say thank you

This is me. First add two labels and do a timer control private sub form load()=

Pure Rock Stalls 2

vbredvbred true

end sub

private sub timer1_timer()= - 30

if < 0 then = - 30if < then = : =

end sub

1 All of them need to add a timer timer1

private sub form_load()= 100

true is checked every 100 milliseconds.

end sub

private sub timer1_timer()'Use the if statement to determine the position of the label.

if < val( then 'label = +100 when not fully left out of the form

else 0 - val( 'label appears end if from the left side of the form

end sub

Use a timer, set its trigger interval, and then modify the value of the left attribute of the label to increase or subtract in the timer's event to control the left or right shift of the label. Also, don't forget to check if the label has moved out of the parent control. If there is something you don't understand, you can add a question.

Giving ** directly is not good for learning @@

It's a pity. Oulian Technology Friend's direct given**,**The idea is the idea I wrote above.

It is better to teach a man to fish than to teach him to fish).

Just change the size of the left attribute of the label tag.

Read the text content step by step through the label. For example, only 5 words can be read at a time? The speed of replacement is controlled by timer.

The easiest way to do this is to make the label slightly wider than your text.

Then move the label

I've done this before, see picture below.