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


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0908
けんlistbox にid選択したものを表示4解決


けん

リンク

2013/9/8(Sun) 16:42:16|NO.57007

一部のデータで申し訳ありませんが、下記の文字をID登録して

その選んだIDをlistboxに表示させる方法を教えてください。

list_name(0) = "なし","あ","い","う","え"
list_name(5) = "お","か","き","く","け"



この記事に返信する


けん

リンク

2013/9/9(Mon) 19:44:04|NO.57038

参考になるサンプルがあったので掲載します。
下記は、上から順に並んでいますがの県のアドレスを選んだものだけ
listboxに表示させたいと思っています。
よろしくお願いします。


//**************************************************************
// 都道府県IDを渡すと都道府県名を返す
//
// 引数 :(1)kne_name 結果を格納する変数
// (2)ken_id 都道府県ID
// 戻り値:都道府県名
//**************************************************************
#module
#defcfunc fun_GetKenName int ken_id
sdim kens;
kens(0) = "北海道","青森県","岩手県","宮城県","秋田県"
kens(5) = "山形県","福島県","茨城県","栃木県","群馬県"
kens(10) = "埼玉県","千葉県","東京都","神奈川県","新潟県"
kens(15) = "富山県","石川県","福井県","山梨県","長野県"
kens(20) = "岐阜県","静岡県","愛知県","三重県","滋賀県"
kens(25) = "京都府","大阪府","兵庫県","奈良県","和歌山県"
kens(30) = "鳥取県","島根県","岡山県","広島県","山口県"
kens(35) = "徳島県","香川県","愛媛県","高知県","福岡県"
kens(40) = "佐賀県","長崎県","熊本県","大分県","宮崎県"
kens(45) = "鹿児島県","沖縄県"
ken_name = kens(ken_id)
return ken_name
#global
//**************************************************************
// 各都道府県を「\n」で区切った文字列を取得
//
// 引数 :
// 戻り値:都道府県名を「\n」で区切った文字列
//**************************************************************
#module
#defcfunc fun_KenString
kens = ""
ken_name = ""
repeat 47
ken_name = fun_GetKenName (cnt)
kens += ken_name + "\n"
loop
return kens
#global

objsize 100,150
kenString = fun_KenString()
pos 150,140 :combox ken_id,100,kenString
stop



暇人

リンク

2013/9/9(Mon) 20:31:38|NO.57043

いまいち質問の意味が分からないが・・・

#module #defcfunc fun_GetKenName int ken_id if kens=0 {//fun_GetKenNameの度に県名入れるのは無駄なので sdim kens; kens(0) = "北海道","青森県","岩手県","宮城県","秋田県" kens(5) = "山形県","福島県","茨城県","栃木県","群馬県" kens(10) = "埼玉県","千葉県","東京都","神奈川県","新潟県" kens(15) = "富山県","石川県","福井県","山梨県","長野県" kens(20) = "岐阜県","静岡県","愛知県","三重県","滋賀県" kens(25) = "京都府","大阪府","兵庫県","奈良県","和歌山県" kens(30) = "鳥取県","島根県","岡山県","広島県","山口県" kens(35) = "徳島県","香川県","愛媛県","高知県","福岡県" kens(40) = "佐賀県","長崎県","熊本県","大分県","宮崎県" kens(45) = "鹿児島県","沖縄県" } ken_name = kens(ken_id) return ken_name #global iddat=0,5,7,1,10,6 kenString="" repeat length(iddat) id=iddat(cnt) kenString+fun_GetKenName(id) + "\n" ken_id(cnt)=id //県IDを県名順に保存(listboxの順番と県IDをセットにする) loop listbox ken_index,100,kenString ken_index_bak=-1 repeat await 16 if ken_index ! ken_index_bak { id=ken_id(ken_index) title "ken_index="+ken_index+" ken="+fun_GetKenName(id)+" id="+id} loop stop



あり

リンク

2013/9/9(Mon) 21:14:58|NO.57047

こういう事のような気がします。

//************************************************************** // 都道府県IDを渡すと都道府県名を返す // // 引数 :(1)kne_name 結果を格納する変数 // (2)ken_id 都道府県ID // 戻り値:都道府県名 //************************************************************** #module #defcfunc fun_GetKenName int ken_id sdim kens; kens(0) = "北海道","青森県","岩手県","宮城県","秋田県" kens(5) = "山形県","福島県","茨城県","栃木県","群馬県" kens(10) = "埼玉県","千葉県","東京都","神奈川県","新潟県" kens(15) = "富山県","石川県","福井県","山梨県","長野県" kens(20) = "岐阜県","静岡県","愛知県","三重県","滋賀県" kens(25) = "京都府","大阪府","兵庫県","奈良県","和歌山県" kens(30) = "鳥取県","島根県","岡山県","広島県","山口県" kens(35) = "徳島県","香川県","愛媛県","高知県","福岡県" kens(40) = "佐賀県","長崎県","熊本県","大分県","宮崎県" kens(45) = "鹿児島県","沖縄県" ken_name = kens(ken_id) return ken_name #global //************************************************************** // 各都道府県を「\n」で区切った文字列を取得 // // 引数 : // 戻り値:都道府県名を「\n」で区切った文字列 //************************************************************** #module #defcfunc fun_KenString kens = "" ken_name = "" repeat 47 ken_name = fun_GetKenName (cnt) kens += ken_name + "\n" loop return kens #global objsize 100,150 kenString = fun_KenString() pos 150,140 :combox ken_id,100,kenString notesel lb pos 300, 100 listbox lb_st, 100, lb lb_id = stat pos 150, 160 objsize 100, 24 button "選択", *select stop *select notesel kenString noteget cb_tmp, ken_id notesel lb noteadd str(cb_tmp) objprm lb_id, lb noteunsel stop



けん

リンク

2013/9/11(Wed) 00:12:30|NO.57074

暇人さん、ありさん わかりづらい説明の中回答ありがとうございました。

一応、暇人さんの答えが自分のやりたいことに近いようです。
ありさんの回答は、やりたいことの続きで使えそうなので参考にさせて頂きます。
ありがとうございました。



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