易语言窗口添加垂直滚动条

.如果 (取反 (VVisible) ≠ 假)
显示滚动条_ (取窗口句柄 (), #SB_HORZ, 0)
VVisible ＝ 真
按钮2.标题 ＝ “显示纵向滚动条”
.否则
显示滚动条_ (取窗口句柄 (), #SB_HORZ, 1)
VVisible ＝ 假
按钮2.标题 ＝ “隐藏纵向滚动条”

.判断开始 (uMsg ＝ #WM_VSCROLL) ' 垂直滚动条消息
ret ＝ LoWord (wParam)
.如果 (ret ＝ #SB_LINEUP 或 ret ＝ #SB_LINEDOWN)
.如果 (ret ≠ 0)
yInc ＝ 1
.否则
yInc ＝ -1

.DLL命令 设置窗口信息_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息 指定数据的前一个值
.参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
.参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
.参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值