Predmet:Re: Povečanje forme na cijeli ekran
Imam ja tu funkciju negde ali moram je potraziti.
Bilo je to davno na starom forumu.
Mozes sam lako napisati cod.
Evo ja cu ti dati jedan primer od jednoj mojoj formi pa probaj da preradis kako tebi treba
PreuzmiIzvorni kôd (Visual Basic):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