VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -