VB.net怎么制作一個(gè)可以拖動(dòng)的button？

基本思路是在按鈕的 MouseMove 事件中檢測(cè)鼠標(biāo)左鍵的狀態(tài)，如果是按下就跟著移動(dòng)按鈕的位置。

創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括英吉沙網(wǎng)站建設(shè)、英吉沙網(wǎng)站制作、英吉沙網(wǎng)頁(yè)制作以及英吉沙網(wǎng)絡(luò)營(yíng)銷(xiāo)策劃等。多年來(lái)，我們專(zhuān)注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，英吉沙網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶(hù)以成都為中心已經(jīng)輻射到英吉沙省份的部分城市，未來(lái)相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶(hù)的支持與信任！

vb.net 在Win窗體中如何實(shí)現(xiàn)圖標(biāo)或按鈕的拖放功能。

VB.NET做的窗體托盤(pán)，可以把窗體縮小到任務(wù)欄圖標(biāo)，點(diǎn)右鍵可以觸發(fā)事件-VB.NET do form tray can form down to the taskbar icon, point right to trigger events

如何在VB.net中用程序控制鼠標(biāo)移動(dòng)和點(diǎn)擊

調(diào)用api

在Visual Baisc.net中的聲明：

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模擬鼠標(biāo)左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標(biāo)左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標(biāo)中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標(biāo)中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標(biāo)右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標(biāo)右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標(biāo)指針移動(dòng)

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標(biāo)左鍵按下

vb.net實(shí)現(xiàn)控件自由移動(dòng)

Dim i As Integer

For i = 0 To Me.Width - Button1.Width 'me為容器，典型的是form1

Button1.Left += 1

Windows.Forms.Application.DoEvents()

Next

原理:不斷地變化button1的X軸，使其向右移，同樣，只要控制好其x,y軸，就可以變化button的變化

如果是做小游戲，建議弄成類(lèi)吧，把其中的左（右）移或?qū)瞧渌苿?dòng)弄成其接口，以便操作。

由于涉及內(nèi)容太多，不再詳述。原理都一樣

VB.net如何讓按鈕在窗體隨機(jī)移動(dòng)

按鈕對(duì)象.left=rnd*100

按鈕對(duì)象.top=rnd*100

把100這個(gè)值替換成實(shí)際窗體大小即可

你好，請(qǐng)教一下vb.net中想實(shí)現(xiàn)標(biāo)簽自動(dòng)從左到右移動(dòng)如何實(shí)現(xiàn)，我是新手

見(jiàn)下面代碼，放置定時(shí)器，按鈕，標(biāo)簽各一個(gè)

Public?Class?Form1

Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick?'定時(shí)器

If?Label1.Right??Me.Width?Then

Label1.Left?+=?10'移動(dòng)距離

Else

Label1.Left?=?0

End?If

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'開(kāi)啟或者關(guān)閉定時(shí)器

Timer1.Interval?=?1000?'1秒

If?Timer1.Enabled?=?False?Then

Timer1.Start()?'開(kāi)定時(shí)器

Else

Timer1.Stop()?'關(guān)定時(shí)器

End?If

End?Sub

End?Class