口で説明してもさっぱりだと思うのでスクリプトを載せておきます。
人それぞれ、さまざまな書き方があると思いますが、
とりあえず、自分の書き方です。
#const BUTTONTOTAL 5
#const BUTTON_SIZEX 200
#const BUTTON_SIZEY 20
dim bpx , BUTTONTOTAL
dim bpy , BUTTONTOTAL
dim bcnt, BUTTONTOTAL
objsize BUTTON_SIZEX , BUTTON_SIZEY
pos 0,0
repeat BUTTONTOTAL
bpx(cnt) = button_sizex
bpy(cnt) = ginfo_cy
button gosub strf("No.%d",cnt),*label_count
color : DrawFrame cnt
color 255,255,255 : FillRectInside cnt
loop
repeat BUTTONTOTAL
color 255 : DrawNo cnt
loop
stop
#deffunc DrawFrame int id_
boxf bpx(id_) , bpy(id_) , bpx(id_)+button_sizey-1 , bpy(id_)+button_sizey-1
return
#deffunc FillRectInside int id_
boxf bpx(id_)+1 , bpy(id_)+1 , bpx(id_)+button_sizey-2 , bpy(id_)+button_sizey-2
return
#deffunc DrawNo int id_
pos bpx(id_)+2 , bpy(id_)
mes bcnt(id_)
return
*label_count
bcnt(stat)++
color 255,255,255 : FillRectInside stat
color 255 : DrawNo stat
return
参考にしていただけたら嬉しいです。
画像付きボタンについては objimg 命令で検索してくださいな。