1樓：匿名使用者
利用定時器timer來實現
option explicit
'移動方向標誌
dim goleft as booleanprivate sub form_load()'為了更好的演示效果，移除label文字周圍的空隙label1.autosize = true'啟動定時器
timer1.interval = 50
timer1.enabled = trueend sub
private sub timer1_timer()with label1
'如果label1到達窗體最左側，則向右移動if (.left + .width) > me.scalewidth then goleft = false
'如果label1到達窗體最右測，則向左移動if .left < 0 then goleft = trueif goleft then
'向左移動5個畫素
.move label1.left + screen.twipsperpixelx * 5
else
'向右移動5個畫素
.move label1.left - screen.twipsperpixelx * 5
end if
end with
end sub
2樓：歐聯科技
基本思路，用個timer控制項，然後在timer事件中控制label的左邊位置就可以了,例如：
private fxj as booleanprivate sub form_load()fxj= true
label1.caption="看我移動"
label1.left=0
timer1.interve=10
end sub
private sub timer1_timer()if fxj then
label1.left=label1.left+10if label1.left>=form1.width-label1.width then fxj=not fxj
else
label1.left=label1.left-10if label1.left<=0 then fxj=not fxjend if
end sub
這是個基本的東西，按照你的實際要求改改吧，如有問題，再說 呵呵。
3樓：
補充一下 tian_yf 的回答
用個計時器,設定它的觸發時間間隔,然後在計時器的事件裡修改label的left屬性值加或減,就能控制label的左移或右移.同時別忘了判斷一下label是否移動到了父控制項外面去了.有什麼不明白的地方，您可以補充提問。
直接給**對學習不利@@
比較遺憾。歐聯科技 朋友的直接給出了**，**思路就上上面我寫的思路。
（授人以魚不如授人以漁）
4樓：
更改label標籤的left屬性大小就行
vb中如何使字上下來回移動
5樓：
首先新增乙個timer控制項和乙個label控制項。在label1的caption中寫入自己要寫的字。雙擊開啟書寫以下函式：
dim i%
timer1.interval=100 '每0.1秒觸發一次if i >form1.height then i=0i=i+10
label.move 10,i
6樓：匿名使用者
用timer控制字型lable的座標就好了。當到達某個值後開始加，到達另外乙個之後在慢慢的減少。
7樓：匿名使用者
dim d as boolean
private sub form_load()label1.top = me.height - label1.height
timer1.interval = 100d = true
end sub
private sub timer1_timer()if d then
label1.top = label1.top - 90else
label1.top = label1.top + 90end if
if label1.top <= 0 thend = false
end if
if label1.top >= me.height - label1.height - 240 then
d = true
end if
end sub
怎樣用VB做個編寫程式，在文字框中顯示當前系統時間，並隨時間進行變化
你新增一個timer控制元件 interval屬性 100 新增事件 private sub timer1 timer text1.text format now,hh mm ss end sub private sub form load timer1.enabled trueend sub pr...
剛學vb在文字框中輸入字元，判斷是字母還是數字字元或者其他字元我寫的有問題應該怎麼改
s是變數，不該打引號。下面是用選擇語句來處理，可能比較清晰點。private sub command1 click dim s as string s text1 if len s 1 then select case s case a to z a to z msgbox 字母 case 0 to...
在vb中，怎樣做才能將webbrowser 控制項的滾動條去掉
用 框，把滾動條蓋住就行了 如何去掉vb裡的webbrowser控制項的滾動條 下面的 很全面。可以參考一下。dim withevents m dom as htmldocument 禁止使用者在 webbrowser 控制項中使用滑鼠右鍵 private function m dom oncont...