HSPTV!掲示板

こんにちは。
今、ミュージックプレイヤーを作っています。
シークバーをトラックバーで作っています。
トラックバーを動かすと曲の位置が移動するようにはできたのですが、
反対に、曲に合わせてトラックバーを動かすことができません。

repeat
    cls
    〜現在時間を取得〜
    〜トラックバーを表示〜
    wait 50
loop

というようなコードでは、シークしている間にも初期化されますし、画面もチカチカします。
トラックバーを動かすにはどうしたらいいでしょうか。
分かりにくい文ですいません。

トラックバーは自作しているんですか？
それともプラグインを利用してるんですか？

repeat
    cls
    〜現在時間を取得〜
    〜トラックバーを表示〜
    wait 50
loop

このコードでは一秒に約2回しか画面を更新しませんし、
clsをループ中での画面の初期化に利用するのは止めて
boxfなどで塗りつぶせばちらつきが少なくなります。

さっそく回答ありがとうございます＾＾
トラックバーは、

	winobj "msctls_trackbar32", "",,$50000000 | $1,300, 30
	sendmsg , $405, 1, ichi : sendmsg , $414, 10

のようにして作ってます。

私もはじめはboxfで塗りつぶそうと思ったのですが、オブジェクトの上は塗りつぶす事ができない事に気づきました＾＾；

なので、シークバーはトラックバーを使わずに、他の方法でしようかと考えています。

　トラックバーを作るのは最初の１回だけにして、
トラックバーを操作するメッセージか何かがあるはずなので
それを探すのが正解でしょう。

　でも、トラックバーくらい簡単に作れるので、自作する方がいいかも。

トラックバー、一体何者かと思えばllmod3で提供されているtrackboxと同じ物のようですね。
trackboxへ反映するには、以下のようにすれば良いみたいです。
使い物になると良いですが…。

#include "llmod3/llmod3.hsp"
#include "llmod3/trackbox.hsp"

    music_start = 0   ; 曲の先頭位置
    music_end = 200   ; 曲の末尾位置
    music_pos = 0     ; 再生中の位置

*start
    trackbox 200, 40, 0
    trackrng music_start, music_end 
    
*main
    trackpos music_pos                       ; 再生位置の設定
    if (music_pos < music_end): music_pos++  ; 再生位置の取得（のつもり）
    await 20
    goto *main

>　でも、トラックバーくらい簡単に作れるので、自作する方がいいかも。
　撤回。
ユーザーが操作できるようにするのは、けっこうたいへんですね。

sendmsgを使いましょう。
また、この場合clsはいりません。

#const TBM_SETPOS 0x405
#const TBM_GETPOS 0x400

winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30 //トラックバー作成
hTrackbar = objinfo(stat, 2) //ウィンドウハンドルを代入

repeat
  wait 30
  sendmsg hTrackbar, TBM_SETPOS, 1, cnt //トラックバーに値を設定
  sebdmsg hTrackbar, TBM_GETPOS //トラックバーの値を取得
  title str(stat) //トラックバーの値をタイトルバーに適用
loop

すみません。

 sebdmsg 

とかなってるところがありますが、正しくは

 sendmsg

でした。
実行する際は修正してからお願いします。

みなさん、ありがとうございます！
無事、トラックバーを動かす事に成功しました。
本当にありがとうございます。