[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
(DTPtechNote:860) Re: Progress Bar
>っていうか、これ、XCodeで簡単にできる。
ってもったいつけてもなんなので(^^;;;;;
http://61.114.199.123/down/ShowProgressBar.app.sit.hqx
みたいに、Xcodeで適当につくっておいて
こんな感じにアクセスする。
set {mini_value, max_value, my_value} to {0, 1000, 0}
repeat with i from 1 to max_value
set my_value to i
set status_str to (my_value & "/" & max_value) as Unicode text
my ShowProgressBar(status_str, mini_value, max_value, my_value)
end repeat
tell application "ShowProgressBar" to quit
to ShowProgressBar(status_str, mini_value, max_value, my_value)
tell application "ShowProgressBar"
activate
tell window 1
set string value of text field 1 to status_str
set properties of progress indicator 1 to {minimum value:mini_value, maximum value:max_value, contents:my_value}
end tell
end tell
end ShowProgressBar
こんなこと、したことなかったから知らなかったけど。
なんか幸せな世の中になったなぁ。。。しみじみ