Vraag : Het radio Centreren van de Knoop in het Rapport van de Toegang

Ik heb probleem proberend om de punt binnen een radioknoop (d.w.z. een bevolkte radiodieknoop) te krijgen op rapporten wordt gecentreerd. Om het even welke suggesties? Ik gebruik de versie 2002 van de Toegang. Indien nodig, kan ik een .mdb example.

Many thanks vastmaken
Attachments:
van
RadioBtn.JPG (58 KB)  (de Details van het Type van Dossier)  
Screenprint van Toegang Report
style= " breedte

Antwoord : Het radio Centreren van de Knoop in het Rapport van de Toegang

Ik keur, zend knopen goed via de radio uit ben lelijk wanneer gedrukt. Alternatieven:

 • Het gebruiken van symbolen in het formaatbezit van een ja/nee uitdrukking,
 • het gebruiken van (complexere) beelden,
 • het trekken van de cirkels die de methode Me.Circle gebruiken,
 • onthoud me van de druk van radioknopen.

Voor de eerste oplossing, probeer om twee symbolen in beschikbare doopvonten te vinden die voor de lege cirkel en de gevulde cirkel konden overgaan. Als u iets vindt houdt van u, kunnen wij u tonen hoe te om hen in een tekstvakje te gebruiken met betrekking tot die een uitdrukking op uw gebied wordt gebaseerd.

Ik kan het idee begrijpen om iets te drukken die kijkt en als de vorm op scherm voelt, maar het zou veel beter met een traditionelere lay-out kijken.

Bijvoorbeeld, beschrijf „ja“ of „geen“, druk slechts de optie die, enz. wordt geselecteerd. U kunt een rechthoek rond het geselecteerde gewaagde punt ook plaatsen, het en grijs uit andere, of gebruikskleuren afhankelijk van de definitieve bestemming van het rapport.
__________________

De code voert hieronder het tweede idee uit: het gebruiken van Me.Circle. Het is de volledige module van een rapport: de functie OldRadio zal de cirkels trekken om de optieknopen na te bootsen. Voor dit aan het werk, maak de optieknopen onzichtbaar; de functie zal de controlemetriek gebruiken om een cirkel van de geselecteerde grootte (maak de dozen van de controles groter om grotere cirkels te trekken) te trekken. Aangezien de optieknopen onzichtbaar zijn, zullen hun etiketten ook zijn. U moet de etiketten van de controles (cut-and-paste op de sectiewerken keurig) losmaken.

De vraag wordt van alle secties gemaakt die optieknopen bevatten, is het voorbeeld voor de detail slechts sectie.

Goed geluk!
(°v°)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

Expliciete optie

Privé Functie OldRadio (psec zoals [_SectionInReport])
    
    Schemerige ctl als Controle
    Schemerige lngCX zoals lang
    Schemerige lngCY zoals lang
    Schemerige lngRad zoals lang
    
    Voor Elke ctl in psec. Controles
        Als ctl.ControlType = acOptionButton toen
            lngCX = ctl. Linkerzijde + ctl. Breedte/2
            lngCY = ctl. Bovenkant + ctl. Hoogte/2
            lngRad = ctl. Breedte/2
            'trek cirkel
            Me.FillStyle = transparante   1 '
            Me.Circle (lngCX, lngCY), lngRad
            Me.FillStyle = ondoorzichtige   0 '
            Als ctl. Waarde = Waar toen
                Me.FillColor = vbBlack
                Me.Circle (lngCX, lngCY), lngRad/2
            ElseIf ctl. Waarde = Vals toen
                'niets
            '   Anders nietig verklaar
                Me.FillColor = RGB (153, 153, 153)
                Me.Circle (lngCX, lngCY), lngRad * 3/4, vbWhite
            Eind als
        Eind als
    Volgende ctl
    
De Functie van het eind

Privé SubDetail_Format (annuleer als Geheel, FormatCount als Geheel)
    Het Detail van OldRadio
Sub van het eind
Andere oplossingen  
 
programming4us programming4us