報表高亮顯示例子

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.數(shù)量 > 40 Then
    
39.         
    
40.     HighlightControl Me.數(shù)量, 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周年（寶島人民還在過雙十節(jié)呢）。
2、雙十協(xié)定簽訂日子（1945年）。

李力軍2

好東西，收下了

白色16度

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

GOODWIN

謝謝分享，收下了