e语言易语言滚动框滚动图片例子

.版本 2 .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “/psb.jpg”) 图片框1.高度 ＝ 取图片高度 (取运行目录 () ＋ “/psb.jpg”) 纵向滚动条1.最大位置 ＝ 图片框1.高度 － 画板1.高度 .子程序 _纵向滚动条1_位置被改变 图片框1.顶边 ＝ －纵向滚动条1.位置 .子程序 __启动窗口_滚轮被滚动, 逻辑型 .参数 滚动距离, 整数型 .参数 功能键状态, 整数型 纵向滚动条1.位置 ＝ 纵向滚动条1.位置 －