报表高亮显示例子

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

复制代码