mes "listboxを使ったフォントの確認" mes "copyleft 2022-06-22 sugiura@nagoya-u.jp" ; 選択肢文字列を事前に変数に入れておくのがコツ fontlist = "UDデジタル教科書体 R\nMS 明朝\nMS ゴシック\nmsgothic\nmsmincho\nMS P明朝\nMS Pゴシック\nHG行書体\nCourier" ; リストの各項目の文字列をnotegetで取得する準備 notesel fontlist ; listboxでは、選択された項目名ではなく、番号が取得される点に注意 *go pos 30, 120 dore = "" ;具体的なフォント名 f = 0 ;listboxで選ばれた番号が入る objsize 160, 100 listbox f,100,fontlist ;listbox 変数, 縦幅, 選択肢文字列 objsize button goto "Check", *change stop ;-----------------------sub---------------- *change cls noteget dore, f ;noteselした変数fontlistのf番目の値をdoreに入れる pos 190, 120 font dore, 36 ;doreの中に具体的なフォント名が入る mes dore mes "" mes "あいちけんなごやし\n愛知県名古屋市\nThis is Nagoya." goto *go