1樓:騰訊電腦管家
先用vb做乙個視窗,在top0 left0 的位置。使滑鼠一移動到視窗,視窗就跑到螢幕右上角再移動到螢幕右上角,就跑到右下角,接著在螢幕右下角的視窗裡移動又跑到左下角,最後在螢幕左下角的視窗裡移動又跑回原來的位置,就這樣不斷迴圈。
2樓:那年那月螢光
把下列**放到你的窗體**中:
private mmousedown as booleanprivate mx as single, my as singleprivate sub form_load()mmousedown = false
end sub
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
mmousedown = not mmousedownmx = x
my = y
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if mmousedown then me.move me.left + x - mx, me.top + y - my
end sub
點選窗體後窗體隨滑鼠移動,再次點選停止跟隨。
滑鼠將保持在點選(在窗體上的)的位置。
mousemove事件不是很靈敏,所以滑鼠不能移動太快。
3樓:三號床鋪的四哥
使vb的窗體在電腦螢幕上隨滑鼠一起移動方法先用vb做乙個視窗,在top0 left0 的位置。使滑鼠一移動到視窗,視窗就跑到螢幕右上角再移動到螢幕右上角,就跑到右下角,接著在螢幕右下角的視窗裡移動又跑到左下角,最後在螢幕左下角的視窗裡移動又跑回原來的位置。就這樣不斷迴圈。
這是我跟網上學,寫的**,但是移到右上角的時候就不動了。誰能告訴我錯在哪了,幫我改一下private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if form1.top = 0 thenform1.top = 0
form1.left = 16000
elseif form1.left = 16000 thenform1.top = 9500
form1.left = 16000
elseif form1.top = 9500 thenform1.top = 9500
form1.left = 0
elseif form1.left = 0 thenform1.top = 0
form1.left = 0
end if
end sub
如何用vb如何使滑鼠移動到視窗,視窗在螢幕四周移動
4樓:匿名使用者
你的程式可能是錯在它對螢幕四角的概念的解釋上吧,不同解析度的螢幕的長寬都是不一定的,所以不應該用固定的數值來做這個程式,我用另乙個方法寫了這個程式,下面是**,希望對你會有幫助dim a as integerprivate sub form_load()
a = 0
form1.top = 0
form1.left = 0
end subprivate sub form_mousemove(button as integer, shift as integer, x as single, y as single)
select case a
case 0
a = 1
form1.left = screen.width - form1.width
case 1
a = 2
form1.top = screen.height - form1.height
case 2
a = 3
form1.left = 0
case 3
a = 0
form1.top = 0
end select
end sub
設計乙個移動窗體的vb程式。在窗體上,當按下滑鼠右鍵,移動滑鼠,則窗體隨滑鼠移動而移動
5樓:匿名使用者
dim onmoving as boolean
dim oldx as single, oldy as single
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = vbrightbutton then
oldx = x
oldy = y
onmoving = true
end if
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if onmoving then
move left + x - oldx, top + y - oldy
end if
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
if button = vbrightbutton then
onmoving = false
end if
end sub
6樓:
dim mx as integer, my as integer
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
mx = x
my = y
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if button = 2 then
form1.move me.left + (x - mx), me.top + (y - my)
end if
end sub
很簡單:使用乙個全域性變數記錄按下滑鼠右鍵時的座標(mx,my),然後當button變數值是2(左鍵是1,右鍵是2)的時候,利用move來計算滑鼠移動並同時移動窗體。
vb中如何實現多窗體的切換顯示 每個窗體都有 下一步 按鈕
這是6.0的方法 用先在每個窗體上畫乙個 下一步 按鈕 然後用窗體名稱.show的方法 切換窗體 例如 form1.show 就可以啟用form1窗體 全域性變數建議定義在模組 moudle 中 建立模組的方法是單擊選單 工程 新增模組 命令新增 然後用public 變數 as 型別 語句來定義全域...
VB如何從標題為空的窗體獲取該窗體的控制代碼
findwindow 類名,不是跟 findwindow 類名,0 一樣的嗎?當然不一樣了 findwindow 類名,這個寫法表示有標題的但只是標題沒有名字不是沒有標題 而findwindow 類名,0 當中 0 的意思就是null屬性缺省會返回第乙個同類名的視窗控制代碼 當然不一樣了你看 fin...
在VB中,如何使按鈕透明
工程 部件,選擇microsoft forms 2.0 object library,這裡的控制項幾乎都有背景透明屬性,修改backstyle屬性 vb設計乙個透明的命令按鈕常用的有三種做法 1 用標籤label來替代命令按鈕來執行命令功能,把它設定為透明的即可,但這種方法的缺點是label是平面的...
vb中如何把窗體置頂,並設定為非活動的
form.enabled 3個api 2個按鈕即可 2個command按鈕 private declare function enablewindow lib user32 byval hwnd as long,byval fenable as long as long private declar...
c編的介面,怎樣設定屬性,使窗體在不同大小的顯示器上都可以
1.windowstate屬性設定為maximized,窗體內控制項的dock屬性設定為fill。2.取得本機器解析度 rectangle rect new rectangle rect screen.getworkingarea this 之後再設定窗體的大小。然後根據rect的size調整你的窗...