Explicit alternativ
Privat fungera OldRadio (psec som [_SectionInReport])
Dunkel ctl som kontrollerar
Dunkel lngCX som Long
Dunkel lngCY som Long
Dunkel lngRad som Long
För varje ctl i psec. Kontrollerar
Om ctl.ControlType = acOptionButton därefter
lngCX = ctl. Lämnat + ctl. Bredd/2
lngCY = ctl. Överträffa + ctl. Höjd/2
lngRad = ctl. Bredd/2
'attraktion cirklar
Me.FillStyle = genomskinlig 1 '
Me.Circle (lngCX, lngCY), lngRad
Me.FillStyle = täckande 0 '
Om ctl. Värdera = True därefter
Me.FillColor = vbBlack
Me.Circle (lngCX, lngCY), lngRad/2
ElseIf ctl. Värdera = falskt därefter
'ingenting
Annars 'ogiltigt
Me.FillColor = RGB (153, 153, 153)
Me.Circle (lngCX, lngCY), lngRad * 3/4, vbWhite
Avsluta om
Avsluta om
Nästa ctl
Avsluta fungerar
Privata underDetail_Format (annullering som heltalet, FormatCount som heltal)
OldRadio specificerar
Avsluta suben
|