| ab.com コミュニティ https://www.activebasic.com/forum/ |
|
| ボタンの右クリック処理方法は？ https://www.activebasic.com/forum/viewtopic.php?t=2684 |
ページ 1 ／ 1 |
| 作成者: | ゲスト [ 2011年7月09日(土) 14:29 ] |
| 記事の件名: | ボタンの右クリック処理方法は？ |
CommandButtonで右クリック処理は可能なのでしょうか？ できるとしたら、どんな方法になるのでしょうか？ （Ver 4.24.00を使用） |
|
| 作成者: | HSABP [ 2011年7月10日(日) 17:57 ] |
| 記事の件名: | |
サブクラスでかいけつ Dim Button as HWND Dim DefaultWndProc As DWord 'SubClass Function SubClass(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord If dwMsg = WM_RBUTTONUP Then MessageBox(hMainWnd, "右クリック", "test", MB_OK) End If SubClass=CallWindowProc(DefaultWndProc, hWnd,dwMsg,wParam,lParam) End Function Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT) Button = GetDlgItem(hMainWnd, CommandButton1) DefaultWndProc=GetWindowLong(Button,GWL_WNDPROC) SetWindowLong(Button,GWL_WNDPROC,AddressOf(SubClass)) End Sub |
|
| 作成者: | たかせ [ 2011年7月11日(月) 20:46 ] |
| 記事の件名: | 大変参考になりました |
HSABP様大変参考になりました。 ありがとうございます。 |
|
| 作成者: | ゲスト [ 2011年7月23日(土) 13:29 ] |
| 記事の件名: | |
HSABPさん、右クリック処理 うまくできました。 ありがとうございます。 |
|
| ページ 1 ／ 1 | 全ての表示時間は UTC+09:00 です |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|