Opzione esplicita
Funzione riservata OldRadio (psec come [_SectionInReport])
Ctl fioco come controllo
lngCX fioco come lungamente
lngCY fioco come lungamente
lngRad fioco come lungamente
Per ogni ctl in psec. Comandi
Se ctl.ControlType = acOptionButton allora
lngCX = ctl. Parte di sinistra + ctl. Larghezza/2
lngCY = ctl. Parte superiore + ctl. Altezza/2
lngRad = ctl. Larghezza/2
'cerchio di tiraggio
Me.FillStyle = 1 'trasparente
Me.Circle (lngCX, lngCY), lngRad
Me.FillStyle = 0 'opaco
Se ctl. Il valore = allora allinea
Me.FillColor = vbBlack
Me.Circle (lngCX, lngCY), lngRad/2
Ctl di ElseIf. Valore = falso allora
'niente
Altrimenti 'posizione di segnale minimo
Me.FillColor = RGB (153, 153, 153)
Me.Circle (lngCX, lngCY), lngRad * 3/4, vbWhite
Concluder se
Concluder se
Ctl seguente
Funzione di conclusione
Detail_Format secondario riservato (annullamento come numero intero, FormatCount come numero intero)
Particolare di OldRadio
Sommergibile dell'estremità
|