Office中国论坛/Access中国论坛

标题: 报表高亮显示例子 [打印本页]
作者: andymark    时间: 2011-10-10 21:26
标题: 报表高亮显示例子
      报表高亮显示例子
   
   [attach]46909[/attach]

  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

  17. End Sub



  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

  31.     End With

  33. End Sub



  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.   


  46. If Me.折扣 > 0.1 Then

  48.    LineLightControl Me.折扣, vbBlue
  49. End If
  50. End Sub
复制代码
[attach]46910[/attach]
作者: Henry D. Sy    时间: 2011-10-10 22:09
今天是什么好日子！
作者: xuwenning    时间: 2011-10-11 08:59
谢谢分享，收下了
引用Henry D. Sy的话——今天是什么好日子！
作者: roych    时间: 2011-10-12 22:08
噢。前天的确是好日子嘢。
1、辛亥革命100周年（宝岛人民还在过双十节呢）。
2、双十协定签订日子（1945年）。
作者: 李力军2    时间: 2015-6-20 10:43
好东西，收下了
作者: 白色16度    时间: 2020-8-18 21:49
大家都说是好东西，可我看不懂，先收下了
作者: GOODWIN    时间: 2021-10-4 15:41
谢谢分享，收下了



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3