一、窗口最小化时设置动态图标
二、放置闪烁文字
三、提高窗口的打开速度
四、移动不带标题栏的窗口
五、闪烁窗口标题栏
六、给窗口添加自动滚动条功能
窗口是应用程序中一个非常重要的界面，界面设计的大部分工作体现在窗口界面的设计中。所以，在不影响功能的前提下，提倡给用户提供更有提示性的、更美观的界面。常用的手段是动画、声音等，下面介绍这些常用的方法。
一、窗口最小化时设置动态图标
当应用程序最小化时，程序的图标如果是动画的，肯定更能吸引用户的注意，视觉效果会更好。方法是通过动态修改程序的图标来实现。
当程序最小化时打开timer（在deactive中加入timer(1)语句），并在timer事件中编写如下程序：
If This.Icon = 'appico.ico' Then
This.Icon = 'reverse.ico'
Else
This.Icon = 'appico.ico'
End If
程序激活时关闭Timer事件（在Active事件中加入timer(0)语句）。
需要注意，要将上面用到的两个ico文件放到当前应用程序的目录中。
二、放置闪烁文字
以闪烁文字显示重要信息可以吸引用户的注意力，避免这些重要信息被忽略。通过周期性修改visible属性，可以实现闪烁效果。
在窗口中，假设放置一个静态文本st_1，在窗口的Open事件中定义Timer事件的间隔：
Timer(1)
然后，在窗口的Timer事件中定期修改静态文本的visible属性：
If Mod(Second(Now()),2) = 1 Then
st_1.visible = False
Else
st_1.Visible = True
End If
这样就可以实现闪烁效果。当然也可以在适当的时候使用timer(1)，并在适当的时候关闭Timer事件。
三、提高窗口的打开速度
在窗口的Open事件中经常编写脚本来进行初始处理工作，如果这些工作花费的时间比较长，在窗口显示之前用户就得等待很长的时间。友好的界面应该马上显示窗口界面，然后让用户等待，并且设置鼠标形状表示当前正在进行处理，以免用户焦急。可以使用用户自定义事件和PostEvent函数来解决这个问题。比如，下面是一个检索大量数据的窗口编程：
在窗口中定义自定义事件ue_openpost（映射PowerBuilder的任意一个CusTom事件），在窗口的Open事件中编写如下脚本：
PostEvent('ue_openpost')
然后在窗口的自定义事件ue_openpost中编写如下脚本：
SetPoInter(HourGlass!)
dw_1.SetTransObject(SQLCA)
dw_1.Retrieve()
SetPoInter(Arrow!)
使用函数PostEvent和TriggerEvent都可以触发其他的事件，但是两者是有区别的。PostEvent触发的事件不是马上执行，而TriggerEvent触发的事件马上执行。PostEvent向消息队列中发送消息，等当前脚本执行完毕再触发消息队列中等待状态事件的脚本；而TriggerEvent函数可以中断当前执行的脚本，转向被触发事件，等执行完被触发事件的脚本后再返回到当前脚本继续执行。所以，当需要马上执行被触发的事件时使用函数TriggerEvent；当执行完当前脚本后需要触发某个事件时使用函数PostEvent。但是，当在脚本最后触发其他事件时不论使用哪个函数，效果都相同。例如，上面例子中可以在窗口的Open事件中用下面脚本替换：
TriggerEvent('ue_openpost')
为了进一步提高窗口打开的速度，可以在数据窗口检索数据之前禁止数据窗口刷新。在窗口的Open事件中编写如下脚本：
dw_1.SetRedraw(False)
TriggerEvent('ue_openpost')
Dw_1.SetRedraw(True)
在窗口的自定义事件ue_openpost中，脚本不变。这时，上面的函数就不能用PostEvent来替换了。
四、移动不带标题栏的窗口
在开发应用程序中，可能要用到不带标题栏的窗口，而带有标题栏的窗口可以通过拖动标题栏来移动窗口，如何移动没有标题栏窗口呢？这需要编写代码来解决。
在要拖动窗口的MouseDown事件中编写脚本，给窗口发送消息WM_SYSCOMMAND，并将Wordparm设置成SC_MOVE+1，这两个常数的取值分别为274和61 457。脚本如下：
Send(handle(this),274,61458,0)
这将通知窗口在鼠标移动时跟随它一起移动。
五、闪烁窗口标题栏
可以使用API函数FlashWindow来实现闪烁窗口标题栏的功能，使用该功能可以在重要窗口或者特殊情况下吸引用户的注意力。首先声明Locat External Function，语句如下：
Function boolean FlashWindow (Uint handle, boolean flash) Library 'user.exe'
然后在适当的时候（比如，用户点击了某个按键后）使用下面语句设置Timer事件的间隔：
Timer(1)
然后在窗口的Timer事件中编写如下脚本：
FlashWindow(Handle(This),True)
在适当的时候使用timer(0)语句关闭Timer事件。
六、给窗口添加自动滚动条功能
因为窗口没有自动滚动条功能，如果设置窗口的HScrollBar或者VScrollBar属性，在不需要滚动条时也显示滚动条，很不美观。可以在窗口的Resize事件中编写脚本，根据当前窗口的大小来设置是否显示滚动条。如果用户调整窗口的宽度，当小于打开时的宽度时显示水平滚动条，当大于打开时的宽度时，如果有水平滚动条，则取消该滚动条；如果用户调整窗口的高度，当小于打开时的高度时显示垂直滚动条，当大于打开时的高度时，如果有垂直滚动条，则取消该滚动条。
脚本主要编写在窗口的Resize事件中，需要两个判断滚动条滚动范围和滚动条当前位置的API函数，声明这两个本地外部函数的语句是：
Subroutine GetScrollRange(Uint hWindow,Int nScrollBarFlag,ref Int nMin,ref Int nMax) &
Library 'user.exe'
Function Int GetScrollPos(Uint hWindow,Int nScrollBarFlag) Library 'user.exe'
是否需要显示滚动条，可以通过和窗口刚打开时的宽度、高度相比较来判断。所以，定义两个实例变量：
Int ii_width,ii_height
在窗口的Open事件中初始化这两个变量：
ii_width = This.Width
ii_height = This.Height
然后是脚本的主要部分，在窗口的Resize事件中实现。脚本如下：
Uint hwindow
Int nScrollPos,nMinPos,nMaxPos
If This.WindowState = Minimized! Then //如果正在进行最小化，则直接返回
Return
End If
HWindow = Handle(This) //获取当前窗口的句柄
//下面开始处理水平滚动条
If This.Width < i_width="" then ="">
This.HscrollBar = True //则显示水平滚动条
Elseif This.HscrollBar Then //如果大于或等于打开时的宽度，并且已经有滚动条
NScrollPos = GetScrollPos(hwindow,0) //使用API函数获取当前滚动条位置
GetScrollRange(hwindow,0,nMinPos,nMaxPos) //使用API函数获取滚动范围
If nScrollPos > nMinPos Then //如果用户滚动了滚动条并且此时不需要显示滚动条
Post(hwindow,276,6,0) //则在水平方向调整窗口中的内容到原来的位置
End If
This.HscrollBar = False //取消滚动条特性
End If
//下面开始处理垂直滚动条
If This.Height < i_height="" then ="">
This.VscrollBar = True //则显示垂直滚动条
Elseif This.VscrollBar Then //如果大于或等于打开时的高度，并且已经有滚动条
NScrollPos = GetScrollPos(hWindow,1) //使用API函数获取当前滚动条位置
GetScrollRange(hwindow,1,nMinpos,nMaxPos) //使用API函数获取滚动范围
If nScrollPos > nMinPos Then //如果用户滚动了垂直滚动条且不需再显示
Post(hwindow,277,6,0) //则垂直调整窗口中的内容到原来的位置
End If
This.VscrollBar = False //取消滚动条特性
End If
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
