Direction = True #39转换方向 End IfEnd IfEnd Sub因为vb的窗体Width数据比较魔性的原因，右边的判定会略微出格，代码是绝对没问题的如果精益求精，可以手动添加数据测试微调；left向左对齐，right右边对其，top上面顶部， middle中间， bottom下面底部bgcolor，移动字符的背景色，属性值为颜色代码，可以是rrggbb 16 进制数码，r=red，g=green， b=blue，也就是色彩中的三原色。

字体是从右向左移动，鼠标放上面停止移动，松开继续 ltSCRIPT LANGUAGE=quotJavaScriptquot lt！ Begin var ostat = falsefunction scrollstop newsscrollAmount = 0ostat = true function scrollplay news；ltmarquee bgcolor=aaaaee啦啦啦，我会移动耶ltmarquee 面积 ltheight=# width=# ltmarquee height=40 width=50% bgcolor=aaeeaa 啦啦啦，我会移动耶ltmarquee 空白Marginslthspace=# vspace=# 嗨，ltmarqu。

怎么个移动法其实有更好的，建议你用label和picture来组合实现 如果实在要这么做，可以这样Dim N As Integer Dim S As String Private Sub Form_LoadS = quot欢迎光临quotText1Text = S End Sub Private Sub。

左右移动文字代码怎么设置

窗体放一个picture1，timer1，label1，label1要放在picture1里复制下面代码Private Sub Form_LoadLabel1Caption = quot你好，欢迎来到VB世界quotLabel1AutoSize = True Label1Left = Picture1Width Timer1Interval。

看来你有些过程还是没有搞明白啊 首先，怎么控制移动的代码你是对了 然后呢，是这样的，如果说你想点击按钮，点一次，动一下，就把timer去掉 如果是点了以后自己动，那么按钮里面的代码就是启动计时器 计时器判断点击了。

5s timer1enabled=true#39定时器启动 end sub private sub timer1_timelabel1left=label1left+100#39label1的左边距离，每05s向右移动100，由于文字位于Label上，因此label移动，就会看到文字移动的效果 end sub。

可以将文字放在标签内，标签背景颜色设置为透明，即backstyle为0，这样就只显示文字 判断文字是否走到最右边，则 if label1leftform1width then label1right=0 end if 让文字运动则labellefe=labellefe+100 若有。

新建工程，一个按钮，一个label，一个timer Private Sub Command1_ClickIf Command1Caption = quot开始quot Then Command1Caption = quot停止quotElse Command1Caption = quot开始quotEnd If Timer1Enabled = Not Timer1Enabled En；表单中建立1个时间控件timer1及1个label1控件，其中timer1控件的属性interval值建议都设为10 在窗体init事件中写上代码 PUBLIC n n=1 timer1控件的timer过程代码DO case CASE lt 0 n=1 CASE。

提供思路，用一个for循环，从第x个字符开始往前移动 eg fori=xstringi！=#39\0#39i++ stringix=stringi 移动的开始和结束部分分别由i=x和stringi！=#39\0#39来控制；文字向左移动代码ltmarquee direction=left需要移动的文字ltmarquee marqueeltmarquee标签，是成对出现的标签，首标签ltmarquee和尾标签ltmarquee之间的内容就是滚动内容ltmarquee标签的属性主要有behaviorbgcolor。

主题名称图像特殊效果 特效名称左右移动的图片 修改图片名称即可共2步1将以下代码加入到HEML的之间lt！ step = 0obj = new Imagefunction animxp，xk，smer smer = direction；你的问题是想输出的内容为从右往左排布吗，比如实验结果 使用属性RightToLeft 代码txtMessageRightToLeft = RightToLeftYes。