1樓：匿名使用者
你的位置都是一樣的 改成下邊的** 圖示private sub form_load()
true 1end sub
private sub timer1_timer()
static p as single
p = p +
if p = then p = cos(p) *1500 + 2000 + 3600, sin(p) *1500 + 2000 + 2500
cos(p + 1) *1500 + 2000 + 3600, sin(p + 1) *1500 + 2000 + 2500
cos(p + 2) *1500 + 2000 + 3600, sin(p + 2) *1500 + 2000 + 2500
cos(p + 3) *1500 + 2000 + 3600, sin(p + 3) *1500 + 2000 + 2500
cos(p + 4) *1500 + 2000 + 3600, sin(p + 4) *1500 + 2000 + 2500
cos(p + 5) *1500 + 2000 + 3600, sin(p + 5) *1500 + 2000 + 2500
cos(p + 6) *1500 + 2000 + 3600, sin(p + 6) *1500 + 2000 + 2500
cos(p + 7) *1500 + 2000 + 3600, sin(p + 7) *1500 + 2000 + 2500
cos(p + 8) *1500 + 2000 + 3600, sin(p + 8) *1500 + 2000 + 2500
cos(p + 9) *1500 + 2000 + 3600, sin(p + 9) *1500 + 2000 + 2500end sub
2樓：匿名使用者
窗體畫乙個 timer 乙個command 按鈕 ,直接新增以下** 按f5執行。
option explicit
dim mx as single, my as singleprivate sub form_load()(/ 2, / 2)-(/ 2, / 2)= 0
0= true
1end sub
private sub timer1_timer()= 1000 * cos(mx)
1000 * sin(my)
mx = mx +
my = my +
pset ( / 2, -/ 2), vbredend sub
在vb介面上畫有幾個按鈕和乙個圓點，用鍵盤控制圓點移動
3樓：網友
1）在窗體上佈置乙個shape
2）**。option explicit
private sub form_keydown(keycode as integer, shift as integer)
with shape1
select case keycode
case vbkeyleft '左箭頭鍵。left = .left - 2 *
case vbkeyup '上箭頭鍵。
top = .top - 2 *
case vbkeyright '右箭頭鍵。left = .left + 2 *
case vbkeydown '下箭頭鍵。top = .top + 2 *
end select
end with
end sub
private sub form_load()'紅色圓點。
with shape1
shape = 3
fillcolor = vbred
fillstyle = 0
end with
允許窗體接收按鈕！
trueend sub
vb 根據圓的軌跡運動，vb高手進
4樓：匿名使用者
dim pi as double
dim runtime as doubledim a as single, b as singledim cntx as single, cnty as singledim r as single
private withevents timer1 as timerdim tx as single, ty as singledim tstep as singleprivate sub form_load()
3= true
pi = atn(1)
set timer1 = "", "timer1")a = 50 '橢圓長軸。
b = 50 '橢圓短軸。
cntx = 100 '中心座標x
cnty = 60 '中心座標y
r = 10 '圓半徑。
50 '運動間隔（毫秒）
tstep = pi / 10 '角度步長 = trueend subprivate sub timer1_timer()runtime = runtime + 1dim arg as double
arg = runtime * tsteptx = cntx + a * cos(arg)ty = cnty + b * sin(arg)= 2
cntx, cnty), a, ,b / a= 0
tx, ty), r
end sub
5樓：匿名使用者
如果是動畫需要可以用flash實現，需要的話，加我。
怎樣在vb裡使像片（picture）按照指定的軌跡運動，比如按照圓形軌跡運動，求指點？？？
6樓：寒信
乙個picture1,乙個timer1.
**如下：圓形軌跡。
dim angle as double
const pi =
private sub form_load()= 1
trueend sub
private sub timer1_timer()angle = angle + pi / 90= 500 * cos(angle) +/ 2= 500 * sin(angle) +/ 2end sub
用vb畫一圓外擺線，使一三角形在曲線軌跡上移動函式軌跡：x=(a+b)*cost-b*cos[(a
7樓：網友
曲線軌跡有了，那三角形的大小呢？三角形的哪個點沿這個曲線軌跡呢？
還有：a,b,d的值呢？
如何製作一款圓形的vb按鈕？
8樓：網友
你所見到的所有圓形按鈕實際上都是方形的按鈕，只是在方形的按鈕裡放上張包含圓形的**，除了圓形外的邊角跟背景色融為一體而已。
如下圖，你在左邊介面上看到的所有圓形按鈕實際上都是右邊設計介面上的那個粉紅色方塊。
9樓：網友
1 用。圖形。
相關資訊。電腦開機後，顯示器無訊號怎麼回事？ 電腦。
膝上型電腦開機黑屏怎麼辦 開機過了win...
電腦開不了機 一直黑屏 早上的時候還好，..
電腦的桌面截圖熱鍵是哪個啊？ 電腦的桌面。
電腦開不了機 怎麼重灌系統呀？是這。
電腦開機顯示器無訊號 電腦開機顯示器無信。
電腦開不了機總是自動重啟怎麼辦？ 系統也。
電腦開機黑屏怎麼辦？ 我換了硬碟記憶體顯示卡。
電腦開機顯示器無訊號 前面都還好的，到w...
電腦經常開不了機是怎麼回事？ 電腦經常開。
就是這樣啊。
常在電腦前。
電腦族應該。
玩遊戲宕機。
電腦有輻射。
控制項（如img,pic）,自己在事件中處理，一般採用三幅圖，分別表示normal,mouse in以及mouse down；
2 用其它控制項，如sheriden_activethreed_等，事件已幫你做好，只需加入圖形即可，非常方便。
3 在乙個form中定義兩個按鈕，cmd1和command2,書寫以下**：
private sub cmd1_click()
msgbox "ok"
end sub
private sub command2_click()
dim crgn as long
dim ret as long
crgn = createellipticrgn(5, 5, -5, -5)
ret = setwindowrgn(, crgn, true)
ok" true
end sub
api函式：
public declare function setwindowrgn lib "user32" (byval hwnd as long, byval hrgn as long, byval bredraw as boolean) as long
public declare function createellipticrgn lib "gdi32" (byval x1 as long, byval y1 as long, byval x2 as long, byval y2 as long) as long
10樓：憶夢瀟湘
用ps把白邊摳掉，然後存為png。
注意：四周的白色不是透明的，用ps把白色去掉就行了。
11樓：網友
用三個picture來做，常規**，按下**，及抬起**。比較好看。
或者用控制項。
12樓：科技程式迷
也可以用api剪下空白區域呀。
vb 繪圖程式中實現移動功能，在繪製了直線，矩形，圓形後，選中移動，怎麼知道選中的是直線還是矩形、圓形
13樓：網友
1全部定義列舉型別【直線，矩形，圓形】，在點選對應按鈕時，設定物件屬性為列舉值，之後點選時獲取屬性。。。
怎麼製作vb圓形按鈕
14樓：萬用字元呢
dll點陣圖。
要不就直接上**。
或隨風按鈕的話。 寫個dll 方便，**都用得上。
**的話 檢測滑鼠位置，再替換**。
要** @ 我。
15樓：帳號已登出
很簡單，我告訴你，別說是圓的就是任何圖形都可以的。
vb按鈕陣列如何呼叫，vb中如何讓乙個按鈕呼叫另乙個按鈕中的陣列？VB小菜，請高手指教。
以為打老鼠為例，示例如下 在form load事件中輸入下面的 for i 1 to 15 因為有16個名稱相同的控制項 command1 i visible false 此功能用於在窗體啟動時將所有的控制項隱藏。next i 介面的其它內容也可以在此設定，例如option1，label1等 然後通...
VB滑鼠離開事件，vb 滑鼠離開按鈕事件
在窗體的mousemove事件中寫image的visible true就可以了 private sub form load image1.visible trueimage2.visible falseend sub private sub form mousemove button as inte...
vb中命令按鈕的名稱屬性和caption屬性有何不同
caption是標題bai或著名字的意du思,要與name區分開來.簡單的說caption 是你zhi給控制項所起的名字dao,而name 是它系統本身 回的名字.如 commandbutton,你可以在caption上給答它賦值 按紐 它將來所顯示出來的就是 按紐 兩個字,而它的name 卻仍是c...