Bosna i Hercegovina



kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 178


Subject: Povečanje forme na cijeli ekran
Nekad sam negdje naletio na jedan super fol a to je da formu razvuče preko cijelog ekrana i da nema onih klasičnih forminih djelova gore i dole

ako neko može da mi pomogne kako to prvo povečati na cijeli ekran a za dodatke može i kasnije

hvala
↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,229


Subject: 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
DownloadIzvorni kod (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
↑  ↓

kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 178


Subject: Re: Povečanje forme na cijeli ekran
HVALA

SUPER TI JE OVO I RADI

ALI CU TE OVIH DANA MALO MALTRETIRAT OKO OVIH POZICIJA DA MI MALO POJASNIŠ ODREĐENE POZICIJE ODNOSNO KAKO IH RAČUNAŠ
↑  ↓

 Podijeli  Dodaj odgovor Stranice (1): 1


All times are GMT +01:00. Current time: 26.06.2017-08:05.