Predmet:Re: Maximize Forme
PreuzmiIzvorni kôd (Visual Basic):Option Compare Database
Dim x As Single, kx As Single, y As Single, ky As Single
Private Sub Form_Load()
x = Me.InsideWidth
kx = Me.InsideWidth
y = Me.InsideHeight
ky = Me.InsideHeight
End Sub
Private Sub Form_Resize()
Dim DeltaX As Single, DeltaY As Single, xt As Single, yt As Single
Dim ctl As Control
Dim frm As Form
On Error Resume Next
If Me.InsideWidth < kx Then: Me.InsideWidth = kx
If Me.InsideHeight < ky Then: Me.InsideHeight = ky
xt = Me.InsideWidth
yt = Me.InsideHeight
DeltaX = (xt - x) / 2
DeltaY = (yt - y) / 2
Set frm = Me.Form
For Each ctl In frm.Detail.Controls
ctl.Left = ctl.Left + DeltaX
ctl.Top = ctl.Top + DeltaY
Next ctl
x = Me.InsideWidth
y = Me.InsideHeight
End Sub
Kopiraj ovaj kod u modul forme
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.