ただ、repeat〜loopではなく、oncmd等の割り込み処理でやりたいと思っています。
私的に考えたのですが、もしタブの部分がオブジェクトの集りでしたら、タブの部分のハンドルをどうにか取得し、
WM_PARENTNOTIFYメッセージ等で処理できないかと思いました。
やり方がわかる方教えて頂けますか?
/*━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━・ タブコントロールのアイテム右クリック判定 テストプログラム ──────────────────────────────・*/ /*━━━━━━━━━━ マクロ登録 ──────────*/ //----メッセージ用 #define TCM_ADJUSTRECT 0x1328 #define TCM_INSERTITEM 0x1307 #define TCS_MULTILINE 0x0200 ;複数行で表示 #define TCM_DELETEITEM 0x1308 ;タブの削除 #define TCM_GETCURSEL 0x130B ;現在選択されているタブのインデックス #define TCM_SETCURSEL 0x130C ;タブを選択 #define TCM_GETITEMCOUNT 0x1304 ;タブの数を取得 #define TCM_GETITEM 0x1305 ;タブに関する情報を取得 #define TCM_SETITEM 0x1306 ;タブの属性を設定 #define TCM_DELETEALLITEMS 0x1309 ;アイテム全削除 #define WM_SETFONT 0x0030 ;フォントの設定用 /*━━━━━━━━━━ タブコントロールの作成 ──────────*/ //----オブジェクト作成 winobj "systabcontrol32", "", , $52000000 , 400 , 300 ;オブジェクト作成 TabID=stat :TabHwnd=objinfo_hwnd(TabID) ;画面IDとハンドルの取得 //----タブの追加 Text="タブ1" :Frag = 1,0,0,varptr(Text) :sendmsg TabHwnd , TCM_INSERTITEM , 0 , varptr(Frag) Text="タブ2" :Frag = 1,0,0,varptr(Text) :sendmsg TabHwnd , TCM_INSERTITEM , 1 , varptr(Frag) Text="タブ3" :Frag = 1,0,0,varptr(Text) :sendmsg TabHwnd , TCM_INSERTITEM , 2 , varptr(Frag) stop