下圖是win-7的資源管理器視窗,
如何用excel vba向右上角的搜索框內輸入資訊呢?
能找到句柄,但是無法輸入資訊,沒有反應
uj5u.com熱心網友回復:
不妨換個思路,WINDWOS自帶的這種搜索功能,應該是帶有標準介面的,好像是分在shell類別的,應該在msdn library里搜索一下。uj5u.com熱心網友回復:
是這樣的,請看我下面的描述,
用sendmessage發送字符,有的時候失效,只發送一半的字符,
所以我才設想,能不能也在右上角的搜索框,也輸入搜索內容,做一個雙保險,
關于sendmessage的問題,
請看下面的圖片,要在紅筐內輸入檔案的地址,然后點擊"open",就能把一個檔案上傳到一個網站,
我用的是SendMessage BWnd, WM_SETTEXT, 0, ByVal a
arr(num)是檔案的地址,類似于"C:\Users\xxx\Desktop\a.txt"
運行程序中,我遇到了一個問題,
sendmessage每次都可以把資料輸入到目標文本筐中,
但是經常會出現一個奇怪的現象,
有的時候,只是把檔案名稱輸入進去了,而前面的路徑,卻省略了,
例如
只輸入了“a.txt”
而前面的“C:\Users\xxx\Desktop\”沒有了,
這樣就會導致,再去按"Open"按鈕的時候,就出錯了
這種情況,時而發生,時而不發生
請老師門幫我看看怎么修改代碼
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Const WM_SETTEXT = &HC
Dim BWnd As Long, a as string
a = "aaa"
SendMessage BWnd, WM_SETTEXT, 0, ByVal a
uj5u.com熱心網友回復:
發送文本不只是只有這個訊息可以實作的,你可以換下其它的訊息轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/88100.html
標籤:VBA
下一篇:VB的Dijkstra演算法
