.支持庫 iext
.子程序 _按鈕1_被單擊
.局部變量 b, 整數型
.局部變量 a, 整數型
.計次循環首 (樹型框1.取項目數 (), b)
.如果真 (樹型框1.取檢查框狀態 (b) = 1)
a = a + 1
.如果真結束
.計次循環尾 ()
編輯框1.內容 = 到文本 (a)
妳的按鈕直接用上面的源碼應該就是妳要的功能了