在PowerBuilder中调用ChooseColor函数

在PowerBuilder中调用ChooseColor函数

(加入日期:2003-6-5)

保存文章至硬盘】【打印文章】【字体:

分享到: 0
首先创建一个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 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值