[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

こんなこと、したことなかったから知らなかったけど。
なんか幸せな世の中になったなぁ。。。しみじみ