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/ |