Opção explícita
Função confidencial OldRadio (picosegundo como [_SectionInReport])
Ctl não ofuscante como o controle
lngCX não ofuscante como por muito tempo
lngCY não ofuscante como por muito tempo
lngRad não ofuscante como por muito tempo
Para cada ctl no picosegundo. Controles
Se ctl.ControlType = acOptionButton então
lngCX = ctl. Esquerda + ctl. Largura/2
lngCY = ctl. Parte superior + ctl. Altura/2
lngRad = ctl. Largura/2
'círculo da tração
Me.FillStyle = 1 'transparente
Me.Circle (lngCX, lngCY), lngRad
Me.FillStyle = 0 'opaco
Se ctl. O valor = retifica então
Me.FillColor = vbBlack
Me.Circle (lngCX, lngCY), lngRad/2
Ctl de ElseIf. Valor = falso então
'nada
Mais 'zero
Me.FillColor = RGB (153, 153, 153)
Me.Circle (lngCX, lngCY), lngRad * 3/4, vbWhite
Terminar se
Terminar se
Ctl seguinte
Função do fim
Detail_Format secundário confidencial (cancelamento como o inteiro, FormatCount como o inteiro)
Detalhe de OldRadio
Submarino da extremidade
|