pb中如何声明一个控件的变量

flyandfade 2011-03-22 09:41:16

我想声明一个列表框控件类型的变量，请前辈们指点。

...全文

167 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

flyandfade 2011-03-25

打赏
举报

回复

太谢谢你了，书上没写，百度了半天也没有找到。

liubocy 2011-03-22

打赏
举报

回复

listbox lb_tmp
w_1.openuserobject(lb_tmp)

　　通过读取数据表生成一个可供下拉选择的树列表的控件，要求数据表中至少要有“编码”和“名称”两个字段，字段名任意。并且“编码”字段用以维护树列表项的父子关系，例如： bm ----------- 001 001001 001002 002 002001 002002 002003 ... //------可设置的变量，其中仅i_tablename是必设变量---------------- uo_1.i_tablename=""//表名，必设 uo_1.i_level_len=3//结构编码的每级长度，默认值3 uo_1.i_bm="bm"//树子项的数据字段，默认值“bh” uo_1.i_mc="mc"//树子项的显示字段，默认值“mc” uo_1.i_is_force_last=true//是否强制只能选取最末一级的项目，默认值“true” //---------用于读取的变量(也可以手工设置)---------------------- uo_1.i_itemdata//所选择项的编码数据

PB中的静态文本控件可以设置各种不同的背景色，但没有办法设置为透明色，这在某些特殊界面设计要求时显得心有余而力不足。本文提供一种实现透明文本的简单方法，并不需要借助API。方法如下： 1、建立一个工作空间（workspace），取名为：transparent_st。 2、建立一个应用（application），取名为：transparent_st。 3、建立一个可视用户对象，uo_transparent_st，类型为statictext，定义下列变量： boolean ib_painting 4、编写uo_transparent_st的Constructor事件脚本： //536870912 透明色 This.backcolor = 2^29 5、定义uo_transparent_st的用户自定义事件，ue_paint（Event ID：pbm_paint） IF IsValid(This) THEN if ib_painting THEN Return 0 ib_painting = True This.Visible = False Do While Yield() Loop This.Visible = True ib_painting = False END IF Return 0

PB操作xml 你必须安装：微软的Internet Explorer 5.0 （及更高版本） Microsoft XML分析器3.0 （ msxml3sp1.exe ） Sybase的PowerBuilder的8.0 安装。 1 。档案解压缩到如。 ç ： \实例\ pb8 \的XML 2 。打开工作pb_xml.pbw 3 。打开窗户w_pbxml_sheet1和commandbuttons cb_5和cb_6改变文件名变量ls_filename ， ls_xslfilename ，以反映不同的目录上面使用以下是运行时会发生什么变化的范例：当您打开工作表， XML解析器： XML解析器加载文件：在这里，您可以只加载一个XML文件，并看到它解析在TreeView 。 pb_list_style ：档案emplyees.xml将解析和转化利用pb_list_style.xsl ，由此产生的HTML中显示规则 pb_cat_style ：档案emplyees.xml将解析和转化利用pb_catalog_style.xsl ，由此产生的HTML中显示规则浏览器打开HTML .. ：在这里，您可以加载一个HTML文件，并看到它显示在Web浏览器控件。雇员示例巴顿：这是怎么回事另存为XML .. ：在这里，您可以保存emplyoyee数据仓库作为一个XML文件

pb10调用base64.dll，实现将图片转换成base64编码，将base64编码转换成图片函数声明 function long GetFileEncode64(ref string filename, ref string encode64)library "base64" alias for "GetFileEncode64;Ansi" function long Base64Decode(ref blob ouput, ref string input ,long inputlen)library "base64" alias for "Base64Decode;Ansi& quot; 调用实例 string ls_filename,ls_ret long num blob lb_file blob{10000000} lb_ret//初始化足够大的空间， ls_filename="K:\\\\照片0034_001_001.jpg"//要编码的图片完整路径名 ls_ret=space(10000000)//初始化足够大的空间接受返回的编码 num=GetFileEncode64(ls_filename, ls_ret)//base64编码 ls_ret=trim(ls_ret) //-------解码---通过blob类型变量接收，一定要初始化足够空间大小 num=len(ls_ret) num=Base64Decode(lb_ret, ls_ret,num)//解码 p_1.setpicture(lb_ret)//图片控件中显示

pb10调用base64.dll，实现将图片转换成base64编码，将base64编码转换成图片函数声明 function long GetFileEncode64(ref string filename, ref string encode64)library "base64" alias for "GetFileEncode64;Ansi" function long Base64Decode(ref blob ouput, ref string input ,long inputlen)library "base64" alias for "Base64Decode;Ansi" 调用实例 string ls_filename,ls_ret long num blob lb_file blob{10000000} lb_ret//初始化足够大的空间， ls_filename="K:\\照片0034_001_001.jpg"//要编码的图片完整路径名 ls_ret=space(10000000)//初始化足够大的空间接受返回的编码 num=GetFileEncode64(ls_filename, ls_ret)//base64编码 ls_ret=trim(ls_ret) //-------解码---通过blob类型变量接收，一定要初始化足够空间大小 num=len(ls_ret) num=Base64Decode(lb_ret, ls_ret,num)//解码 p_1.setpicture(lb_ret)//图片控件中显示

控件与界面

604

社区成员

12,293

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章