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


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0929
あーちくるコンボボックスについて4解決


あーちくる

リンク

2013/9/29(Sun) 01:28:22|NO.57451

質問です。
コンボボックスで選択した色のRGBをそのまま画面に乗せたいのですがうまくいきません。

コンボボックスで色を選ぶ(赤、緑、青などが書いてある)

その隣にその色に対応したRGBの値を表示させる

わかりづらいかもしれませんがどうかよろしくお願いします



この記事に返信する


あーちくる

リンク

2013/9/29(Sun) 01:32:22|NO.57452

すみません。「わかりづらい」が「わかりずらい」になっていたのでもう一度投稿させてもらいました

うまくいかないというか方法がわからないんです。調べてみてもどこにも書いておらず、自分で考えようと
しても全く思いつかないのです。



ht.

リンク

2013/9/29(Sun) 02:30:52|NO.57453

書いてみましたが解読できるか気になるところです。

sdim rgb_table rgb_table(0) = "0,0,0" rgb_table(1) = "255,0,0" rgb_table(2) = "255,255,0" rgb_table(3) = "0,0,255" rgb_state = 0 combox rgb_state, , "黒\n赤\n黄\n青" pos , 25 repeat if rgb_state != rgb_state_old { rgb_str = rgb_table(rgb_state) split rgb_str, ",", rgb_array color int(rgb_array(0)), int(rgb_array(1)), int(rgb_array(2)) mes rgb_str } rgb_state_old = rgb_state wait 4 loop



あーちくる

リンク

2013/9/29(Sun) 03:05:55|NO.57454

rgb_table(x)の中に入っている(R,G,B)の数値をsplit命令を使って","ごとに区切ってrgb_array
にいれていく、ということでしょうか?

私がやりたかったことと少しだけ違いますがとても参考になりました!これを自分なりに改良すれば
私がほしいものができると思います。本当にありがとうございました!



cats

リンク

2013/9/29(Sun) 09:44:13|NO.57456

解決したようですが、ループを使いたくなければ

sdim com_tex ;内容が返る変数を確保 oncmd gosub *command, $111 ;コンボボックス監視 combox a, 60, "赤\n緑\n青\n黄\n紫" hCom = objinfo (stat, 2) ;オブジェクトハンドル取得 stop *command if lparam = hCom { wNotifyCode = wparam >> 16 & $FFFF ;wparamの上位ワードには通知コードが返る if wNotifyCode = 1 { ;通知コード1の場合は選択状態変化 sendmsg hCom, $D, 64, varptr(com_tex) ;選択中のテキスト取得 switch com_tex case "赤":color 255 :boxf 50,50,100,100:swbreak case "緑":color ,255 :boxf 50,50,100,100:swbreak case "青":color ,,255 :boxf 50,50,100,100:swbreak case "黄":color 255,255 :boxf 50,50,100,100:swbreak case "紫":color 255,,255:boxf 50,50,100,100:swbreak swend } } return



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