VB點(diǎn)虐 怎么實(shí)現(xiàn)運(yùn)行時(shí)鼠標(biāo)拖動(dòng)改變控件的大小啊

控件是可以顯示在里面的，你只要加個(gè)label，把label的屬性設(shè)為visualble=fause就行。設(shè)置鼠標(biāo)經(jīng)過頭像的mouseHover和mouseLeave事件，當(dāng)mouseHover時(shí)label的屬性visualble=true，當(dāng)mouseLeave時(shí)label的屬性visualble=fause即可。窗體的鼠標(biāo)事件可以設(shè)置控件的cursor屬性，里面可以選擇許多種鼠標(biāo)圖形。 只要是正常的Form都可以改變窗體大小，但是無邊框的窗體只能用函數(shù)改變或者設(shè)置屬性，在debug后是不能改變的。拖動(dòng)窗體需要在窗體的load時(shí)間里面寫入當(dāng)鼠標(biāo)單擊不放時(shí)的事件即可，不難。

成都創(chuàng)新互聯(lián)專注于路橋企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站,商城建設(shè)。路橋網(wǎng)站建設(shè)公司,為路橋等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站制作，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

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

調(diào)用api

在Visual Baisc點(diǎn)虐 中的聲明：

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點(diǎn)虐 中,如何實(shí)現(xiàn)鼠標(biāo)在listbox控件上移動(dòng)時(shí),鼠標(biāo)所到的條目背景變黑、字變白；移開后還原?

復(fù)雜的不會(huì)，來點(diǎn)兒簡(jiǎn)單的，借用在listbox里按下鼠標(biāo)時(shí)再移動(dòng)，會(huì)高亮顯示選擇行，并且會(huì)隨鼠標(biāo)移動(dòng)而變化的這一特點(diǎn)改進(jìn)的，不足之處是在listbox里，此時(shí)處于鼠標(biāo)左鍵在按下狀態(tài)。

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)左鍵按下

Private Sub ListBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseMove

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

End Sub

求大神指點(diǎn)vb點(diǎn)虐 怎么用SendInput來實(shí)現(xiàn)鼠標(biāo)移動(dòng)到指定位置呢?

您好，建議您使用mouse_event或者?Cursor.Position來實(shí)現(xiàn)。例如：

1. 您需要將鼠標(biāo)移動(dòng)dx, dy的位置。

Public?Sub?MouseMoveBy(ByVal?dx?As?Integer,?ByVal?dy?As?Integer)

Cursor.Position?=?New?Point(Cursor.Position.X?+?dx,?Cursor.Position.Y?+?dy)

End?Sub

或者

Public?Sub?MouseMoveBy(ByVal?dx?As?Integer,?ByVal?dy?As?Integer)

mouse_event(0,?dx,?dy,?0,?0)

End?Sub

2. 您需要將鼠標(biāo)移動(dòng)到x, y的位置

Public?Sub?MouseMoveTo(ByVal?x?As?Integer,?ByVal?y?As?Integer)

Cursor.Position?=?New?Point(x,?y)

End?Sub

請(qǐng)您試一下。