－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
dllname USER
cdeclare long SendMessage(HWND, long, int, long);
dllname "shell32.dll"
cdeclare long ShellExecute(HWND,LPSTR,LPSTR,LPSTR,LPSTR,int);
dim 数,行$,語$,ファイル$,番,番$[1000]
'--------------------------------------------------------------------
const 白紙 = &h0184 '内容をリセットする
sub 常駐リスト白紙
SendMessage(@@hwndToolListL, 白紙, 0, 0)
end sub
'--------------------------------------------------------------------
const 文字列送信 = &h0180'文字列追加
sub 文字列送信(text$)
SendMessage(@@HwndToolListL,文字列送信 ,0,varptr(text$))
end sub
'一覧に項目を１つ追加（index=-1 のときは最後に追加）
'--------------------------------------------------------------------
const 文字列獲得=&h0189
function 文字列獲得$(index)
dim x$ as string[1000]
SendMessage(@@HwndToolListL, 文字列獲得, index, varptr(x$))
文字列獲得$ = x$
end function
'--------------------------------------------------------------------
proc main
@@redraw=0
@line=1
常駐リスト白紙
行$=@TextCr$(@line)
数=1
do while 1
行$=@TextCr$(@line)
文字列送信(行$)
@MoveNextLineCr :数++
if @line=@lastline then exit do
loop
語$="を<全文>読込みました"
ファイル$=@filename$+語$
@@ToolListUserDef ファイル$,macrofilename$ + ",右", \
macrofilename$ + ",ダブル",macrofilename$ + ",シングル"
@@ToolListType = 6 'ユーザー定義一覧
@@PrintToolList = 1 'チェックしてゐる
@@ToolListPos = 3 '常駐リストの位置
@@redraw=1
end proc
proc 右
print "青人草"
end proc
proc ダブル
print "いろは"
end proc
proc シングル
print "あめつち"
end proc
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ |