展开全部
弄个label。text。option。hscroll。timer
label1.autosize设为true
hscroll1的max不要太大
timer1.interval 十到几十
private sub timer1_timer()
label1.caption=text1
if option1=0 then
label1.left=label1.left-hscroll1
if label1.left<-label1.width then label1.left=form1.width
else
label.left=label1.left+hscroll1
if label1.left>form1.width then babel1.left=-label1.width
end if
end sub
返回你要返回到哪里…………dos?
label1.autosize设为true
hscroll1的max不要太大
timer1.interval 十到几十
private sub timer1_timer()
label1.caption=text1
if option1=0 then
label1.left=label1.left-hscroll1
if label1.left<-label1.width then label1.left=form1.width
else
label.left=label1.left+hscroll1
if label1.left>form1.width then babel1.left=-label1.width
end if
end sub
返回你要返回到哪里…………dos?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询