툴북 스크립트 정리

목차

--클립 play, wav 파일명 sound

--클립 stop, wav

--클립 소리 작게 << - text field volume

--클립 소리 작게 >>

--라디오 버튼 그룹으로..이름(Mute Normal Full)

-- 현재 해상도 알기

...

본문내용

photoNumber = photonumber +1
if photonumber > 12
photoNumber = 1
end
photoClip = "p" & photoNumber
mmPlay clip photoClip in stage "photo"
end
-- 쇼 시작 끝
to handle buttonClick
if caption of self = "Start Show"
set timerID of self to timerStart("periodic",1000,1000,self)
caption of self = "Stop Show"
else
send stopShow
end if
end buttonClick
to handle timerNotify timerID
system photo_num
if photo_num = null
photo_num = 0
end if
photo_num = photo_num+1
if photo_num > 12
photo_num = 1
end if
myPhotoClip = "p" & photo_num
mmPlay clip myPhotoClip in stage "photo"
end
to handle stopShow
get timerStop(timerID of self)
clear timerID of self
caption of self = "Start Show"
end
notifyAfter enterPage
caption of self = "Start Show"
end
notifyAfter leavePage
if caption of self = "Stop Show"
send stopShow
end if
end
--EXIT Button
to handle buttonClick
txt="Are You EXIT??"
request txt with "Yes" or "No"
if it = "Yes"
send exit
else
break buttonClick
end
end buttonClick
--------------------------------------------
페이지 옮기기
지정된 페이지로
to handle buttonClick
go to page "Second"
end buttonClick
다음페이지로
to handle buttonClick
go to next page
end buttonClick
이전 페이지로
to handle buttonClick
go to previous page
end buttonClick
--------------------------------------------
버튼이나 그룹 보이기.
to handle buttonClick
show button "test"
end buttonClick
to handle buttonClick
show group "group"
end buttonClick
버튼이나 그룹 숨기기.
to handle buttonClick
hide group "group"
end buttonClick
to handle buttonClick
hide button "test"
end buttonClick
--------------------------------------------
마우스 들어올시 event
to handle mouseEnter
beep 1
syscursor=44
end mouseEnter
마우스 나갈시 event
to handle mouseLeave
syscursor=default
end mouseLeave
--------------------------------------------
파일 오픈하기.
이소스는 txt파일만 열수 있음.
to handle buttonClick
linkDLL "TBDLG.DLL"
STRING openFileDlg(STRING,STRING,STRING,STRING,INT)
end linkDLL
filterList = "Text Format (*.txt),*.txt, All (*.*),*.*"
get openFileDlg("Choose Text File ....",null,null,filterList,1)
if it is null
request "User Canceled."
break to system
end if
FileName = it
systemLockScreen = true
closeFile FileName
openFile FileName
readFile FileName to EOF
text of field "field1" = it
closeFile FileName
end
--------------------------------------------
stage.tbk <--동영상및 그림 파일들에 관한 스크립트
-- 동영상 재생
to handle buttonClick
mmplay clip "train" in stage "stage"
end buttonClick
-- 멈춤
to handle buttonClick
mmPause clip "train"
end buttonClick
-- 정지
to handle buttonClick
mmstop clip "train"
end buttonClick
-- 맨 끝으로
to handle buttonClick
mmseek clip "train" to 0 from end
end
-- 앞으로 감기
to handle doStep
mmStep clip "train" by "100"
end doStep
to handle buttonClick
send doStep
end buttonClick
to handle buttonStillDown
send doStep
end buttonStillDown
-- 맨 앞으로
to handle buttonClick
mmSeek clip "train" to 0
end buttonClick
-- 뒤로 감기
to handle doStep
mmStep clip "train" back by "100"
end doStep
to handle buttonClick
send doStep
end buttonClick
to handle buttonStillDown
send doStep
end buttonStillDown

키워드

툴북,   멀티,   미디어,   스크립트,   정리,   설명