1樓：匿名使用者
dim mlblflag as boolean
dim mlblchecked as integer
'重新整理所有lbl背景
private sub clslblbkcolor(vcolor as long)
dim olbl as label
for each olbl in me.label1
if olbl.index = mlblchecked then
olbl.backcolor = vbred
else
olbl.backcolor = me.backcolor
end if
next
end sub
private sub form_load()
'初始化選中的lbl索引號,如果想預設某個lbl一開始就是被選中的，賦值那個lbl的索引號
mlblchecked = -1
clslblbkcolor me.backcolor
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if mlblflag then
clslblbkcolor me.backcolor
mlblflag = false
end if
end sub
private sub label1_mousedown(index as integer, button as integer, shift as integer, x as single, y as single)
label1(index).backcolor = vbred
end sub
private sub label1_mousemove(index as integer, button as integer, shift as integer, x as single, y as single)
mlblflag = true
clslblbkcolor me.backcolor
if index = mlblchecked then exit sub
label1(index).backcolor = vbblue
end sub
private sub label1_mouseup(index as integer, button as integer, shift as integer, x as single, y as single)
mlblchecked = index
end sub
2樓：隨風v隨夢
我寫過和你所要的差不多，不過我加上了win8的漸變效果，而且是使用者控制項，可以當作label或者command用，但字型的繪畫暫時還沒完全弄好，呵呵
VB中控制滑鼠的移動，VB 中如何控制滑鼠移動
這不是乙個函式的使用問題 這個問題是 在vb中呼叫系統函式 去搜尋這個問題吧，我也不會 vb 中如何控制滑鼠移動 我怎麼感覺，ls兩位有點答非所問。呵呵 你想只是改變窗體中的位置不是螢幕上的位置的話。一 你在x,y座標是分別加上 me.width 和me.height 加上窗體的橫座標和縱座標不就是...
如何使vb的窗體在電腦螢幕上隨滑鼠一起移動
先用vb做乙個視窗，在top0 left0 的位置。使滑鼠一移動到視窗，視窗就跑到螢幕右上角再移動到螢幕右上角，就跑到右下角，接著在螢幕右下角的視窗裡移動又跑到左下角，最後在螢幕左下角的視窗裡移動又跑回原來的位置，就這樣不斷迴圈。把下列 放到你的窗體 中 private mmousedown as ...
滑鼠單擊拖拽複製怎麼設定，滑鼠拖動檔案是移動還是複製,如何設定
兄弟連田心9號 方法 1.開啟電腦左下角 開始 選單，找到 控制面板 點選開啟.2.進入 控制面板 點選下方的 硬體和聲音 3.在 硬體和聲音 列表中點選進入 裝置和印表機 4.在 裝置選項 中，找到 滑鼠 圖示，右鍵點選選擇 滑鼠配置 5.進入滑鼠設定對話方塊，將下方 點選鎖定 核取方塊勾選.6....
vb獲取某視窗內相對座標，vb 獲取滑鼠在窗體內的相對座標
其實得到窗體的控制代碼就什麼都得到了 vb 獲取滑鼠在窗體內的相對座標 有個笨方法，試試 注意表單整大點 private sub form mousemove button as integer,shift as integer,x as single,y as single if x 100 or...
cs1 5的滑鼠靈敏度多少好，CS1 5滑鼠移動靈敏度調多少好
剛才我看了一位cs玩家發表了一篇 cs高手的滑鼠靈敏一般是多少？我看了一下，看到 緋炎寒冰 zyq 112233 fandebiaoge 所寫的我特別氣憤！緋炎寒冰說 我見大多數人用的是6.0以上 我用的3.4。快我覺得會擺過頭 大快也有快的好處。我雖然不是什麼高手 但曾經在比賽中得過第3名 我用的...