1樓：匿名使用者
告訴你乙個辦法！用vb自帶的printpicturebox這個函式就可以實現，動態的切換。
vb中怎樣做能使**具有動態效果
2樓：巴哥泡泡
看你的**放在哪個介面中，如窗體中還是picturebox中，他們都有click事件，但是放在窗體中估計你是達不到抖動的效果了，只有放在picturebox中，然後用top和left來進行抖動！
3樓：悠悠周郎
只有用 timer 設定定時更換**。
動一下好辦，把**框的位置改動即可，還可以多動幾次。就是在 click 事件裡寫。
4樓：網友
可以用click,點選換圖。
當你有想法的時候，可以做一下試試的。
vb如何製作介面切換動畫
5樓：網友
1999年的時候我也這麼做過，可惜失敗了。
原因1：vb的動畫執行效率不夠，直接的說就是速度慢；
原因2：不實用；
再往深裡說，就算做出來了，區區乙個介面就佔用了龐大的程式量，以後的除錯和維護成本都會翻翻的增加，而且，過於華麗的介面會嚴重影響程式的相容性。
如果你想把介面做的漂亮，像遊戲那麼漂亮，請用directx和vc，vb不適合。
如果只是用vb做mis，實用性、操作簡便、穩定性都是最重要的，介面不在於華麗，而在於簡潔！
vb中編寫乙個程式，使一張**隨著滑鼠移動
6樓：在世貿天階灌籃的高飛燕草
新增1個**picturebox，複製以下**private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
x, yend sub
vb怎麼製作乙個動畫啊
7樓：我知道吖
簡單，什麼叫動畫？
對於vb程式而言，動畫就是讓物體或者是顏色不停變化的過程，人走路還不簡單嗎？
準備2張jpg**，出左腳和出右腳的。
dim i as integer '全域性變數function zoulu ()
i=i+1 '讓程式每次呼叫的時候加1
if i mod 2 =0 then '成績偶數變換""
else"end if
end function
然後再拖個時鐘，週期設定為1000
private sub timer1_timer()i = 1
call zoulu
end sub
走路動畫做好了~
以上fish自創，如果有錯誤，請各位大牛斧正。
8樓：網友
大家都太積極了，我也貼出來好了，新建乙個窗體只需要新增下面的**就可以執行。
注：這是cbm666的**，我不是原創，但是我很欣賞cbm666，簡直是崇拜啊。。。
option explicit
private withevents timer1 as timer
dim i%, j%, x1%, y1%, blockw%, blockh%, carx%, cary%, pcolor$
dim n%, l%, c$
const captions as string = "煙花飄飄的小汽車"
private sub form_load() true
cary = \ 2: blockw = 500: blockh = 200
x1 = 0: y1 = cary - 230
set timer1 = "", "timer1")
end sub
private sub timer1_timer()
for i = 1 to 12
pcolor = iif(i mod 2 = 0, vbblue, vbred)
line (carx - j, cary)-(carx - j + blockw, cary + blockh), pcolor, bf
carx = iif(carx + 500 >= 6000, 0, carx + 500)
next i
j = iif(j + 100 > 900, 0, j + 100)
line (x1, y1)-(x1 + 500, y1 + 100), b
x1 + 100, y1 + 150), 50
x1 + 380, y1 + 150), 50
x1 = iif(x1 + 50 >= 5000, -500, x1 + 50)
l = int( / 220)
c = string(l, " ") &captions & string(l, " ")
n = n + 1
if n > len(c) -l then n = 1
mid(c, n, l)
end sub
9樓：唯漠情
可以做比較簡單的小動畫。
vb切換**
10樓：網友
private sub form1_mousemove(button as integer, shift as integer, x as single, y as single)
loadpicture("d:\紅燈。ico"態缺)end sub
或襲局者帆禪辯使用image1的mousemove事件。
vb新增動態**
11樓：網友
很簡單，首先在窗體需要新增gif**的地方拖入picturebox控制項，然後在picturebox的image屬性裡新增gif**路徑就可以了。不要新增到backgroundimage裡面，否則gif就不會動了。
怎樣不斷的切換** vb
12樓：匿名使用者
試試這個**輪播。
有12345數字一起切換。
有小圖大圖一起切換。
裡面有教程和原始碼。
vb **動態效果
13樓：網友
下面幾行**即可達到你要的效果。
如果是控制項陣列，請自行修改)
private sub image1_click()dim = abs( -1)
i = timer
do while timer - i <
doevents
abs( -1)
end sub
14樓：網友
認為應該在這裡寫**。
private sub picture1_mousemove(button as integer, shift as integer, x as single, y as single)
15樓：網友
你指的**是程式**框內的，還是程式外的？
VB的問題，一個VB的問題
以下 只需要按command1就可以同時顯示text1和text2了 option explicit option base 1 private sub command1 click dim a 15 as integer dim i as integer text1.text for i 1 to...
vb的問題，vb的一個問題
private sub form queryunload cancel as integer,unloadmode as integer 點選右上角的關閉 dim a as integer a msgbox 確認關閉嗎？vbokcancel vbquestion,系統提示 if a vbok the...
關於vb時鐘的問題，關於vb時鐘的一個問題
建立一個窗體,把borderstyle屬性設為0 none，在窗體上面繪製一個timer 一個label就可以了，不用修改其他屬性。開啟 區，寫下以下 dim x1,y1 as single private sub form load me.caption me.borderstyle 0 with...