pb的windows窗体框颜色自定义

题主是否想询问“pb的windows窗体框怎么调颜色自定义”？

1、首先打开pb的windows。

2、其次在窗口找到editsoucrce右键。

3、最后打开后编辑颜色值即可。

这是给你找的一段肯定能用的代码，如果修改后还是不能用，判断结果也判断不出来，数据库里面也没东西，你可以从以下方面找原因

1存入的 blob 大小不能超过 32k 造成的

找到pb安装路径下的 pbodbXXini

查找节点 [Microsoft SQL Server] 下的设置项 PBMaxBlobSize

把PBMaxBlobSize='32767' 改为 PBMaxBlobSize='0'

2pb版本比较低，可以升级为build 444 或者更高版本

3是不是路径问题，好好追踪一下，相对路径，计算文件大小时是会有问题

个人建议，还是存到目录里面，只存个路径，这样速度也快些

integer li_file,li_ret,loops,i

string ls_file,ls_path,ls_coding

blob lb_small

long flen,bytes_read,new_pos

setnull(lb_image)

debugbreak()

ls_coding=dw_1getitemstring(1,"coding")

ls_path=gs_path+ls_coding+"bmp"

ls_file=ls_coding+"bmp"

flen = filelength(ls_file)

li_file = fileopen(ls_path,streammode!,read!,lockread!)

if flen > 32765 then

if mod(flen,32765)=0 then

loops = flen/32765

else

loops = (flen/32765) + 1

end if

else

loops = 1

end if

new_pos = 1

for i = 1 to loops

bytes_read = fileread(li_file,lb_small)

if i = 1 then

lb_image = lb_small

else

lb_image = lb_image + lb_small

end if

next

fileclose(li_file)

p_1setpicture(lb_image)

sqlcaautocommit = true

updateblob tbl_sickarchives set zwtz = :lb_image where coding = :ls_coding;

if SQLCASQLCode = -1 then

MessageBox("提示","错误信息为："+SQLCASQLErrText,Information!)

end if

以上就是关于pb的windows窗体框颜色自定义全部的内容，包括:pb的windows窗体框颜色自定义、如何用pb6.5 向 sqlserver2000 存图片。、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！