HSPTV!掲示板

トラックバーをつかって音楽や動画の音量の調節はどうやってするんですか？

	winobj "msctls_trackbar32", "", , $50000000 | $2, 30, 200
	hTrackbar = objinfo(stat, 2)
	sendmsg hTrackbar, $405, 1, 50
	sendmsg hTrackbar, $414, 10
	sendmsg hTrackbar, $407, 1, 0	
	sendmsg hTrackbar, $408, 1, 100	
	oncmd gosub *vscroll, $115
	dialog "mpg;*.avi;*.wmv;*.asf;*.3gp;*.mp4;*.flv",16,"動画ファイル"
	if stat = 0 : end	
	fname = refstr
	mci "open \""+fname+"\" alias f"	
	if stat = -1 : dialog "Open Error" : end	
	mci "play f"		
	stop
*vscroll
	if lparam = hTrackbar {
		sendmsg hTrackbar, $400
		mci "setaudio f volume to "+(100-stat)
	}
	return

なんとなく作ってみたんですが失敗しました。

実行してみた感じだと

トラックバー動かさなくても再生前に

mci "setaudio f volume to "+500

　 を実行するようにするのと
ボリュームは100が最大じゃなくて1000が最大
ぐらいかな？

後は↓
http://hsp.tv/play/pforum.php?mode=all&num=44807

	winobj "msctls_trackbar32", "", , $50000000 | $2, 30, 200

	hTrackbar = objinfo(stat, 2)
	sendmsg hTrackbar, $405, 1, 100
	sendmsg hTrackbar, $414, 10
	dialog "mpg;*.avi;*.wmv;*.asf;*.3gp;*.mp4;*.flv",16,"動画ファイル"
	filename = refstr
	mci "open \"" + filename + "\" alias volumetest type mpegvideo"
	mci "play volumetest"
	oncmd gosub *vscroll, $114
	stop
*vscroll
	if lparam = hTrackbar {
		sendmsg hTrackbar, $400
		mci "setaudio volumetest volume to "+(stat*10)
	}
	return

解決しました！
ボリュームのところがいけなかったんですかね。