ab.com コミュニティ

>Tomorrow さん

ご紹介いただいたサイトを見ながら出来ました。
ありがとうございました。

typedef struct {
    NMHDR nmhdr;
    UINT msg;
    WPARAM wParam;
    LPARAM lParam;
    CHARRANGE chrg;
} ENLINK;

Type ENLINK
	nmhdr As NMHDR
	msg As DWord
	wParam As WPARAM
	lParam As LPARAM
	chrg As CHARRANGE
End Type

ABで定義されてないAPI関数や構造体を定義するときは、まずC言語用定義を探します。
検索エンジンで関数名や構造体名をキーワードにして[url=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/richedit/richeditcontrols/richeditcontrolreference/richeditstructures/enlink.asp]MSDNのサイト[/url]を見つけるのが、もっとも確実です。

[code]typedef struct {
NMHDR nmhdr;
UINT msg;
WPARAM wParam;
LPARAM lParam;
CHARRANGE chrg;
} ENLINK;[/code]

C用の構造体定義が見つかったらABの書式に書き換えます。
↓が参考になるでしょう。
http://hira.hopto.org/win32api/convert01.htm
どうしてもわからない場合、Cのヘッダファイルをさがして元の定義が何なのかを調べます。

[code]Type ENLINK
nmhdr As NMHDR
msg As DWord
wParam As WPARAM
lParam As LPARAM
chrg As CHARRANGE
End Type[/code]


過去ログを探すと他の人がすでに定義したものが見つかるかもしれません。
また、[url=http://www5e.biglobe.ne.jp/~imanisi/download.html]こちらのサイト[/url]ではAB用のWin32API定義ファイルを公開しています。
これらを切り貼りして利用する手もあります。（著作権等に注意）

もしかして、ENLINK構造体の定義とかもしないといけないんですか
よくわかりません･･･（泣）

Select Case dwMsg
	Case WM_NOTIFY
		Dim lpnmHdr As *NMHDR
		
		If wParam=ID_RICH Then
			lpnmHdr=lParam
			
			Select Case lpnmHdr->code
				Case EN_LINK
					Dim pEnlink As *ENLINK
					pEnlink=lParam
					
					If pEnlink->msg=WM_LBUTTONDOWN Then
						SendMessage(hEdit, EM_EXSETSEL, 0, VarPtr(pEnlink->chrg))
						SendMessage(hEdit, EM_GETSELTEXT, 0, szURL)
						ShellExecute(hEdit, "open", szURL, NULL, NULL, SW_SHOWNORMAL)
					End If
			End Select
		End If
End Select

[quote]> [猫でもわかるプログラミング - 第１４９章 本文中からURLを検出する ]
> http://www.kumei.ne.jp/c_lang/sdk2/sdk_149.htm
>
> 参考にならなかったらすいません。

イベントマスクにENM_LINKを加えるのまで出来たんですが、
WM_NOTIFYメッセージの処理がよくわかりません･･･[/quote]

↑のサイトのWM_NOTIFYメッセージハンドラの部分のみをAB風に書き直しただけのものですが...

[hide=このコードをMainWnd.sbpのMainWndProc関数内に書いてください。]
[code]Select Case dwMsg
Case WM_NOTIFY
Dim lpnmHdr As *NMHDR

If wParam=ID_RICH Then
lpnmHdr=lParam

Select Case lpnmHdr->code
Case EN_LINK
Dim pEnlink As *ENLINK
pEnlink=lParam

If pEnlink->msg=WM_LBUTTONDOWN Then
SendMessage(hEdit, EM_EXSETSEL, 0, VarPtr(pEnlink->chrg))
SendMessage(hEdit, EM_GETSELTEXT, 0, szURL)
ShellExecute(hEdit, "open", szURL, NULL, NULL, SW_SHOWNORMAL)
End If
End Select
End If
End Select[/code][/hide]

> ここは参考になりませんでしょうか？(C言語ですが…)
>
> [猫でもわかるプログラミング - 第１４９章 本文中からURLを検出する ]
> http://www.kumei.ne.jp/c_lang/sdk2/sdk_149.htm
>
> 参考にならなかったらすいません。

イベントマスクにENM_LINKを加えるのまで出来たんですが、
WM_NOTIFYメッセージの処理がよくわかりません･･･

ここは参考になりませんでしょうか？(C言語ですが…)

[猫でもわかるプログラミング - 第１４９章 本文中からURLを検出する ]
http://www.kumei.ne.jp/c_lang/sdk2/sdk_149.htm

参考にならなかったらすいません。

Function OnMouse(ByRef X As DWord,ByRef Y As DWord) As DWord
	Dim A As POINTAPI
	Dim B As RECT
	GetWindowRect(_PromptSys_hWnd,B)
	GetCursorPos(A)
	X=A.x-B.left-6
	Y=A.y-B.top-31
	OnMouse=-1
End Function

if GetAsyncKeyState(1) And &h8000 Then
    '左クリック時
Else if GetAsyncKeyState(2) And &h8000 Then
    '右クリック時
End if

[code]
Function OnMouse(ByRef X As DWord,ByRef Y As DWord) As DWord
Dim A As POINTAPI
Dim B As RECT
GetWindowRect(_PromptSys_hWnd,B)
GetCursorPos(A)
X=A.x-B.left-6
Y=A.y-B.top-31
OnMouse=-1
End Function
[/code]
メニューが入っていなければ、これでマウスのクライアントな位置は把握できたと思います。（古いコード、しかもpromptモードのものから引っ張ったのでなんともいえませんが。）
メニューが入っている場合は上の31を少し大きくしてみるなりして工夫してください。
マウスのボタンがクリックされたかどうかは、僕の場合は
[code]
if GetAsyncKeyState(1) And &h8000 Then
'左クリック時
Else if GetAsyncKeyState(2) And &h8000 Then
'右クリック時
End if
[/code]
これでやっちまいます。

みなさんはじめまして。

リッチエディットを作って、EM_AUTOURLDETECTを送ってURLの検出はできたのですが、
URL検出部分にマウスが来たり、マウスがクリックされたときを知るにはどうすればよろしいでしょうか？