递归火山软件开发平台

标题: 滚动条 [打印本页]

---

作者: 109691180    时间: 前天 12:12
标题: 滚动条


<火山程序 类型 = "通常" 版本 = 1 />

方法 纵向滚动条_位置被改变 <接收事件 类型 = 整数 注释 = "当滚动条位置被改变后本事件被发送">
参数 来源对象 <类型 = 纵向滚动条 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
    如果 (来源对象 == 纵向滚动条1)
    {
        画板1.顶边 = -纵向滚动条1.位置
    }
    返回 (0)
}

方法 横向滚动条_位置被改变 <接收事件 类型 = 整数 注释 = "当滚动条位置被改变后本事件被发送">
参数 来源对象 <类型 = 横向滚动条 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
    如果 (来源对象 == 横向滚动条1)
    {
        画板1.左边 = -横向滚动条1.位置  
    }
    返回 (0)
}

方法 选择夹布局1_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
参数 来源对象 <类型 = 选择夹布局1 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
    纵向滚动条1.置滚动范围 (0, 画板1.高度 - 组件布局器1.高度)
    横向滚动条1.置滚动范围 (0, 画板1.宽度 - 组件布局器1.宽度)
    返回 (0)
}

---

欢迎光临 递归火山软件开发平台 (https://bbs.voldp.com/)

Powered by Discuz! X3.4