HSPTV!掲示板

ペイントを作ってるんですけど、消しゴム機能とファイルの開き方と保存の方法色の変更の方法がわかりません。
↓のコードをいじってつくってください。一気にこんなに聞いてすみませんorz
*hazime
screen 0,640,480
boxf 0,0,100,500
objsize 100,20
button goto "鉛筆 ",*roo
button goto "太ペン ",*hosi
button goto "初期化",*hazime
button goto "消しゴム",*kesi
button goto "色の変更",*iro
button goto "保存",*hozo
button goto "開く",*hira

stop
*roo
repeat
getkey mc,1
if mc = 1 : line mousex,mousey : else : pos mousex,mousey
wait 1
loop
stop
*hosi
paint_char(0)="●"
*top
title ">"+paint_char(n)
x=mousex:y=mousey
stick key,256
if (key & 256):pos x-10,y-10:mes paint_char(n)
if (key & 512):n=(n+1) & 3
await 1
goto *top
stop
*kesi
stop
*iro
dialog "",38
stop
*hozo


stop
*hira
stop

消しゴム機能・・・色を背景色と同じにするだけです。
ファイルの開き方・・・過去ログ検索しましょう。
保存の方法・・・過去ログ検索しましょう。
色の変更・・・ＣＯＬＯＲを使います。

いじってつくってください・・・誰か親切な人が叶えてくれるでしょう。

適当に返す感じになってしまいますが

このサイトはどうでしょうか?参考になると思うのですが

http://kataline.com/hsp.html


ここの掲示板ってほかのサイトを貼っていいのかわからないので
貼ってはいけないのでなれば除去するので言ってください

/*ご参考(メニューやツールボックスや別ウインドウ等考察して下さい)*/

#include "gdi32.as"
#include "user32.as"
 mref Bm,67
  dim Pe,16                                  :Pe = 0,0,1,0
 font msmincho,13
 objmode 3
 button gosub "端点○",*label_1
 button gosub "端点□",*label_2
 button gosub "細  線",*label_3
 button gosub "太  線",*label_4
 button gosub "直  線",*label_5
 button gosub "点  線",*label_6
 button gosub "  色  ",*label_7
 button gosub "消ゴム",*label_8
 button gosub "消  去",*label_9
 button gosub "開  く",*label_A
 button gosub "保  存",*label_B

 repeat
                  :WindowFromPoint ginfo(0),ginfo(1)
      getkey ii,1 :if (ii == 1) and (stat = hwnd) {line mousex,mousey} else {pos mousex,mousey}
      await       :redraw
 loop

 stop
*label_1   :Pe(0)  =    0     :gosub *Label_D       :gosub *label_C    :return
*label_2   :Pe(0)  = $100     :gosub *Label_D       :gosub *label_C    :return
*label_3   :Pe(2)  =    1     :gosub *Label_D       :gosub *label_C    :return
*label_4   :Pe(2)  =   10     :gosub *Label_D       :gosub *label_C    :return
*label_5   :Pe(1)  =    0     :gosub *Label_D       :gosub *label_C    :return
*label_6   :Pe(1)  =    2     :gosub *Label_D       :gosub *label_C    :return
*label_7   :dialog "",38
 if (stat) {Pe(3)  = ((ginfo_b<<16 & $FF0000)|(ginfo_g<<8&$FF00)|(ginfo_r&$FF))
                                                    :gosub *label_C}   :return
*label_8   :Pe(3)  = $ffffff  :                     :gosub *label_C    :return
*label_9   :color $ff,$ff,$ff :boxf :Pe = 0,0,1,0   :gosub *label_C    :return
*label_A   :dialog "bmp",16
 if (stat) {pos 0,0           :gosub *label_9       :picload refstr,1} :return
*label_B   :dialog "bmp",17
 if (stat) {bmpsave refstr}   :                                        :return
*label_C   :nn     = 0,Pe(3),0:ExtCreatePen $10000|Pe(0)|Pe(1),Pe(2),varptr(nn),0,0
           :Pe(4)  = stat     :Bm(37) = Pe(4)                          :return
*label_D   :if (Pe(3) == $ffffff) {Pe(3) = 0}                          :return

あなたのような方がいるので、自分で解決方法を編み出しました

↑kaさんにいっておるぞ

自分で作るのが当たり前じゃないの？
いじってつくってください・・・ってなんでHSP使ってんの？
判らない部分を教えて下さいってのなら解るんだけど・・・
ＫＡさんは充分親切じゃないかと思いますが。

解決の参考になれてうれしく思います。