1樓：匿名使用者
新增一個定時器，定時器移動，超過螢幕自動回來。
**如下：
dim m as integer '定義變數，確定移動方向private sub form_load()timer1.interval = 200 '移動時間 0.2秒移一次
me.left = 0 '左空初始為0
m = 0 '預設先向右移
end sub
private sub timer1_timer()if (me.left + me.width) > screen.width then m = 1 '移到右邊頭上，向右移
if me.left <= 0 then m = 0 '移到左邊頭上了，向左移
if m = 0 then '移動方向
me.left = me.left + 1000 '向右移else
me.left = me.left - 1000 '向左移end if
end sub
2樓：小李無刀
用一個定時器，定時器裡設定me.top,me.left
定時器的時間間隔就是控制移動的速度的
3樓：day天天_好心情
修改form1.top和form1.lef就可以了啊，如果需要來回移動可以timer裡面控制form1.lef大於一個數值就返回1
求教！vb 怎麼讓標籤在窗體中左右來回移動
4樓：
你的k初值，應該在timer1_timer以外賦，要不每次，都是正，還有form1.scalewidth 改成form1.width ，label1的autosize調成自動適應內容大小
dim k as integer
private sub form_load()label1.autosize =truek = 1
end sub
private sub timer1_timer()label1.caption = time()d = hscroll1.value
label1.left = label1.left + k * dif label1.left + label1.width >= form1.width then
k = -1
elseif label1.left <= 0 thenk = 1
end if
end sub
vb中，如何讓標籤在窗體中反覆的左右移動.
5樓：匿名使用者
又是你 我就會這兩種方法了
這個我用到了閒置迴圈、doevents語句和goto語句private sub command1_click()while not label1.left > me.width + label1.
width
aa: doevents
label1.left = label1.left + 1if label1.left > me.width - label1.width then goto bb
wend
while not label1.left < 0bb: doevents
label1.left = label1.left - 1if label1.left < 0 then goto aawend
end sub
6樓：匿名使用者
在窗體上新增一個timer控制元件,interval屬性設定為100dim flag as boolean
private sub form_load()flag = false
end sub
private sub timer1_timer()if not flag and label1.left + label1.width <= me.scalewidth then
label1.left = label1.left + 200if label1.
left + label1.width >= me.scalewidth then flag = true
else
label1.left = label1.left - 200if label1.left <= 0 then flag = false
end if
end sub
7樓：匿名使用者
空間本身是不會動的。
可以使用空格加上 時間控制元件來完成這個事情。
在標籤的文字前面加空格，往左就加空格，往右就減空格。
請問怎麼用vb編一個讓窗體上的文字左右移動程式
8樓：vb妮可
新建工程,一個按鈕,一個label,一個timerprivate sub command1_click()if command1.caption = "開始" thencommand1.caption = "停止"
else
command1.caption = "開始"
end if
timer1.enabled = not timer1.enabled
end sub
private sub form_load()timer1.enabled = falsetimer1.interval = 10
command1.caption = "開始"
label1.caption = ""
label1.autosize = trueend sub
private sub timer1_timer()label1.caption = timelabel1.left = label1.
left - 10if label1.left + label1.width <= 0 then label1.
left = me.width
end sub
9樓：豬豬
一個標籤..一個時鐘控制元件
private sub timer1_timer()if label1.left < width + left - 150 then
label1.move label1.left + 150else
label1.left = label1.left - widthend if
end sub
10樓：湖面上的一滴水
private sub command1_click()dim i as integer
i = 700
if label1.left > 0 thenlabel1.move (label1.left - i)i = i + 700
else
label1.left = 8280
end if
end sub
private sub command2_click()endend sub
我也剛學，我寫的這個不知道是不是你想要的．大家一起學習啊！
11樓：
dim a, b
private sub form_load()b = 0
a = space(30) & "hello!"
end sub
private sub timer1_timer()on error resume next
if b < len(a) - 1 then b = b + 1 else b = 0
label1 = mid(a, b, len(a) - b) & mid(a, 1, b)
end sub
rem 設定timer1.interval=333就可以了
12樓：匿名使用者
vb自帶了這樣的一個功能呀
你自己去仔細看哈 肯定看得到
和frontpage是一樣的有自帶的模板
vb程式設計如何讓標籤在窗體中來回滾動
13樓：愛哭的孩子
具體如下:
1、第一個程式是可以執行的，只是必須把j設為全域性變數或靜態變數，下面是靜態變數的方法：
privatesubtimer1_timer()staticjasinteger
form1.caption=space(20-j)&"查詢與替換例"
j=(j+1)mod20
endsub你自己搞的那個從思路和語法上都是完全錯了，而且錯得非常離譜，錯到姥姥家了！
2、僅從語法上來看，應該這麼改：
privatesubtimer1_timer()ifme.scaleleft<6000thenform1.caption=""+form1.
captionelseifme.scaleleft>=6000thenform1.caption="查詢與替換例"
endif
14樓：匿名使用者
在程式中設定一個標誌變數（最好為全域性變數）：如：
dim integer as movetagmovetag=1 '初始化1，開始時為左移由時鐘控制元件控制標籤的移動
if movetag then
label1.left=label1.left - 10 * movetag
if label1.left<0 thenmovetag=-1
else
if label1.left + label1.width >form1.width then
movetag=1
end if
end if
end if
1、當標籤的左端到達窗體的
15樓：匿名使用者
1樓的答案是對的。但在開始定義變數那裡寫反了，而且**寫得比較亂，不夠清晰。
2樓的答案從開始的想法上就錯了，所以**雖然沒有語法上的錯誤，也很清楚，但卻有邏輯錯誤，不能實現要求的功能。
下面的是我寫的，在窗體上新增1個label和1個timer，然後把**複製進去就可以了。
private sub form_load()
timer1.enabled = true
timer1.interval = 100
end sub
private sub timer1_timer()
static b as boolean '我這裡用的是靜態變數，當然也可以跟1樓一樣使用窗體級變數或者全域性變數
if label1.left <= 0 or label1.left + label1.width >= me.width then b = not b
label1.left = label1.left + iif(b, -75, 75)
end sub
vb程式設計如何讓標籤在窗體中來回滾動？
16樓：愛哭的孩子
具體如下:
1、第一個程式是可以執行的，只是必須把j設為全域性變數或靜態變數，下面是靜態變數的方法：
privatesubtimer1_timer()staticjasinteger
form1.caption=space(20-j)&"查詢與替換例"
j=(j+1)mod20
endsub你自己搞的那個從思路和語法上都是完全錯了，而且錯得非常離譜，錯到姥姥家了！
2、僅從語法上來看，應該這麼改：
privatesubtimer1_timer()ifme.scaleleft<6000thenform1.caption=""+form1.
captionelseifme.scaleleft>=6000thenform1.caption="查詢與替換例"
endif
在C中，如何在子窗體的picturebox中顯示主窗體picturebox中的影象
方法很多 子窗體構造的時候可以穿過去,也可以用個靜態屬性傳過去 以下是靜態屬性的 public static picturebox pic new picturebox private void form1 load object sender,eventargs e private void bu...
VB如何處理數學表示式，在VB中，如何將數學公式轉化成VB的表示式？有沒有這方面的書籍？
vb裡面也有一數學計算中的公式啊 如abs 是最絕對值等.vb如何處理數學表示式 private declare function ebexecuteline lib vba6.dll byval stringtoexec as long,byval any1 as long,byval any2 ...
vb程式設計問題程式執行時在文字框tet1中輸入字
1 首先，在窗體上面新增一個文 本框。2 單擊文字框，在屬性視窗設定文字框的屬性，清空文字內容，將文字框的enabled屬性設定為false。3 雙擊 提取資訊 命令按鈕，編寫程式的 如下圖所示。提取資訊時，需要使用擷取字串相關的函式，如left,right,mid等。本題還需要使用instr函式查...