使用API给任意控件加滚动条

子程序指针 ＝ API_SetWindowLong (图片框1.取窗口句柄 (), -4, &处理)
API_ShowScrollBar (图片框1.取窗口句柄 (), #SB_BOTH, 1)
API_EnableScrollBar (图片框1.取窗口句柄 (), #SB_VERT, #ESB_DISABLE_UP)
API_SetScrollRange (图片框1.取窗口句柄 (), #SB_HORZ, 1, 图片框2.宽度 － 图片框1.宽度, 1)
设置滚动条最大和最小位置，在窗口结构中为指定的窗口设置信息指定数据的前一个值，请参考GetWindowLong函数的nIndex参数的说明，使能取消滚动条设置滚动条位置。
.如果真 (EnableScroll (句柄, #SB_VERT) ＝ 假)
返回 (API_CallWindowProc (子程序指针, 句柄, 消息, 参数1, 参数2))
.如果真结束
.判断开始 (LoWord (参数1) ＝ #SB_LINEUP)
图片框2.顶边 ＝ 图片框2.顶边 ＋ 1
.判断 (LoWord (参数1) ＝ #SB_LINEDOWN)
图片框2.顶边 ＝ 图片框2.顶边 － 1
.判断 (LoWord (参数1) ＝ #SB_PAGEDOWN)
图片框2.顶边 ＝ 图片框2.顶边 － 页改变值
.判断 (LoWord (参数1) ＝ #SB_PAGEUP)
图片框2.顶边 ＝ 图片框2.顶边 ＋ 页改变值
.判断 (LoWord (参数1) ＝ #SB_THUMBTRACK)
API_SetScrollPos (句柄, #SB_VERT, HiWord (参数1), 1)
图片框2.顶边 ＝ －HiWord (参数1)