- 博客(0)
- 资源 (3)
- 收藏
- 关注
在PB中使用 动态链接库,阳历转阴历
pb中使用
声明:
function long MyFormatLunarYear(long iYear,ref string text) library "calendar.dll"
function long MyGetLunarDate(long iYear, long iMonth, long iDay, ref long iLunarYear, ref long iLunarMonth, ref long iLunarDay) library "calendar.dll"
function long getjieqi(long iYear, long iMonth, long iDay) library "calendar.dll"
使用:
//阴历生日提醒
long ll_nian,ll_yue,ll_ri,ll_oldnian,ll_oldyue,ll_oldri
string ls_time,ls_1,ls_yinli
ls_time=string(today())
ll_nian=long(left(ls_time,4))
ll_yue=long(mid(ls_time,6,2))
ll_ri=long(right(ls_time,2))
MyGetLunarDate(ll_nian,ll_yue,ll_ri, ref ll_oldnian, ref ll_oldyue, ref ll_oldri)
ls_yinli=string(ll_oldnian)+"-"+string(ll_oldyue)+"-"+string(ll_oldri)
st_2.text="今天是:"+"阳历"+string(today())+","+"阴历"+ls_yinli
2008-10-24
pb动态生成菜单.txt
在PB帮助的MENU OBJECT一节当中,关于其PROPERTIES描述当中有一项:
Item[ ] Menu Specifies the Menu objects under a Menu object.
这看似简单的一句话其实包含了三层含义:
1、这句话说明MENU对象有一个属性为数组类型,它其中的各个元素记录了其所有的具体子ITEM项目,可以借助这个数组中各元素来访问底层的各子菜单;
2、这些子ITEM项目仍是MENU类型,因此可以按照第一点的逻辑继续向下层推广,借助该子ITEM的ITEM[]属性可以进而访问其所属下层的第二层子菜单,推而广之,即可全面遍历整个菜单体系的所有子菜单项目;
3、既然该属性是一个数组类型,那么就可以按照数组类型变量来处理,我们可以对其进行upperbound()、lowerbound()等函数操作,还可以进行数组的扩展,即添加新项目,这一点很重要,它是我们整篇文章的核心,如何利用PB实现动态添加菜单,说白了就是添加这个数组元素(读者必须对此有一个清晰的认识),同时期间有一些配套具体的实现技巧,详见下文。
2008-10-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人