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_dwsyntaxls_dwsyntax=dw_1.describe("datawindow.syntax")

7.得到数据窗口中各列及标题：long ll_count,istring ls_value,ls_colnamell_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_dwnkeyIF KeyDown(KeyDownArrow!) OR KeyDown(KeyUpArrow!) Then Return 1End 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_countls_count = dw_1.describe("datawindow.column.count")

21.取数据窗口中可列新的表名。string ls_tablels_table = dw_1.describe("datawindow.updatetable.table")

22.取数据窗口对象中列的名称及类型string ls_cols[],ls_types[]int li_count,ili_count = integer(ls_count)for i = 1 to li_count ls_cols[i] = dw_1.describe("#"+string(i)+".name") ls_types[i] = dw_1.describe("#"+string(i)+".coltype")next

23.Case( dealintype WHEN 0 THEN RGB(254,251,235) WHEN 2 THEN rgb(254,251,235) ELSE RGB(0,0,255))写道字段的protect中不仅仅是颜色改变的问题看看

24.dw.Object.col[n] : 直接获得数据窗口的col列第n 行的数据。

25.在做数据窗口时，我们有时候希望能够多一些字段来作一些特殊的用处，但是在数据窗口中又不能乱加字段，因为已有的字段必须是数据库中有的或者是他们的组合，呵呵，大家不妨看看这个sql用产生什么样的数据窗口select colname1,colname2,1,'' from tablename是不是多出了两个字段阿，一个是字符串字段，一个是数字字段别忘了要convert syntax 哦

26.清空数组string a[],b[]a[1] = '1';a[1] = '2';a[1] = '3'a = b//即可以清空a

27.只允许修改第n行的name列：dw_1.modify("name.protect = '1 ~t if((getrow()=n),0,1)'")

28.让run程序和主程序一起关闭：function ulong findwindowA(...).."user32.dll"function long setparent(..."user32.dll"handle = findwindowA(nul,win_title)setparent(handle,handle(w_main))

29.取得某一天以前或以后n天的函数RelativeDate(date, n)例： 取得当天前10天的日期 RelativeDate(Today(),10) 取得当天后10天的日期 RelativeDate(Today(),-10)

30.不想做排序窗口？调用PB自身的好了。string ls_nullSetNull(ls_null)dw_1.SetSort(ls_null)dw_1.Sort()

31.调用PB自身的过滤窗口：dw_1.SetFilter(ls_null)dw_1.Filter()

32.增量输入定位代码或名称记录位置：定义一个窗口，放一个SLE_1，在它的MODIFY程序中写：long ll_findstring value0value0=sle_1.textif not (isnull(sle_1.text) or sle_1.text='') then if left(sle_1.text,1)='0' or integer(sle_1.text)<>0 then //输入的为代码 ll_find=jwl_dmxz.dw_1.find('dm like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//jwl_dmxz为主窗口，dm为查询的字段名，这里是代码。 else //输入的为名称 ll_find=jwl_dmxz.dw_1.find('mc like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())// end if if ll_find>0 then jwl_dmxz.dw_1.scrolltorow(ll_find) //为了避免首次目标记录为第一条，无法选中。 if ll_find=ll_find0 then jwl_dmxz.dw_1.selectrow(ll_find,true) elseif ll_find<>ll_find0 then jwl_dmxz.dw_1.selectrow(ll_find,true) jwl_dmxz.dw_1.selectrow(ll_find0,false) ll_find0=ll_find end if end ifend if

33.然后在查询窗口中的TIMER事件中写：timer(0.05)sle_1.triggerevent(modified!)

34.判断计算器是否存在：string is_fileExistsboolean is_Existsis_fileExists='c:\windows\calc.exe'is_Exists=fileExists(is_fileExists)if is_Exists then run("c:\windows\calc.exe")else messagebox("提示信息","本机的WINDOWS没有计算器！",stopsign!)end if

35.得到硬盘序例号String ls_Rootpath, ls_volumnename ,ls_return,softpathGetCurrentDirectoryA(256,softpath)softpath=left(softpath,2)if softpath='C:' then ls_Rootpath = 'D:' // 指定要得到序列号的硬盘， // 一般情况都是C盘，除非你能保证用户存在其它逻辑盘或物理盘 else ls_Rootpath = 'C:'end ifls_volumnename = Space(256) // 分配足够的空间，下同 Ulong lul_VolumeNameSize lul_VolumeNameSize = 256 Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags lul_MaximumComponentLength = 256 String ls_FileSystemNameBuffer ls_FileSystemNameBuffer = space(256) Ulong lul_FileSystemNameSize lul_FileSystemNameSize = 256 int ilong ls_num,ls_gnum,ls_dnum i=GetVolumeInformation(ls_Rootpath, ls_volumnename, lul_VolumeNameSize, lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, ls_FileSystemNameBuffer, lul_FileSystemNameSize) ls_return=string(lul_VolumeSerialNumber)return ls_return