Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Grootte van Userform aanpassen aan scherm

  1. #1
    Senior Member
    Geregistreerd
    1 augustus 2006
    Vraag is niet opgelost

    Grootte van Userform aanpassen aan scherm

    Hoe kan je via VBA de grootte van een userform aanpassen aan de grootte en de resolutie van een PC scherm?

  2. #2
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het xls voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  3. #3
    Senior Member
    Geregistreerd
    1 augustus 2006
    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?

  4. #4
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    Dat zou je zelf even moeten uit proberen .
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het xls voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  5. #5
    Senior Member
    Geregistreerd
    1 augustus 2006
    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:

    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

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren