請教想使點選按鈕後，很多白色的圓點慢慢地從窗體的底部向上移動，用vb怎樣實現

1樓：

很多白色的圓點慢慢地從窗體的底部向上移動，到頂端消失：

dim sp(1000) as shape, i%private sub command1_click()me.timer1.enabled = trueend sub

private sub form_load()me.timer1.interval = 200me.timer1.enabled = falseend sub

private sub timer1_timer()if i < 1000 then

set sp(i) = controls.add("vb.shape", "sh" & i)

with sp(i)

.backcolor = vbwhite

.backstyle = 1

.bordercolor = vbwhite.borderstyle = 1

.shape = 3

.visible = true

.left = rnd * me.scalewidth.width = rnd * 500

.top = rnd * me.scaleheightend with

i = i + 1

for j = 0 to i - 1

if sp(j).top + sp(j).height > 0 then sp(j).top = sp(j).top - 100

end if

end sub

2樓：**大師兄

還需要一個timer控制shape控制元件的top屬性減小

網路原因造成的或者就是伺服器問題建議再次修復一下瀏覽器吧滑鼠點選網頁上的按鈕，按鈕不起作用，什麼怎麼回事啊？檢查一下設定裡面,是否有設相關禁止項.具體的就要看你自己查了.網路不好吧！上傳的流量大了就沒響應，肯定是這問題！瀏覽器的問題，之前我也遇到過，網頁上的按鈕點選沒有反應怎麼解決？重灌系統...

桌面上右鍵,排列圖示,顯示桌面圖示我把電腦桌面上的圖示排列了一下，但是關機再開機後圖示的位置又恢復原樣了，該怎麼解決呢？我的電腦是w 右鍵檢視自動排列圖示的勾勾去掉還有清理類的軟體不要選擇清理圖示快取右鍵關掉自動排列不小心將桌面圖示隱藏了，怎麼恢復？不小心將桌面的圖示隱藏了要恢復的話...

一專案選擇二投資預算三如何起名四商圈評估五商鋪租賃六裝潢設計七證照辦理八人員招募九裝置採購十原料採購十一產品試做十二開店你需要了解的東西太多了接手轉讓的店鋪要注意些什麼通常情況下一家店鋪轉讓都是經營出現了問題不要去相信什麼我有其他業務要打理分...

請教 想使點選按鈕後，很多白色的圓點慢慢地從窗體的底部向上移動，用vb怎樣實現