1樓：匿名使用者
僅供參考:
public isload as boolean
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
isload = false '清除已載入標誌
end sub
private sub image1_mousemove(button as integer, shift as integer, x as single, y as single)
if isload = false then '沒有標誌已載入則載入
image1.picture = loadpicture("g:\1.bmp")
end if
isload = true '標誌已經載入
end sub
2樓：旅初彤
我說一下思路：
先從控制項工具欄拖乙個timer控制項（圖示是表的那個）到介面
雙擊介面的timer控制項，在timer的tick事件裡面，加乙個判斷，就是當那個要閃爍控制項的visible屬性等於true的時候，就賦值成false,否則當那個要閃爍控制項的visible屬性等於false的時候，就賦值成true
將timer控制項的的interval屬性設定成1000，因為這個是毫秒作為單位的，1000毫秒就是1秒，你也可以根據你的需要自行設定
將timer控制項的的enable屬性設定成true(如果使用其它控制項控制，可以設定成false,然後再那個控制項的click事件裡面將其設定成true)
給你看一下**：
private sub form_load()
timer1.interval = 1000 '設定閃爍間隔時間,這個單位是毫秒，1000毫秒就是1秒
end sub
private sub timer1_timer() '這裡的text1是控制項名稱，我這裡使用的是乙個文字框舉例，你可以換成其它的控制項的控制項名
if text1.visible = true then
text1.visible = false
else
if text1.visible = false then
text1.visible = true
end if
end if
end sub
3樓：司馬刀劍
用透明窗體在控制項上的位置上畫乙個閃動的shape。透明窗體的滑鼠動作設定穿透。
這樣看起來就像是控制項邊框閃動。
vb按鈕陣列如何呼叫，vb中如何讓乙個按鈕呼叫另乙個按鈕中的陣列？VB小菜，請高手指教。
以為打老鼠為例，示例如下 在form load事件中輸入下面的 for i 1 to 15 因為有16個名稱相同的控制項 command1 i visible false 此功能用於在窗體啟動時將所有的控制項隱藏。next i 介面的其它內容也可以在此設定，例如option1，label1等 然後通...
VB怎麼宣告陣列，VB中陣列怎麼定義
如果有規律就可以用for next 來賦值，如果沒有規律，資料又很多的話，就從檔案裡面讀。 dim 陣列名 as int new int vb中陣列怎麼定義 大野瘦子 是這麼定義的 陣列中的第一個元素的下標稱為下界，最後一個元素的下標稱為上界，其餘的元素連續地分佈在上下界之間，且陣列在記憶體中也是用...
cad怎麼旋轉圖形，CAD怎麼旋轉圖形？
1 開啟autocad軟體並繪製要旋轉的圖形，然後選擇要旋轉的圖形 滑鼠框選擇或使用快捷鍵ctrl a 2 在上部工具欄中找到旋轉操作選單 或使用快捷鍵ro space或快捷鍵ro回車 來啟用旋轉命令。3 此時，操作介面彈出選擇基點的命令提示，選擇乙個點作為旋轉基點。4 彈出旋轉角度命令提示符 輸入...