HSPTV!掲示板

HSP-NEXT の hsp3stdlib と Kpan さんの 「HSP3 あれこれ <オ
ブジェクト編 5>コンボボックスの項目選択監視」を組み合わせて、
menu と combox を使おうと思うのですが、うまく行きません。
combox に変化があったかどうか知りたいのです。

oncmd gosub *OnMenuCmd, WM_COMMAND
oncmd gosub *OnComboxCmd, WM_COMMAND
この２つの oncmd のうち前に書いたほうが常に無視されます。

どう処理したらよいのか、ご指導のほどよろしくお願いします。

;;;;;;;;;  ;;;;;;;;;;;;;;  ;;;;;;;;;;;;
	#include "../stdlib/sysval.as"
	#include "../stdlib/gblconst.as"
	#include "../stdlib/winapi32.as"
	#include "../stdlib/exwinstyle.as"
	#include "../stdlib/exmenu.as"
	#include "../stdlib/exstatus.as"
goto *main
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#deffunc combobox
;	WM_COMMAND
	oncmd gosub *OnComboxCmd, $111
	objsize 100
	combox a, 60, "胡瓜\n林檎\n人参\n葡萄\n茄子\n南瓜\n玉葱"
	hCombox = objinfo (stat, 2)
return
;;;;;;;;;;;;;;;;;; begin MENU program  ;;;;;;;;;;;;;;;;;;;;
;▼メッセージの処理 (WM_COMMAND)
*OnMenuCmd
	if lparam != 0 : return
	itemID=LOWORD(wparam)
*PopSelect
;		
		switch itemID
			case 1100
				goto *owari
				swbreak                    
			case 2100
				goto *owari
				swbreak
			default
				swbreak
		swend
return

;▼メッセージの処理 (WM_RBUTTONDOWN)
*OnRbtClick
	SelectMenu 1
	TrackPopup_Menu -1,-1 : itemID=stat
	gosub *PopSelect
return

;▼メニューバーの設定処理
*MenuProc
	;▼メニューの設定
	;---------------------------------------------
	hmenu(1)=Create_Menu(1)
	Append_Menu "End",1100

	hmenu(2)=Create_Menu(2)
	Append_Menu "閉じる   Ctrl+Q",2100

	;▼メニューバー
	hmenu(0)=Create_Menu(0)
	Append_Menu "Help",2,MF_POPUP

	SetMenumode 1  ;//メニュー表示
return   ;;;;;;;;;;;;;;;; end  MENU program  ;;;;;;;;;;

*OnComboxCmd  ;;;;;;;;;;;;;;;;
	if lparam = 0 : return
;	lparamにはコンボボックスのハンドルが返る
	if lparam = hCombox {		
;		wparamの上位ワードには通知コードが返る
		wNotifyCode = wparam >> 16 & $FFFF
;		通知コード1の場合は選択状態変化
		if wNotifyCode = 1 {
			dialog "ABCD"
		}
	}
return  ;;;;;;;;;;;;;;;;

*main
	onexit goto *owari 
	combobox
	oncmd gosub *OnMenuCmd, WM_COMMAND
	oncmd gosub *OnRbtClick,WM_RBUTTONDOWN	
	gosub *MenuProc
	oncmd gosub *OnComboxCmd, WM_COMMAND		
stop

*owari
	end

「WM_COMMAND メッセージの処理」のとこを参照。
http://yokohama.cool.ne.jp/chokuto/urawaza/menu1.html

Kpan さん、何時もご指導有難うございます。

まずは私の coding にミスがありまして誠に申し訳ありませんでした。
oncmd gosub *OnComboxCmd, $111
これが２箇所に書いてありました。

>>「WM_COMMAND メッセージの処理」のとこを参照。
>>http://yokohama.cool.ne.jp/chokuto/urawaza/menu1.html

ちょくとさんの文は読んでて知っているのですが、それでもうまく行かず苦労しています。
library に何をを使うかで、coding style が変わりますので混乱します。hsp3stdlib を
主体にしています。

ところで、
*OnMenuCmd
if lparam != 0 : return

*OnComboxCmd
if lparam = 0 : return

このようにメニューとコンボボックスの message を区別しているのですが、なんら効果
を発揮しません。

もっと別な所で大きなものを忘れているのでしょうか？
ご指導のほどよろしくお願いいたします。

oncmd命令が2度実行されると、
両方に飛ぶのではなく、飛び先の指定が＜＜更新＞＞されるため
「先が無視される」のだろうと思います。

oncmd gosub *OnMessage , WM_COMMAND

と、メッセージによって飛ぶところをひとつにし、そこで

*OnMessage
if lparam {
 gosub *OnComboxCmd
}else{
 gosub *OnMenuCmd
}
return

と場合分けすればいいのではないでしょうか。

あれ？
aさんが対処されたサンプルスクリを返信されてたので、補足情報の意味で投稿
したんですが。。。（＾＾;

Meganeさんが書いているようにoncmd命令を１つに統一させておいてから、
lprarm値をチェックして処理を振り分けてください。
（メニューなら0、コンボならそのウィンドウハンドルが返る。

;	WM_COMMANDのジャンプラベル
*command

	if lparam = 0 {
;		メニュー用処理あれこれ
		return
	}

	if lparam = hCombox {
;		コンボボックスあれこれ
		return
	}

	return

Megane さん
Kpan さん

どうもありがとうございます。
message は２つの発信場所から場合に応じて飛び、２つの受信に来
ると思い込んでいました。
発信場所は１つなんですね。

もう一度御礼申し上げます。