求大神指點(diǎn)vb.net 怎么實(shí)現(xiàn)鼠標(biāo)左鍵按住在移動鼠標(biāo)達(dá)到選中文件的效果呀.我用mouse_even沒有效果.

看圖片背景，我又試了下資源管理器，文件是選中的狀態(tài)

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

選中文件和選中文字，背景色是不同的

vb后臺模擬鼠標(biāo)點(diǎn)擊網(wǎng)頁

最近也在搜尋用postmessage模擬鼠標(biāo)點(diǎn)擊網(wǎng)頁，只能激活瀏覽器，而不能點(diǎn)擊某按鈕。因?yàn)檎也坏皆摗鞍粹o”的hwnd??！

如果僅僅是網(wǎng)頁，而不是Flash，就好辦多了。

從菜單“工程、部件”加入Microsoft internet控件，畫一個(gè)webbrowser1 控件

導(dǎo)航到你的網(wǎng)站，在webbrowser1_DocumentComplete事件中，檢測你要的按鈕（先分析源代碼找出你要的按鈕或鏈接）

如：

On Error Resume Next

Dim docm As HTMLDocument, obj1 As Object

If Not (pDisp Is webbrowser1.Object) Then Exit Sub

Set docm = webbrowser1.Document

For Each obj1 In docm.getElementsByTagName("input")

……

next

直接docm.getElementByid("xxxxxxx")

找到后，把它賦值給一個(gè)全局變量（如dim htmlIn as HTMLInputElement定義一個(gè)按鈕輸入框），再用Timer控件點(diǎn)擊它： htmlIn.click

……

建議40秒導(dǎo)航一次該網(wǎng)站：webbrowser1.Navigate strURL

在前面的事件中點(diǎn)擊。

因?yàn)閣ebbrowser1.fresh只發(fā)送一部分信息，網(wǎng)站只接受并返回一部分信息

vb.net label跟著鼠標(biāo)移動

簡單啊

第一個(gè)問題

在鼠標(biāo)的 move事件里面 得到鼠標(biāo)的坐標(biāo)點(diǎn)，然后更改label的，left 和top屬性。具體的值你自己去算。

第二個(gè)問題

其實(shí)跟地一次差不多，只不過過加個(gè)標(biāo)記，判斷鼠標(biāo)是否在按鈕上進(jìn)行了點(diǎn)擊操作，鼠標(biāo)按下時(shí)變成TRUE 然后也是在鼠標(biāo)MOVE的時(shí)候，更改按鈕的坐標(biāo)點(diǎn)。當(dāng)鼠標(biāo)彈起的時(shí)候?qū)⑦@個(gè)標(biāo)記置換成FALSE

回答完畢

VB中后臺鼠標(biāo)移動怎么做

你應(yīng)該調(diào)用API

Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean

然后把鼠標(biāo)移動上去