VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/04/28(Fri) 15:15 |
| 投稿者 | ： ジュン |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 再度に渡り質問させてもらいました。 |
お世話になります。
再度に渡り質問させてもらいました。
’すべて選択されているか’又は’すべて選択されていないか’の
２通りどちらかの確認につきまして、StrIndex, EndIndexの情報からは
判断することはできませんでした。
質問
取得するハンドルは"Internet Explorer_Server" で良いでしょうか。
宜しくお願い致します。
Private Declare Function APIFINDWINDOW Lib "user32" Alias "FindWindowA" (
ByVal lpClassName
As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (B
yVal hWnd As Long,
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessageRef Lib "user32.dll" Alias "SendMessageA&q
uot; (ByVal hWnd As
Long, ByVal MSG As Long, wParam As Long, lParam As Long) As Long
Private Const EM_GETSEL = &HB0
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (B
yVal hWnd As Long,
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA&q
uot; (ByVal
hWndParent&, ByVal hWndChildAfter&, ByVal lpszClass$, ByVal lpszWindow$)
Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA"
(ByVal lpClassName$,
ByVal lpWindowName$)
Private Sub Command1_Click()
Dim Ret As Long
Dim StrIndex As Long
Dim EndIndex As Long
Dim IE_HWND As Long
IE_HWND = FindWindow("IEFrame", vbNullString)
If IE_HWND <> 0 Then
Ret = SendMessage(IE_HWND, &H111, &HA044, 0) 'すべて選択
child = FindWindowEx(IE_HWND, 0, "Shell DocObject View", vbNullString)
child = FindWindowEx(child, 0, "Internet Explorer_Server", vbNullString)
Ret1 = SendMessageRef(child, EM_GETSEL, StrIndex, EndIndex)
Text1 = Str$(StrIndex)
Text2 = Str$(EndIndex)
Text3 = Str$(child)
If StrIndex = 1 Then Ret = PostMessage(IE_HWND, &H111, &HA220, 0)
Debug.Print StrIndex, EndIndex
End If
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）