vb.net窗体文字滚动 vb字体在窗体来回移动

vb.net中TextBox文本框内容如何循环垂直滚动

可以用定时器Timer控件啊，设置循环时间间隔，比如300毫秒，

站在用户的角度思考问题，与客户深入沟通，找到岳西网站设计与岳西网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计、成都网站设计、企业官网、英文网站、手机端网站、网站推广、域名申请、网络空间、企业邮箱。业务覆盖岳西地区。

定义N个字符串变量存储要输出的第N行内容，然后，当开始执行定时器时候，每次用不同的顺序合并这N个变量，并显示。

vb2012中如何让文字水平滚动

基本思路与方法：

1.窗体上添加一个标签控件，一个Timer控件。

2.标签用来显示文本。Timer控件用来控制并改变标签控件在窗体上位置，达到滚动效果。

完整代码见下面：

注意看不清楚就看下面

本代码经过测试运行通过。

VB.NET中，如何编写代码使文字在窗口中上下循环滚动？

文字写在label的caption属性中，调用timer()函数

附上我写的左右往复运动代码，实现image1在picture1中左右往复运动

Private

Sub

Timer1_Timer()

If

Image1.Left

=

Picture1.ScaleWidth

-

Image1.Width

Then

k

=

1

If

k

=

1

Then

Image1.Left

=

Image1.Left

-

50

Else

Image1.Left

=

Image1.Left

+

50

End

If

If

Image1.Left

=

Then

k

=

End

Sub

用vb代码如何实现滚动字幕

示例：

PrivateSubForm_Load()

'//预先设定要显示的内容

content="滚动字幕示例控制文本的循环滚动"

'//获取内容长度

length=Len(content)

'//label1控件，手动调整

'//接着需要选择字体大小

SetMe.Font=Label1.Font'//方便借用Form.TextHeight方法

Dimfont_heightAsLong,font_widthAsLong,sizeAsLong

size=Label1.Font.size

font_height=Me.TextHeight("循环滚动")

font_width=Me.TextWidth("循环滚动")

Whilefont_height=Label1.HeightAndfont_width=Label1.Width

size=size+1

Label1.Font.size=size

font_height=Me.TextHeight("循环滚动")

font_width=Me.TextWidth("循环滚动")

Wend

Label1.Font.size=size-1'//选择最合适的字体大小

pos=1'//从第一个字符开始读取

EndSub

PrivateSubCommand1_Click()

Timer1.Interval=1000'1000毫秒执行一次

EndSub

PrivateSubTimer1_Timer()

DimsizeAsLong,tempAsString

'//每次显示5个长度单位的内容

size=length-pos'//得到截取的长度大小

Ifsize4Then'//当不足5个长度单位时

temp=Mid(content,pos,size+1)

temp=tempMid(content,1,4-size)

pos=5-size

Else

temp=Mid(content,pos,5)

pos=pos+5

EndIf

Label1.Caption=temp'//把截取的文本内容显示出来

EndSub

扩展资料

VB设计自动滚动字幕窗体

DimDireAsString

'窗体Load事件

PrivateSubForm_Load()

Dire="向左"

EndSub

'定时器事件

PrivateSubTimer1_Timer()

DimNewColorAsLong

Randomize

NewColor=RGB(Rnd()*256,Rnd()*256,Rnd()*256)

Label1.ForeColor=NewColor

IfDire="向左"Then

Label1.Left=Label1.Left-10

IfLabel1.Left0ThenDire="向右"

ElseIfDire="向右"Then

Label1.Left=Label1.Left+10

IfLabel1.Left+Label1.WidthMe.ScaleWidthThenDire="向左"

EndIf

EndSub

vb.net 中怎样实现窗口标题栏上面的文字滚动

字符拼凑法:

dim Title as string="播放歌曲播放歌曲"

dim S as string=""

for I as integer=0 to Title.length-1

S=Title.Substring(i,iif(Title.length-i0,title.length-i,1)

next

在VB中怎么往text中加垂直滚动条？

1．首先打开VB，然后在VB窗体上添加一个文本框，如图所示。

2．然后单击添加文本框，在右边的窗口中设置其名称和值，然后清空文本。如图所示。

3．在窗体的正上方添加一个水平滚动条，如图所示。

4．然后点击水平滚动条设置名称和值，将Min设置为0，Max设置为100。将Largechange设置为，将Smallchange设置为2，如图所示

5．然后双击文本框，弹出页面，可以编辑相应的代码，如图所示。

6．最后，运行程序，在文本框中输入不同的值（值在0－100之间），观察滚动条的位置，完成效果图。