vb.net做滚动字幕 vba滚动字幕

vb.net 如何在如图所示的框里做一个滚动字幕出来，急求！！！是一个textbox，要让里面的字滚动起来

最简单的，就是在上面放一个label，用Timer定时器控件控件这个label的移动

vb.net 如何在如图所示的框里做一个滚动字幕出来，急求！！！

        private void button1_Click(object sender, EventArgs e)

        {

            Timer t = new Timer();

            t.Interval = 50;

            int n = 0;

            int w = this.label1.Width;

            t.Tick += (s, ee) =

            {

                n += 10;

                int d = this.Width - w;

                this.label1.Left = n % d;

            };

            t.Start();

        }

用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制作滚动字幕代码

加入一个命今按钮：command1. 加入一个文本框：text1. 加入一个时间控件：timer1. 加入一个横向的滚动条：hscroll1.把：min属性设为2，max属性设为100，smallchange设为1。 下面代码： PrivateSubCommand1_Click() Timer1.Enabled=True Timer1.Interval=10 EndSub PrivateSubForm_Load() Command1.Caption="开始" Text1.BackColor=H8000000F Text1.BorderStyle=0 Text1.Text="测试区域" Timer1.Enabled=False EndSub PrivateSubHScroll1_Change() Timer1.Interval=10*HScroll1.Value/10 EndSub PrivateSubHScroll1_Scroll() Timer1.Interval=10*HScroll1.Value/10 EndSub PrivateSubTimer1_Timer() Text1.Left=Text1.Left-50 IfText1.Left0Then Text1.Left=Form1.Width EndIf EndSub 技术含量不高，供参考！

关于vb.net做滚动字幕和vba滚动字幕的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。