Direction = True #39轉(zhuǎn)換方向 End IfEnd IfEnd Sub因?yàn)関b的窗體Width數(shù)據(jù)比較魔性的原因，右邊的判定會(huì)略微出格，代碼是絕對沒問題的如果精益求精，可以手動(dòng)添加數(shù)據(jù)測試微調(diào)；left向左對齊，right右邊對其，top上面頂部， middle中間， bottom下面底部bgcolor，移動(dòng)字符的背景色，屬性值為顏色代碼，可以是rrggbb 16 進(jìn)制數(shù)碼，r=red，g=green， b=blue，也就是色彩中的三原色。

字體是從右向左移動(dòng)，鼠標(biāo)放上面停止移動(dòng)，松開繼續(xù) ltSCRIPT LANGUAGE=quotJavaScriptquot lt！ Begin var ostat = falsefunction scrollstop newsscrollAmount = 0ostat = true function scrollplay news；ltmarquee bgcolor=aaaaee啦啦啦，我會(huì)移動(dòng)耶ltmarquee 面積 ltheight=# width=# ltmarquee height=40 width=50% bgcolor=aaeeaa 啦啦啦，我會(huì)移動(dòng)耶ltmarquee 空白Marginslthspace=# vspace=# 嗨，ltmarqu。

怎么個(gè)移動(dòng)法其實(shí)有更好的，建議你用label和picture來組合實(shí)現(xiàn) 如果實(shí)在要這么做，可以這樣Dim N As Integer Dim S As String Private Sub Form_LoadS = quot歡迎光臨quotText1Text = S End Sub Private Sub。

左右移動(dòng)文字代碼怎么設(shè)置

窗體放一個(gè)picture1，timer1，label1，label1要放在picture1里復(fù)制下面代碼Private Sub Form_LoadLabel1Caption = quot你好，歡迎來到VB世界quotLabel1AutoSize = True Label1Left = Picture1Width Timer1Interval。

看來你有些過程還是沒有搞明白啊 首先，怎么控制移動(dòng)的代碼你是對了 然后呢，是這樣的，如果說你想點(diǎn)擊按鈕，點(diǎn)一次，動(dòng)一下，就把timer去掉 如果是點(diǎn)了以后自己動(dòng)，那么按鈕里面的代碼就是啟動(dòng)計(jì)時(shí)器 計(jì)時(shí)器判斷點(diǎn)擊了。

5s timer1enabled=true#39定時(shí)器啟動(dòng) end sub private sub timer1_timelabel1left=label1left+100#39label1的左邊距離，每05s向右移動(dòng)100，由于文字位于Label上，因此label移動(dòng)，就會(huì)看到文字移動(dòng)的效果 end sub。

可以將文字放在標(biāo)簽內(nèi)，標(biāo)簽背景顏色設(shè)置為透明，即backstyle為0，這樣就只顯示文字 判斷文字是否走到最右邊，則 if label1leftform1width then label1right=0 end if 讓文字運(yùn)動(dòng)則labellefe=labellefe+100 若有。

新建工程，一個(gè)按鈕，一個(gè)label，一個(gè)timer Private Sub Command1_ClickIf Command1Caption = quot開始quot Then Command1Caption = quot停止quotElse Command1Caption = quot開始quotEnd If Timer1Enabled = Not Timer1Enabled En；表單中建立1個(gè)時(shí)間控件timer1及1個(gè)label1控件，其中timer1控件的屬性interval值建議都設(shè)為10 在窗體init事件中寫上代碼 PUBLIC n n=1 timer1控件的timer過程代碼DO case CASE lt 0 n=1 CASE。

提供思路，用一個(gè)for循環(huán)，從第x個(gè)字符開始往前移動(dòng) eg fori=xstringi！=#39\0#39i++ stringix=stringi 移動(dòng)的開始和結(jié)束部分分別由i=x和stringi！=#39\0#39來控制；文字向左移動(dòng)代碼ltmarquee direction=left需要移動(dòng)的文字ltmarquee marqueeltmarquee標(biāo)簽，是成對出現(xiàn)的標(biāo)簽，首標(biāo)簽ltmarquee和尾標(biāo)簽ltmarquee之間的內(nèi)容就是滾動(dòng)內(nèi)容ltmarquee標(biāo)簽的屬性主要有behaviorbgcolor。

主題名稱圖像特殊效果 特效名稱左右移動(dòng)的圖片 修改圖片名稱即可共2步1將以下代碼加入到HEML的之間lt！ step = 0obj = new Imagefunction animxp，xk，smer smer = direction；你的問題是想輸出的內(nèi)容為從右往左排布嗎，比如實(shí)驗(yàn)結(jié)果 使用屬性RightToLeft 代碼txtMessageRightToLeft = RightToLeftYes。