Centar za edukaciju-BiH



#1 19.06.2020 10:24
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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

Prilozi:
Informacije o tipu datoteke za:rar  Database1.rar
Preuzimanja:204
Velicina datoteke:23.88 KB

↑  ↓

#2 21.06.2020 10:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Maximize Forme
PreuzmiIzvorni kôd (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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 21.06.2020 13:12
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet: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 Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Maximize Forme
Postavi primer
↑  ↓

#5 22.06.2020 10:38
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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

Prilozi:
Informacije o tipu datoteke za:rar  primer.rar
Preuzimanja:183
Velicina datoteke:45.46 KB
Informacije o tipu datoteke za:rar  primer.rar
Preuzimanja:184
Velicina datoteke:45.46 KB

↑  ↓

#6 22.06.2020 10:39
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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

Slicice prilozenih slika:
1.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:188
Velicina datoteke:120.74 KB
Velicina slike: 1920 x 1080 Pikseli
2.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:201
Velicina datoteke:121.71 KB
Velicina slike: 1920 x 1080 Pikseli
3.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:185
Velicina datoteke:110.46 KB
Velicina slike: 1920 x 1080 Pikseli

↑  ↓

#7 22.06.2020 20:10
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet: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 Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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

#9 22.06.2020 22:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet: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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 13 am.