1个回答
展开全部
弄个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?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
大雅新科技有限公司
2024-11-19 广告
2024-11-19 广告
这方面更多更全面的信息其实可以找下大雅新。深圳市大雅新科技有限公司从事KVM延长器,DVI延长器,USB延长器,键盘鼠标延长器,双绞线视频传输器,VGA视频双绞线传输器,VGA延长器,VGA视频延长器,DVI KVM 切换器等,优质供应商,...
点击进入详情页
本回答由大雅新科技有限公司提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询