报表高亮显示例子

andymark

      报表高亮显示例子
   
  

1. 
   
2. Public Sub HighlightControl(ByRef ctlControl As Control, _
   
3.                             ByVal lngColour As Long, _
   
4.                             ByVal sngAspect As Single)
   
5.    
   
6.     With ctlControl
   
7.         
   
8.         .BorderStyle = 0
   
9.         
   
10.         .Parent.Circle (.Left + .Width / 2, _
    
11.                         .Top + .Height / 2), _
    
12.                         .Width / 2 + 20, _
    
13.                          lngColour, , , _
    
14.                          sngAspect
    
15.     End With
    
16. 
    
17. End Sub
    
18. 
    
19. 
    
20. 
    
21. Public Sub LineLightControl(ByRef ctlControl As Control, _
    
22.                             ByVal lngColour As Long)
    
23.    
    
24.     With ctlControl
    
25.         
    
26.         .BorderStyle = 0
    
27.         
    
28.          .Parent.Line (.Left, .Top + .Height / 2 - 20)-(.Left + .Width, .Top + .Height / 2 - 20), lngColour
    
29.         .Parent.Line (.Left, .Top + .Height / 2 + 20)-(.Left + .Width, .Top + .Height / 2 + 20), lngColour
    
30. 
    
31.     End With
    
32. 
    
33. End Sub
    
34. 
    
35. 
    
36. 
    
37. Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    
38. If Me.数量 > 40 Then
    
39.         
    
40.     HighlightControl Me.数量, vbRed, 0.35
    
41.      
    
42.   End If
    
43.   
    
44. 
    
45. 
    
46. If Me.折扣 > 0.1 Then
    
47. 
    
48.    LineLightControl Me.折扣, vbBlue
    
49. End If
    
50. End Sub

复制代码

Henry D. Sy

今天是什么好日子！

xuwenning

谢谢分享，收下了
引用Henry D. Sy的话——今天是什么好日子！

roych

噢。前天的确是好日子嘢。
1、辛亥革命100周年（宝岛人民还在过双十节呢）。
2、双十协定签订日子（1945年）。

李力军2

好东西，收下了

白色16度

大家都说是好东西，可我看不懂，先收下了

GOODWIN

谢谢分享，收下了