HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0902
VRX1つの comboxに項目追加3解決


VRX

リンク

2013/9/2(Mon) 00:53:31|NO.56810

教えてください。
作成しようとしているデータは、リストボックスから項目を選んだ後に 1つの combox に
追加しようとしています。しかし下記データは、選択毎に combox が増えてしまいます。
教えてください。

// リストボックス項目文字列取得サンプル (by Kpan)

; 文字列が返る変数用の領域をあらかじめ確保
sdim listbox_text

objsize 100

listbox a, 60, "蟷螂\n甲虫\n蟋蟀\n蜻蛉\n飛蝗\n蜘蛛"
hListbox = objinfo(stat, 2)

button "こんちゅう", *check
stop


*check
; 特定の項目の文字列を取得 (LB_GETTEXT)
; 第3パラのwparam値にインデックス番号(0〜)、
; 第4パラのlparam値に取得した文字列を入れる変数ポインタを指定

sendmsg hListbox, $189, a, varptr(listbox_text)

combox b,100,""+listbox_text



この記事に返信する


Evol

リンク

2013/9/2(Mon) 02:00:03|NO.56814

自分もかなり初心者なのですがこんな感じじゃダメでしょうか?



// リストボックス項目文字列取得サンプル (by Kpan) ; 文字列が返る変数用の領域をあらかじめ確保 sdim listbox_text kioku="" objsize 100 b="蟷螂\n甲虫\n蟋蟀\n蜻蛉\n飛蝗\n蜘蛛" listbox a, 60,b button "こんちゅう", *check combox c,100,"" objid=stat ;オブジェクトIDを記憶 stop *check notesel b //bに入っている文字列を呼び出す noteget d,a //bに入っている変数からa行目をdに入れる kioku=""+kioku+""+d+"\n" objprm objid,kioku



あり

リンク

2013/9/2(Mon) 02:13:00|NO.56815

comboxが表示中かどうかのフラグを作って
処理を分岐させればいいと思います。

// リストボックス項目文字列取得サンプル (by Kpan) ; 文字列が返る変数用の領域をあらかじめ確保 sdim listbox_text objsize 100 listdata = "蟷螂\n甲虫\n蟋蟀\n蜻蛉\n飛蝗\n蜘蛛" a = 0 listbox a, 60, listdata : lb_ID = stat hListbox = objinfo(stat, 2) cb_flag = 0 ; comboxが表示中かどうかのフラグ button "こんちゅう", *check stop *check ; 特定の項目の文字列を取得 (LB_GETTEXT) ; 第3パラのwparam値にインデックス番号(0〜)、 ; 第4パラのlparam値に取得した文字列を入れる変数ポインタを指定 ; listboxから選択した項目を取得しcombox用の文字列に追加 notesel listdata noteget getlist, a notesel combdata noteadd getlist ; comboxが非表示なら表示、表示中なら内容を書き換え if cb_flag = 0 { b = 0 combox b,100,combdata : cb_ID = stat cb_flag = 1 } else { objprm cb_ID, combdata objprm cb_ID, 0 } objsel cb_ID ; comboxにフォーカスを移動



VRX

リンク

2013/9/7(Sat) 21:46:20|NO.56981

返答遅くなり申し訳ありません。
Evolさん、同じ初心者ながらのご回答ありがとうございます。
ありさん、ありがとうございました。

また、作ってみたいと思うものがこれに肉付けが必要なので、
いろいろ試していきたいと思います。



ONION software Copyright 1997-2021(c) All rights reserved.