Predmet:Re: Povečanje forme na cijeli ekran
to je kod od Gjoreskog
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub Form_Resize()
Const conMargin As Long = 300
Dim intOrgWidth As Integer
Painting = False
If InsideHeight < 4515 Then InsideHeight = 4515: Exit Sub
If InsideWidth < 6975 Then InsideWidth = 6975: Exit Sub
intOrgWidth = frmKasa_Stavkai_Subform.Width
'horizontal
Vraboten.Left = InsideWidth - Vraboten.Width - 220
Me.cmdClose.Left = InsideWidth - Me.cmdClose.Left - 220
labVraboten.Left = InsideWidth - (Vraboten.Width * 1.5) - 220
cboBrDok.Left = InsideWidth - cboBrDok.Width - 220
labNajdi.Left = InsideWidth - (cboBrDok.Width * 2.5)
txtVkupno.Width = InsideWidth - conMargin * 20
frmKasa_Stavkai_Subform.Left = conMargin
frmKasa_Stavkai_Subform.Width = InsideWidth - conMargin * 2
'vertical
frmKasa_Stavkai_Subform.Height = InsideHeight - Section(acHeader).Height - _
Section(acFooter).Height - frmKasa_Stavkai_Subform.Top - conMargin
Painting = True
End Sub
nevsad