在PowerBuilder里面调用ChooseColor函数 - PowerBuilder - 51CTO技术论坛

社区导航: 专家门诊网络技术操作系统数据库程序设计系统应用考试认证 CIO及信息化站长交流综合交流下载基地 51CTO产品服务

【设为首页 | 收藏本站】

51CTO技术论坛» PowerBuilder » 在PowerBuilder里面调用ChooseColor函数 [ 打印] [ 订阅] [ 收藏] [ 推荐给朋友] [ 本帖文本页]

论坛跳转:

ribut9225

主版主

帖子 3106
精华 1
无忧币 5979
积分 4096
阅读权限 150
来自 (保密)

注册日期 2006-6-22

最后登录 2008-10-7

离线

[查看资料] [发短消息] [Blog]

发表于:2008-6-26 09:35　　标题：在PowerBuilder里面调用ChooseColor函数
＜上一帖 | 下一帖＞

在PowerBuilder里面调用ChooseColor函数
首先创建一个Custom user object并定义如下Structure(OS_ChooseColor):
long lstructsize
ulong hwndowner
ulong hinstance
long rgbresult
blob lpcustcolors
long flags
long lcustdata
long lpfnhook
long lptemplatename
定义实例变量:
Private:
os_ChooseColor istr_ChooseColor
long il_CustomInitColors[16]
blob{64} ibl_CustomColors
定义外部函数::
function boolean ChooseColorA( REF os_ChooseColor lpcc ) library "comdlg32.dll"
在 constructor 事件中写入如下代码::

// initialize choosecolor information
// convert the default custom color array to a blob variable blobedit(ibl_customcolors,1,il_custominitcolors)
// let the structure element point to the blob array
istr_choosecolor.lpcustcolors = ibl_customcolors
// set the size
istr_choosecolor.lStructSize = 36
// no owner
SetNull(istr_choosecolor.hwndOwner)
// set flag
istr_choosecolor.flags = 1
创建对象函数:boolean of_choosecolor(ref long al_rgbresult) ,代码如下:
boolean lb_ok
istr_ChooseColor.rgbresult = al_rgbresult
lb_ok = ChooseColorA ( istr_choosecolor )
al_rgbresult = istr_ChooseColor.rgbresult
return lb_ok