Prikazi cijelu temu 04.06.2017 21:43
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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):
  1. Private Sub Form_Open(Cancel As Integer)
  2.   DoCmd.Maximize
  3. End Sub
  4.  
  5. Private Sub Form_Resize()
  6.    Const conMargin As Long = 300
  7.    Dim intOrgWidth As Integer
  8.  
  9.    Painting = False
  10.    
  11.    If InsideHeight < 4515 Then InsideHeight = 4515: Exit Sub
  12.    If InsideWidth < 6975 Then InsideWidth = 6975: Exit Sub
  13.       intOrgWidth = frmKasa_Stavkai_Subform.Width
  14.    
  15.    'horizontal
  16.     Vraboten.Left = InsideWidth - Vraboten.Width - 220
  17.      Me.cmdClose.Left = InsideWidth - Me.cmdClose.Left - 220
  18.      labVraboten.Left = InsideWidth - (Vraboten.Width * 1.5) - 220
  19.      cboBrDok.Left = InsideWidth - cboBrDok.Width - 220
  20.      labNajdi.Left = InsideWidth - (cboBrDok.Width * 2.5)
  21.      txtVkupno.Width = InsideWidth - conMargin * 20
  22.      frmKasa_Stavkai_Subform.Left = conMargin
  23.      frmKasa_Stavkai_Subform.Width = InsideWidth - conMargin * 2
  24.    'vertical
  25.     frmKasa_Stavkai_Subform.Height = InsideHeight - Section(acHeader).Height - _
  26.      Section(acFooter).Height - frmKasa_Stavkai_Subform.Top - conMargin
  27.    
  28.    Painting = True
  29. End Sub