已在全局函数中声明了以下函数:
Public Function Long LoadImage (Long hInst, String lpsz, Long un1, Long n1, Long n2, Long un2) Library "user32" Alias For "LoadImageA"
string ls_name = "T.ico"
int hIcon
ls_name = GetCurrentDirectory ( ) + "\images\" + ls_name
if hIcon = 0 then // 图标还没有装载
hIcon = LoadImage(0, ls_name , IMAGE_ICON, 0, 0, LR_LOADFROMFILE)
end if
if hIcon = 0 then
MessageBox ("Error", "图标装载失败!")
Return -1
end if
问题:LoadImage装载不成功,返回值为0,麻烦高手些帮我看看,是否是有些地方需要注意的?
------解决方案--------------------
hIcon = LoadImage(0, ls_name , IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
如果是PB10及以上的,用
Public Function Long LoadImage (Long hInst, String lpsz, Long un1, Long n1, Long n2, Long un2) Library "user32" Alias For "LoadImageA;ansi"
------解决方案--------------------
hIcon = LoadImage(0, ls_name , IMAGE_ICON, 0, 0, LR_LOADFROMFILE + LR_DEFAULTSIZE) // LR_DEFAULTSIZE = 64