Option explicite
Fonction privée OldRadio (picoseconde comme [_SectionInReport])
Faible ctl comme commande
Faible lngCX en tant que longtemps
Faible lngCY en tant que longtemps
Faible lngRad en tant que longtemps
Pour chaque ctl dans la picoseconde. Commandes
Si ctl.ControlType = puis acOptionButton
lngCX = ctl. Gauche + ctl. Largeur/2
lngCY = ctl. Dessus + ctl. Taille/2
lngRad = ctl. Largeur/2
'cercle d'aspiration
Me.FillStyle = 1 'transparent
Me.Circle (lngCX, lngCY), lngRad
Me.FillStyle = 0 'opaque
Si ctl. La valeur = rectifient alors
Me.FillColor = vbBlack
Me.Circle (lngCX, lngCY), lngRad/2
Ctl d'ElseIf. Valeur = faux puis
'rien
Autrement 'nulle
Me.FillColor = RVB (153, 153, 153)
Me.Circle (lngCX, lngCY), lngRad * 3/4, vbWhite
Finir si
Finir si
Prochain ctl
Fonction de fin
Detail_Format secondaire privé (annulation comme nombre entier, FormatCount comme nombre entier)
Détail d'OldRadio
Sous-marin d'extrémité
|