当前位置: 代码迷 >> PB >> PB中一些技艺(非原创)
  详细解决方案

PB中一些技艺(非原创)

热度:89   发布时间:2016-04-29 07:54:51.0
PB中一些技巧(非原创)
1.RGB函数计算公式: 颜色值 = (65536 * Blue) + (256 * Green) + (Red) 

2.控件可拖动:
send(handle(this),274,61458,0)

3.如何用程序控制下拉子数据窗口的下拉和收起
用modify或者直接用dw_1.object.col1.dddw.showlist = true

4.检索参数有些不需要传入则传%.

5.如何屏蔽鼠标滚轮触发 
在控件的other事件写
if message.number = 522 then return 1 

6.得到数据窗口的语法:
string ls_dwsyntax
ls_dwsyntax=dw_1.describe("datawindow.syntax")

7.得到数据窗口中各列及标题:
long   ll_count,i
string ls_value,ls_colname

ll_colnum = Long(dw_1.object.datawindow.column.count)

for i = 1 to ll_colnum
   //得到标题头的名字
   ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
   ls_value = dw_1.describe(ls_colname + ".text")
next

8.在程序中动态设置初始值:
ex:dw_contro.object.columnName.initial = 'xxxx'

9.如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行 

---- 起先对你要显示唯一值的列进行排序:"city A",然后增加如下过滤字符串:" city < > city [-1] or GetRow () = 1" 

10.如何改变列的字体颜色,提醒用户此列已做修改 

---- 在列的Color属性中,输入如下表达式IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。在这个条件中,如果此列已改变,则显示红色字体,否则显示黑色字体。这个表达式主要用column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。 

11.在数据窗口的clicked或doubleclicked事件中写上注释//可解决一些意外的bug!

12.如何屏蔽上下鍵触发 
新建一个事件:id为pbm_dwnkey
IF KeyDown(KeyDownArrow!) OR KeyDown(KeyUpArrow!) Then
    Return 1
End IF

13.你注意到没有,数据窗口画板里面,在写表达式的时候,试着用一些用户自定义的全局变量和全局函数,你会发现在某些特殊的场合,这个小窍门还是很有用的。

14.有些程序员在窗口的右键pop菜单里面写了很多代码,在菜单里面有很多w_windowname.controlname等等引用,如果这个窗口被继承,很容易就会出毛病,别忘了在菜单里面可以引用parentwindow哦,有了它我的pop菜单里面的代码和具体窗口无关,随便继承。当然强烈建议最好还是把所有和窗口相关的逻辑都转移到窗口的函数和事件中去,在pop菜单中触发调用。

15.whichdw.describe("evaluate('lookupdisplay("+colname+")',"+string(row)+")")

这个表达式可以得到指定列的显示值。(这个知识点有滥竽充数之嫌,但是一时间我真是想不起来太多的东西)

16.在数据窗口画板里面我们如果想要比较当前行和上一行或者下一行的值,怎么比较呢,哈哈,看这个就知道了

if ( yw_bc_circuit_dlcode = yw_bc_circuit_dlcode [-1] and  yw_bc_circuit_dlname =  yw_bc_circuit_dlname [-1] and  yw_bc_circuit_xtno = yw_bc_circuit_xtno [-1] ,0,1)

这个表达式就是比较当前行和上一行是否相同的。其他的依此类推就行了。

17.两个结构相同的数据窗口之间快速复制数据

dw_1.object.data = dw_2.object.data

18.根据条件改变记录颜色
if ( Mod(getrow(),2)=0,rgb(0,255,255),rgb(255,255,255)) //奇偶行不同色
if (currentRow()=getrow(),rgb(0,255,255),rgb(255,255,255)) //当前行不同色

19.使窗口总位于所有打开窗口的最上面
w_main.SetPosition(Topmost!)

20.取数据窗口中列的总数
string ls_count
ls_count = dw_1.describe("datawindow.column.count")

------解决方案--------------------
1.如何让存储文件目录的列,显示图片? 
答:选择对应的column的display as picture属性为true

 

2、如何复制grid类型的所选择的行的数据到系统剪切板?

答:string ls_selected

ls_selected=dw_1.Object.DataWindow.Selected.Data

clipboard(ls_selected)

3、如何复制graph风格的datawindow中的图形到剪切板?

答:dw_1.clipbord("gr_1")

4、如何设置的DW底色?

在DW的editsource中改变color的值

5、如何将Grid风格改成自由格式?

在DW的editsource中将processing=1的1改为0

6、要新建一个表A但风格和现有表格B风格一样,怎么将A表快速设置成表B风格?

复制B表C,在C表的DW中的editsource中将表名和字段名改成A表的,即可

7、如何实现gird风格的datawindow的多栏表头?

答:添加 text到header带区,并设置band属性为foreground保存,edit source 修改text的x和width属性表达式如下:
  相关解决方案