PB他人经验

一、窗口最小化时设置动态图标
当应用程序最小化时，程序的图标如果是动画的，肯定更能吸引用户的注意，视觉效果会更好。方法是通过动态修改程序的图标来实现。
当程序最小化时打开timer（在deactive中加入timer(1)语句），并在timer事件中编写如下程序：
If This.Icon = "appico.ico" Then
不能直接用ROWCOUNT（）函数，：）
或：
dw_1.describe("evaluate('countcumulativeSum(1 for all distinct 要分组的列名)',"+string(dw_1.rowcount())+")")
6、 对于DDLB下拉窗口，有时候需要通过ENTER键来实现无鼠标操作，可是当焦点移到其上时，通过键盘的上下键不能实现弹出下拉框来选择，而是单行单行显示所选值，用户界面不友好，所以需要通过触发鼠标左键点击ddlb的下拉动作，这里可以通过WINDOWS的send(handl(message),#,#,#)来实现相应某个WINDOWS事件，这里发出send()动作时具体通知的message是通过$+10进制数字表达来传递给WIN窗口一个动作，这里就是按下鼠标左键的动作，例如：
dw_1.SetTransObject(SQLCA)
dw_1.Retrieve()
SetPoInter(Arrow!)
使用函数PostEvent和TriggerEvent都可以触发其他的事件，但是两者是有区别的。PostEvent触发的事件不是马上执行，而 TriggerEvent触发的事件马上执行。PostEvent向消息队列中发送消息，等当前脚本执行完毕再触发消息队列中等待状态事件的脚本；而 TriggerEvent函数可以中断当前执行的脚本，转向被触发事件，等执行完被触发事件的脚本后再返回到当前脚本继续执行。所以，当需要马上执行被触发的事件时使用函数TriggerEvent；当执行完当前脚本后需要触发某个事件时使用函数PostEvent。但是，当在脚本最后触发其他事件时不论使用哪个函数，效果都相同。例如，上面例子中可以在窗口的Open事件中用下面脚本替换：
evaluate（）函数解释：在脚本中中调用datawindow 表达式的方法，通过describe（）函数返回值返回类型是字符，如果错误类型返回‘!’ 如果没有数值返回‘？’
举例：
比如你的数据窗口是DW_1，有一个字段是COL1，而且你的COL1是用的一个下拉数据窗口做的，如果你想知道COL1第12行记录的真正的值，则用dw_1.Object.col1[12]就可以得到，如果你想知道COL1第12行记录的显示的值，则用dw_1.Describe("Evaluate('LookUpDisplay(col1)', 12)")可以得到。
MessageBox("注意",你的字段名 + "列中存在重复的数据!")
end if
这个可以应用于自定义数据窗口中导入不重复的数值，如果单纯判断某数据窗口中某字段是否有重复行可以直接应用dw中的内部cloumn中object的条件设置来判断，具体如下
if long(dw_1.describe("evaluate('count(l列名 for all distinct)',1)"))<dw_1.rowcount() then
if key = keyenter! then
Send(handle(ddlb),513,0,0 ) //这里513就是对应send() API中的参数$0201 (表示点击鼠标左键)
return 1
end if
窗口使用技巧系列文章－－增强窗口显示效果2006-11-06 17:52
1、自定义下Setfilter()的使用是如果没有按照某项字段排序，在条件筛选后行的顺序会发生改变，这样不利于TXT文本形式保存后能同原始文本行顺序一致，如果有次需求可以通过定义字段排序或是没有字段排序的通过FIND遍历窗口来获得同样效果，避免行序改变，影响其他统计运算
2、得到文件夹下某个类型文件的文件数：通过ddlb_1.dirlist(ls_path+'\*.*',3)然后用函数得到ddlb_1的列数量就可以，详情看dirlist函数说明
first(getrow() for group 1)这句话要好好理解，它其实是求的该分组当中的第一行，相当
于min(getrow() for group 1)，同理last(getrow() for group 1)、max(getrow() for group 1)则
或者cumulativeSum(if(city = city[-1], 0, 1) for all)
2、如何设置datawindow分组后每个分组中的记录号？
建立一个计算列，expression为 getrow() - first(getrow() for group 1)+1
以闪烁文字显示重要信息可以吸引用户的注意力，避免这些重要信息被忽略。通过周期性修改visible属性，可以实现闪烁效果。
在窗口中，假设放置一个静态文本st_1，在窗口的Open事件中定义Timer事件的间隔：
Timer(1)
然后，在窗口的Timer事件中定期修改静态文本的visible属性：
FlashWindow(Handle(This),True)
在适当的时候使用timer(0)语句关闭Timer事件。
有重复的
end if
在这里evaluate('expression', rownumber)函数（脚本中中调用datawindow 表达式的方法）是对一指定的rownumber进行'expression'表达式的调用，然后通过describe（）函数（描述数据窗口对象中的相关信息）来获取表达式的取值，上例中因为表达式中用到了ALL，所以其后的rownumber无所谓是否DW_1.ROWCOUNT(),如果是别的表达式针对某一行的话则须要准确地ROW，不过习惯好的还是要用DW_1.ROWCOUNT()
三、提高窗口的打开速度
在窗口的Open事件中经常编写脚本来进行初始处理工作，如果这些工作花费的时间比较长，在窗口显示之前用户就得等待很长的时间。友好的界面应该马上显示窗口界面，然后让用户等待，并且设置鼠标形状表示当前正在进行处理，以免用户焦急。可以使用用户自定义事件和PostEvent函数来解决这个问题。比如，下面是一个检索大量数据的窗口编程：
3、datawindow里将字段设成 DropDownListBox 类型，在语句中修改、清空、列表内容可以用dw_1.modify("列名.values = '是~t是/否~t否/无~t无/其它~t8'")来实现,其中~t是标识符，前面的是显示值后面的是实际值，多行值时通过/来分割
4、数据窗口中关于重复行解决：对于数据窗口中某字段判断是否有重复行，可以通过比较上下排序的对应该列行值是否相等或是是否只有一行来SETFILTER一下，即：
在窗口的自定义事件ue_openpost中，脚本不变。这时，上面的函数就不能用PostEvent来替换了。
四、移动不带标题栏的窗口
在开发应用程序中，可能要用到不带标题栏的窗口，而带有标题栏的窗口可以通过拖动标题栏来移动窗口，如何移动没有标题栏窗口呢？这需要编写代码来解决。
在要拖动窗口的MouseDown事件中编写脚本，给窗口发送消息WM_SYSCOMMAND，并将Wordparm设置成SC_MOVE+1，这两个常数的取值分别为274和61 457。脚本如下：
首先dw_1.SetSort(你的字段名 + " A")
dw_1.Sort()
然后根据你排序的字段进行条件筛选
dw_1.SetFilter(你的字段名 + " <> " + 你的字段名 + "[-1] or GetRow() =1")
dw_1.Filter()
if dw_1.RowCount() < 原来的 then
If Mod(Second(Now()),2) = 1 Then
st_1.visible = False
Else
st_1.Visible = True
End If
这样就可以实现闪烁效果。当然也可以在适当的时候使用timer(1)，并在适当的时候关闭Timer事件。
表示该分组当中的最后一行的行号。
要得到分组数量：
如何获取总分组数：
1、方法一：
建一个计算列，EXPRESSION设为"count(要分组的列名 for all distinct)"
2、方法二：
dw_1.describe("evaluate('count(要分组的列名 for all distinct)',"+string(dw_1.rowcount())+")")
TriggerEvent("ue_openpost")
为了进一步提高窗口打开的速度，可以在数据窗口检索数据之前禁止数据窗口刷新。在窗口的Open事件中编写如下脚本：
dw_1.SetRedraw(False)
TriggerEvent("ue_openpost")
Dw_1.SetRedraw(True)
Send(handle(this),274,61458,0)