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


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
0407
冨山数字が重複しないようにしたい5解決


冨山

リンク

2014/4/7(Mon) 12:35:48|NO.61441

コンボボックスを使ったときに、変数が充てられるのですが、この数字を重複しないようにしたいです。


combox playerpos1(1) , 100 , "投\n捕\n一\n二\n三\n遊\n左\n中\n右\nDH" combox playerpos1(2) , 100 , "投\n捕\n一\n二\n三\n遊\n左\n中\n右\nDH" <pre/> このようになっているのですが、playerpos1(1)とplayerpos1(2)が被るとおかしくなるので、ダイアログで警告などを表示したいです。 お願いします



この記事に返信する


fortunehill

リンク

2014/4/7(Mon) 12:53:52|NO.61442

/*ご参考(こう言う事?)*/

combox playerpos1(1) ,100,"投\n捕\n一\n二\n三\n遊\n左\n中\n右\nDH" ID = stat ;途中オブジェクトを削除しなければ0から始まる連番が帰るハズ combox playerpos1(ID+1),100,"投\n捕\n一\n二\n三\n遊\n左\n中\n右\nDH" /* ;(トリッキーなオマケ) mes NextID() ;次に適用されるオブジェクトID wait 100 clrobj 0 ;ID0を削除してみる mes NextID() stop #defcfunc NextID local nn,local ii,local rr mref nn,96+ginfo_sel if (nn(72) == 0) {return rr} dupptr ii ,nn(71),nn(72)*48 :rr = nn(72) repeat nn(72) :if (ii(cnt*12+2) == 0) {rr = cnt :break} :loop return rr */



冨山

リンク

2014/4/7(Mon) 13:01:45|NO.61443

すみません書き間違えてました。

コンボボックスで選択する中身を被らないようにしたいでした。

コンボボックスで選択して、ボタンを押したときに重複していないかをチェックしたいということです。



YSR

リンク

2014/4/7(Mon) 13:21:19|NO.61445

>NO.61443
ここで、
「別途ボタンを設置して、クリックした際にコンボボックスの内容が正しいかチェックする」
のでしたら、notesel・noteget命令で各々選択された文字列を抽出して比較するか、
それぞれのコンボボックスにおける選択番号を比較するかの2通りが考えられます。
(各々のコンボボックスの内容が同じなら後者推奨)

ですが、
「あるコンボボックスが変化した際、他のコンボボックスで同じ内容を選択できないようにする」
のでしたら、コンボボックスの変更を監視して、それ以外のコンボボックスの内容を
動的に変更する必要があります。つまり、原本となる選択用ノートパッド文字列を用意し、
notedel命令を駆使して各コンボボックス用にリストを作成する必要があります。
当然こちらの方が面倒ですが、より便利かもしれません。

各々の実装は……忙しいので後で。



fortunehill

リンク

2014/4/7(Mon) 13:37:48|NO.61446

/*ご参考2(こう言う事?)*/

combox playerpos1(1) , 100 , "投\n捕\n一\n二\n三\n遊\n左\n中\n右\nDH" playerpos1(2) = 1 ;初期値をズラして置く combox playerpos1(2) , 100 , "投\n捕\n一\n二\n三\n遊\n左\n中\n右\nDH" oncmd gosub *label,$111 ;WM_COMMAND stop *label if (lparam == objinfo(0,2)) or (lparam == objinfo(1,2)) {;COMBOX0とCOMBOXを選別 if ((wparam>>16&&$FF) == 1) and (playerpos1(1) == playerpos1(2)) {dialog}} ;COMBOXが選択されて尚且つ変数playerpos1(1)とplayerpos1(2)の値が〃 return



冨山

リンク

2014/4/7(Mon) 15:14:33|NO.61447

なんとかなりました。ありがとうございました



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