十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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();
}
文字写在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
最简单的,就是在上面放一个label,用Timer定时器控件控件这个label的移动
请参考我的网站
从左到右循环滚动地显示“滚动图片!”
把图片换成文字即可。
字符拼凑法:
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
RichTextBox1.Focus() RichTextBox1.SelectionLength = 0 RichTextBox1.SelectionStart = RichTextBox1.Text.Length RichTextBox1.ScrollToCaret()这样将保持RichTextBox中的文字焦点始终出现在最新的一行