投稿日 | : 2006/04/24(Mon) 18:50 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: すべて選択(青色状態)の確認 |
逆にお聞きしますが、RET = POSTMESSAGE(IE_HWND,&H111,&HA044,0) ですべて
選択した時に部分的にしか選択できないような場合があるのでしょうか?
すべて選択されているか、いないかの2つしか答えがないのなら
EM_GETSEL で、選択範囲のスタートが 0 で エンド が 0 以上ならすべて選択されて
いると判断してよいのでは。
> lngRet = SendMessage(IE_HWND, &HB0 , 0, 10)
上記では当然取得できません。
Private Declare Function SendMessageRef Lib "user32.dll" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal MSG As Long, wParam As Long, lParam As Long) As Long
Private Const EM_GETSEL = &HB0
Dim Ret As Long
Dim StrIndex As Long
Dim EndIndex As Long
Ret = SendMessageRef(IE_HWND, EM_GETSEL, StrIndex, EndIndex)
Debug.Print StrIndex, EndIndex