*冷鹰*

财上平如水 人中直似衡

pb中使用getfullstate及setfullstate

如果数据窗口已设置显示水平分隔条(即hsplitscroll=true),在调用数据窗口setfullstate后会出现双滚动条,界面出现一定的零乱。为解决该问题,可以在调用setfullstate后重新设置一下hsplitscroll属性,双滚动条就会消失。

 

       如果数据窗口已设置显示水平分隔条(即hsplitscroll=true),在调用数据窗口setfullstate后会出现双滚动条,界面出现一定的零乱。为解决该问题,可以在调用setfullstate后重新设置一下hsplitscroll属性,双滚动条就会消失。
       以下是笔者自定义的of_setfullstate函数,建立在数据窗口祖先中,你可以使用of_setfullstate代替PB自带的setfullstate函数,你也可以以类似的代码重载setfullstate函数。
/*******************************************************************
函数名称:of_setfullstate()
*******************************************************************/
long ll_return
boolean lb_hsplitscroll
 
ll_return = this.setfullstate(ablb_fullstate)
//如果设置hsplitscroll=true,PB在调用setfullstate后会出现双滚动条,使用下面的代码可以消除双滚动条
lb_hsplitscroll = this.hsplitscroll
if lb_hsplitscroll then
       this.hsplitscroll = false
       this.hsplitscroll = true
end if
 
return ll_return
// Global variable:connection myconnect
// Instance variable: uo_employee iuo_employee
blob lblb_data
long ll_rv
myconnect.CreateInstance(iuo_employee)
iuo_employee.RetrieveData(lblb_data)
ll_rv = dw_empdata.SetFullState(lblb_data)
IF ll_rv = -1 THEN
        MessageBox("Error", "SetFullState failed!")
END IF
阅读更多
想对作者说点什么? 我来说一句

2017年总结

2017年总结

pb8 pb8

2018-01-01 16:59:39

阅读数:69

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭