BiH



#1 19.06.2020-10:24
White Man Offline
Clan
Registrovan/a od: 11.03.2011-16:39
Komentari: 344


Subject: Maximize Forme
Kako da namestim da mi sadrzaj forme uvek bude na sredini forme, kad se maksimizira forma? Hvala unapred

Prilozi:
Informacije o fajlu: rar  Database1.rar
Preuzimanja: 18
Veličina: 23.88 KB

↑  ↓

#2 21.06.2020-10:15
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,150


Subject: Re: Maximize Forme
DownloadIzvorni kod (Visual Basic):
  1. Option Compare Database
  2. Dim x As Single, kx As Single, y As Single, ky As Single
  3. Private Sub Form_Load()
  4. x = Me.InsideWidth
  5. kx = Me.InsideWidth
  6. y = Me.InsideHeight
  7. ky = Me.InsideHeight
  8. End Sub
  9.  
  10. Private Sub Form_Resize()
  11. Dim DeltaX As Single, DeltaY As Single, xt As Single, yt As Single
  12. Dim ctl As Control
  13. Dim frm As Form
  14.  
  15. On Error Resume Next
  16. If Me.InsideWidth < kx Then: Me.InsideWidth = kx
  17. If Me.InsideHeight < ky Then: Me.InsideHeight = ky
  18. xt = Me.InsideWidth
  19. yt = Me.InsideHeight
  20.  
  21. DeltaX = (xt - x) / 2
  22. DeltaY = (yt - y) / 2
  23. Set frm = Me.Form
  24. For Each ctl In frm.Detail.Controls
  25.     ctl.Left = ctl.Left + DeltaX
  26.     ctl.Top = ctl.Top + DeltaY
  27. Next ctl
  28.  
  29. x = Me.InsideWidth
  30. y = Me.InsideHeight
  31. End Sub

Kopiraj ovaj kod u modul forme
Pozdrav
↑  ↓

#3 21.06.2020-13:12
White Man Offline
Clan
Registrovan/a od: 11.03.2011-16:39
Komentari: 344


Subject: Re: Maximize Forme
Obicne forme i forme sa sub formama rade odlicno, ali forme koje imaju tab control nece najbolje. Pomeri polja na sredinu ali onda pomeri malo tab control i razvuce od njega belo i po poljima i onda ne moze da se unose podaci u njih. Da li postoji mogucnost i da takve forme rade lepo? Hvala unapred
↑  ↓

#4 21.06.2020-14:46
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,718


Subject: Re: Maximize Forme
Postavi primer
↑  ↓

#5 22.06.2020-10:38
White Man Offline
Clan
Registrovan/a od: 11.03.2011-16:39
Komentari: 344


Subject: Re: Maximize Forme
Evo primer, kad se maksimizira forma rasturi se sadrzaj na njoj, kad se posle minimizira ponovo se rasturi.

Prilozi:
Informacije o fajlu: rar  primer.rar
Preuzimanja: 5
Veličina: 45.46 KB
Informacije o fajlu: rar  primer.rar
Preuzimanja: 5
Veličina: 45.46 KB

↑  ↓

#6 22.06.2020-10:39
White Man Offline
Clan
Registrovan/a od: 11.03.2011-16:39
Komentari: 344


Subject: Re: Maximize Forme
Evo i slike kako kod mene izgleda

Ikona prilozene slike:
1.jpg
Tip fajla: Informacije o fajlu: jpg jpg
Preuzimanja: 18
Veličina: 120.74 KB
Veličina slike: 1920 x 1080 Pixels
2.jpg
Tip fajla: Informacije o fajlu: jpg jpg
Preuzimanja: 17
Veličina: 121.71 KB
Veličina slike: 1920 x 1080 Pixels
3.jpg
Tip fajla: Informacije o fajlu: jpg jpg
Preuzimanja: 13
Veličina: 110.46 KB
Veličina slike: 1920 x 1080 Pixels

↑  ↓

#7 22.06.2020-20:10
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,718


Subject: Re: Maximize Forme
Tab controlata je problem ,pokusaj kako ce biti bez Tab.
Kasnije ako je neophodno preradi ce se cod i za tabu
↑  ↓

#8 22.06.2020-21:52
White Man Offline
Clan
Registrovan/a od: 11.03.2011-16:39
Komentari: 344


Subject: Re: Maximize Forme
Bez radi odlicno, ali nece sa tab control
↑  ↓

#9 22.06.2020-22:57
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,150


Subject: Re: Maximize Forme
Tab kontrola ti je objekat koji u sebi sadrzi druge kontrole.
Unutar nje pomijeranje kontrola uticu na promjenu jer pomijeranjem taba si vec pomjerio te kontrole.
Jedno od rjesenja moze biti da izdvojis kontrole koje treba d a se pomijeraju.
U tvom slucaju su to kontrole van taba i sam tab.
To mozes itvesti na nacin da selektujes sve kontrole van taba i sam tab a ne unutarnje kontrole u njemu.
U vrijenost tag napr. upisi 1.
To mozes uraditi jednim potezom ako si selektovao sve sto treba.
Sdada jos malo izmijenis kod koji sam napisao u ovom dijrlu:

For Each ctl In frm.Detail.Controls
if ctl.tag=1 then
ctl.Left = ctl.Left + DeltaX
ctl.Top = ctl.Top + DeltaY
end if
Next ctl
Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 07.07.2020-10:47.