Wahl ausdrücklich
Private Funktion OldRadio (psec wie [_SectionInReport])
Schwaches ctl als Steuerung
Schwaches lngCX als lang
Schwaches lngCY als lang
Schwaches lngRad als lang
Für jedes ctl in psec. Kontrollen
Wenn ctl.ControlType = acOptionButton dann
lngCX = ctl. Links + ctl. Breite/2
lngCY = ctl. Oberseite + ctl. Höhe/2
lngRad = ctl. Breite/2
'Betragkreis
Me.FillStyle = 1 'transparent
Me.Circle (lngCX, lngCY), lngRad
Me.FillStyle = 0 'undurchlässig
Wenn ctl. Wert = ausrichten dann nn
Me.FillColor = vbBlack
Me.Circle (lngCX, lngCY), lngRad/2
ElseIf ctl. Wert = falsch dann
'nichts
Sonst 'Null
Me.FillColor = RGB (153, 153, 153)
Me.Circle (lngCX, lngCY), lngRad * 3/4, vbWhite
Beenden wenn
Beenden wenn
Folgendes ctl
Enden-Funktion
Privates VorDetail_Format (Löschen als ganze Zahl, FormatCount als ganze Zahl)
OldRadio Detail
Enden-Unterseeboot
|