コード: 全て選択
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
↑のサイトのWM_NOTIFYメッセージハンドラの部分のみをAB風に書き直しただけのものですが...> [猫でもわかるプログラミング - 第１４９章 本文中からURLを検出する ]
> http://www.kumei.ne.jp/c_lang/sdk2/sdk_149.htm
>
> 参考にならなかったらすいません。
イベントマスクにENM_LINKを加えるのまで出来たんですが、
WM_NOTIFYメッセージの処理がよくわかりません･･･
コード: 全て選択
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コード: 全て選択
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