検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
NO_492_EDIT をテンプレートにして作成
メニュー
簡易掲示板
LINK集
y.tackの公式BBSブックマーク
practice room
?
最新の20件
2022-10-09
多角形の内外判定
2021-05-19
RecentDeleted
2018-08-01
FrontPage
文字列型変数管理サブルーチン
GAME作成システム
2018-07-31
double型変数管理サブルーチン
int型変数管理サブルーチン
2018-07-21
GUIとメイン分割処理。たたき台2
2018-07-11
memo
NO_579_sample
GUIとメイン分割処理。たたき台
2018-06-28
NO_714
NO_712
NO_706
NO_705
NO_704
NO_703
NO_702
2018-06-23
Shift_JIS
モートン番号テーブル化 / 八分木
total
0
today
0
yesterday
0
now
1
Menu
Total:0/Today:0
開始行:
**NO_492_EDIT [#heca9ff4]
ちょっと簡易エディタもどき作ってます~
Peasライクにしよーかな。と~
#define WM_COMMAND 0x0111
// WM_COMMAND を捕まえる
oncmd gosub *lbl_WM_COMMAND, WM_COMMAND
objsize 640,480
sdim _4note,65000
notesel _4note
_4note="a\nb\nc"
stat4listbox=0
listbox stat4listbox,100,_4note
ID4listbox=stat
screen 1,300,70
stat4input=""
input stat4input,300,40
;button "OK",*set_lb_str
stop
*lbl_WM_COMMAND
if ( ( ( wparam >> 16 ) & 0xFFFF ) == 0x0002 ) {
; dialog "リストの " + stat4listbox + " 番目の要...
gsel 1
tmp=""
if stat4listbox!=-1{
noteget tmp,stat4listbox
objprm 0,tmp
}
}
objsize 100,20
pos 0,40
button "上書き",*set_lb_str
pos 100,40
button "挿入",*insert_lb_str
pos 200,40
button "末尾挿入",*insert_last_lb_str
return
*set_lb_str
noteadd stat4input,stat4listbox,1
gsel 0
objprm ID4listbox,_4note
gsel 1
clrobj 1,-1
stop
*insert_lb_str
noteadd stat4input,stat4listbox,0
gsel 0
objprm ID4listbox,_4note
gsel 1
clrobj 1,-1
stop
*insert_last_lb_str
noteadd stat4input,-1,0
gsel 0
objprm ID4listbox,_4note
gsel 1
clrobj 1,-1
stop
終了行:
**NO_492_EDIT [#heca9ff4]
ちょっと簡易エディタもどき作ってます~
Peasライクにしよーかな。と~
#define WM_COMMAND 0x0111
// WM_COMMAND を捕まえる
oncmd gosub *lbl_WM_COMMAND, WM_COMMAND
objsize 640,480
sdim _4note,65000
notesel _4note
_4note="a\nb\nc"
stat4listbox=0
listbox stat4listbox,100,_4note
ID4listbox=stat
screen 1,300,70
stat4input=""
input stat4input,300,40
;button "OK",*set_lb_str
stop
*lbl_WM_COMMAND
if ( ( ( wparam >> 16 ) & 0xFFFF ) == 0x0002 ) {
; dialog "リストの " + stat4listbox + " 番目の要...
gsel 1
tmp=""
if stat4listbox!=-1{
noteget tmp,stat4listbox
objprm 0,tmp
}
}
objsize 100,20
pos 0,40
button "上書き",*set_lb_str
pos 100,40
button "挿入",*insert_lb_str
pos 200,40
button "末尾挿入",*insert_last_lb_str
return
*set_lb_str
noteadd stat4input,stat4listbox,1
gsel 0
objprm ID4listbox,_4note
gsel 1
clrobj 1,-1
stop
*insert_lb_str
noteadd stat4input,stat4listbox,0
gsel 0
objprm ID4listbox,_4note
gsel 1
clrobj 1,-1
stop
*insert_last_lb_str
noteadd stat4input,-1,0
gsel 0
objprm ID4listbox,_4note
gsel 1
clrobj 1,-1
stop
ページ名: