Opción explícita
Función privada OldRadio (picosegundo como [_SectionInReport])
Ctl dévil como control
lngCX dévil como de largo
lngCY dévil como de largo
lngRad dévil como de largo
Para cada ctl en el picosegundo. Controles
Si ctl.ControlType = acOptionButton después
lngCX = ctl. Izquierda + ctl. Anchura/2
lngCY = ctl. Tapa + ctl. Altura/2
lngRad = ctl. Anchura/2
'círculo del drenaje
Me.FillStyle = 1 'transparente
Me.Circle (lngCX, lngCY), lngRad
Me.FillStyle = 0 'opaco
Si ctl. El valor = entonces verdad
Me.FillColor = vbBlack
Me.Circle (lngCX, lngCY), lngRad/2
Ctl de ElseIf. Valor = falso entonces
'nada
'Falta de información
Me.FillColor = RGB (153, 153, 153)
Me.Circle (lngCX, lngCY), lngRad * 3/4, vbWhite
Terminar si
Terminar si
Ctl siguiente
Función del final
Detail_Format secundario privado (cancelación como número entero, FormatCount como número entero)
Detalle de OldRadio
Submarino del extremo
|