Textfelt skal passe til vinduets størrelse

Hej

Access er ikke gearet til at udvikle avancerede skærmbilleder, men det er dog muligt at programmere sig ud af det. Du kan prøve følgende:

Start med at oprette et modul til globale erklæringer og funktioner (med mindre du allerede har et)
Placer følgende i erklæringsdelen:
Public Type tpRect
      rLeft As Long
      rTop As Long
      rRight As Long
      rBottom As Long
End Type

Declare Function GetClientRect Lib "user32.dll" (ByVal hWnd As Long, ByRef R As tpRect) As Long

I formens Resize placerer du følgende(jeg har kaldt tekstfeltet Tekst):
      Dim res As Boolean
      Dim R As tpRect

      res = GetClientRect(hWnd, R)
      Me.Width = (R.rRight - R.rLeft) * 15
      Me.Detaljesektion.Height = (R.rBottom - R.rTop) * 15
      Tekst.Width = (R.rRight - R.rLeft) * 15
      Tekst.Height = (R.rBottom - R.rTop) * 15

Dette skulle gerne virke.
Husk at placere dit tekstfelt helt øverst og helt til venstre (0, 0)

Mvh
ON