reneemettrie
Terugkerende gebruiker
- Lid geworden
- 1 aug 2006
- Berichten
- 1.233
Hoe kan je via VBA de grootte van een userform aanpassen aan de grootte en de resolutie van een PC scherm?
"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Grootte van Userform aanpassen aan scherm
- Onderwerp starter reneemettrie
- Startdatum
- Status
popipipo
Meubilair
- Lid geworden
- 21 nov 2006
- Berichten
- 8.418
reneemettrie
Terugkerende gebruiker
- Lid geworden
- 1 aug 2006
- Berichten
- 1.233
Bedankt, dat is zeker al nuttig!
En om de controls te vergroten denk ik dat je moet werken met de verhouding van de breedte en hoogte van de application t.o.v. de breedte en hoogte van de form?
En om de controls te vergroten denk ik dat je moet werken met de verhouding van de breedte en hoogte van de application t.o.v. de breedte en hoogte van de form?
reneemettrie
Terugkerende gebruiker
- Lid geworden
- 1 aug 2006
- Berichten
- 1.233
Ik heb het als volgt opgelost. In het ontwerp heb ik aan alles dat moet worden gepositioneerd of vergroot/verkleind een tag toegekend.
Bv beginnend mt TXT voor een tekstvak, FRAR voor frames die aan de rechterkant van het formulier staan
Code:
Bv beginnend mt TXT voor een tekstvak, FRAR voor frames die aan de rechterkant van het formulier staan
Code:
Code:
Private Sub Userform_Initialize()
Dim ctrl As Control,
Application.WindowState = xlMaximized
With Me
.Left = 0
.Top = 0
.Width = Application.Width
.Height = Application.Height
End With
For Each ctrl In Me.Controls
'Breedte van de tekstvakken en frames
Select Case Left(ctrl.Tag, 3)
Case "txt"
ctrl.Width = Application.Width / 3
Case "frar"
ctrl.Left = Application.Width / 2
End Select
Select Case Left(ctrl.Tag, 3)
Case "fra"
ctrl.Width = Application.Width * 0.4
End Select
'Positie van de tekstvakken en frames
Select Case ctrl.Tag
Case "frar"
ctrl.Left = Application.Width * 0.5
End Select
'Positie van de knop
Select Case ctrl.Tag
Case "cmd"
ctrl.Top = fra_auditor.Height + fra_auditor.Top + 10
ctrl.Left = Application.Width * 0.5
End Select
Select Case ctrl.Tag
Case "title"
ctrl.Width = Application.Width * 0.9
End Select
Next ctrl
End Sub- Status
