Database 版 (精华区)

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: Foxpro中Dynamicbackcolor等属性的应用
发信站: 哈工大紫丁香 (2000年12月06日20:14:14 星期三), 站内信件

　

Foxpro中Dynamicbackcolor等属性
的应用 
广东省工业设备安装公司 
黄聪玲 
---- 在Visual Foxpro的表格Grid中，可利用列Column的几个属性 
dynamicbackcolor, dynamicfontbold, dynamicfontname, 
dynamicfontstrikethru 等创建特殊效果。如利用Dynamicbackcolor使当前记录的
背景显示成蓝色，或用蓝色显示奇数行，而用黄色显示偶数行等等。可设置 
DynamicFontStrikethru 属性来指示已删除的记录。如下是两个应用实例： 

---- 例1：利用Dynamicbackcolor使当前记录的背景显示成蓝色。如图(略) 

---- 当移动记录时，蓝色条随记录移动。达到突出显示当前记录的目的。 

---- 具体实现如下： 

---- 在控件Grid1的事件AfterRowcolchange中写如下代码： 

cur_rec=alltrim(str(recno( )))  
&& 获取当前记录号
thisform.Grid1.SetAll("DynamicBackColor", 
"IIF(recno( )=&cur_rec, ； 
  RGB(128,255,255),rgb(255,255,255 ))", "Column")  
&& 交替白色和蓝色记录
thisform.refresh
　

---- 例2：利用DynamicFontStrikethru 属性来指示已删除的记录。如图(略) 

---- 当点击删除按纽时，会给当前记录标上删除线。 

---- 实现过程如下： 

---- 在删除按纽的Click事件中，写入如下代码： 

delete      && 删除当前记录
cur_rec=alltrim(str(recno( )))   && 获取当前记录号
thisform.Grid1.SetAll("Dynamicfontstrikethru",
 "IIF(recno( )=&cur_rec or  
   deleted(), .t.,.f.)",  ；"Column") 
    && 给删除的记录标上删除线
    thisform.refresh。
　

---- 还可根据以上的其他属性，如Dynamicforecolor设置字体颜色。
Dynamicfontsize设置字体大小等等。以上范例在Visual Foxpro3.0和6.0中均可用
。 

--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]