這種方法，不僅僅是圖片框，可以是任何有鼠標位置移動事件的組件，這樣任何組件都可以模仿圖形按鈕的鼠標滑動效果。
.版本 2
.支持庫 spec
.子程序 _圖片框_主載體_鼠標位置被移動, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
.局部變量 tpk, 圖片框
tpk ＝ 取事件組件 ()
.如果真 (集_id ≠ 到整數 (tpk.標記))
集_id ＝ 到整數 (tpk.標記)
調試輸出 (“圖片框標記為” ＋ 到文本 (集_id) ＋ “鼠標被稱入”)
.如果真結束
.子程序 __啟動窗口_鼠標位置被移動, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
.如果真 (集_id ≠ 0)
調試輸出 (“圖片框標記為” ＋ 到文本 (集_id) ＋ “鼠標被移出”)
集_id ＝ 0