powerbuilder函数:在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 .gif' /> to a blob variable blobedit(ibl_customcolors,1,il_custominitcolors)

// let the structure element po to the blob .gif' />
istr_choosecolor.lpcustcolors = ibl_customcolors

// the size
istr_choosecolor.lStructSize = 36

// no owner
SetNull(istr_choosecolor.hwndOwner)

// 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
lb_ok 

延伸阅读

• 2011-5-18-- 函数调用,6.6.1 F# 中函数调用的类型推断
• 2010-11-26-- 调用api函数,用Visual C#调用Windows API函数
• 2011-1-17-- 函数调用,select操作的函数调用
• 2011-5-9-- 函数调用,利用Call Stack窗口查看函数调用信息
• 2009-9-12-- 函数调用:4.1.3　函数调用时发生了什么
• 2009-9-12-- 函数调用:反汇编深入分析函数调用
• 2011-3-21-- 七雄争霸武将进阶,ESFramework 4.0 进阶（07）－－ 消息同步调用
• 2010-12-28-- 函数调用,C# 调用Dll中非托管C++代码时，函数参数的类型对照
• 2009-2-12-- onapiconnect:使用PB调用API自动更新（非FTP模式）（五、复制函数F_CONNECT_COPYFILE）
• 2009-1-9-- 调用dll中的函数:C#中正确的调用API函数