Gjoreski 23.09.2014 22:40
Predmet:Re: Sliki - Picturebox & Imigebox

eve uste dve sliki

zxz 23.09.2014 23:50
Predmet:Re: Sliki - Picturebox & Imigebox

Vidim ja tvoje slike ali te opet nisam bas razumio sta hoce, jer mi nisi odgovorio na gornji post pa cu postaviti ponovo pitanje odnosno opisati moguce verzije pa ti odaberi koju zelis.

1-Velicina slike ostaje uvijek ista bez obzira na okvir Image kontrole
2-Velicina slike se proporcionalno uvecava u odnosu na jednu od stranica image kontrole
3-Velicina slike se uvecava neproporcionalno prema duzini i sirini image controle
(Duzina slike jednaka je duzini image kontrole a i sirina slike je jednaga sirini image controle)

Odgovori mi pod kojim brojem je tvoj nacin.

Gjoreski 24.09.2014 00:48
Predmet:Re: Sliki - Picturebox & Imigebox

Ova pod broj 2 Slika se proporcionalno zgolemuva ili namaluva za da moze da se prikazi celata vo okvirot na kontrolata

zxz 24.09.2014 12:11
Predmet:Re: Sliki - Picturebox & Imigebox

Evo jedan od nacina a moze i drugacije.
Prilozi:
SlikeVb.zip (Velicina datoteke:106.79 KB)

Gjoreski 24.09.2014 14:06
Predmet:Re: Sliki - Picturebox & Imigebox

Ova e dobro no funkcionira so sliki pomali od 750*1000 Pixeli

Gjoreski 24.09.2014 14:18
Predmet:Re: Sliki - Picturebox & Imigebox

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Slika1 As Slika
  2. Dim Slika2 As Slika
  3. Dim Odnos(2) As Single
  4.  
  5.  
  6. Slika1.Duzina = Image1.Picture.Width / 4
  7. Slika1.Sirina = Image1.Picture.Height / 4
  8.  
  9. Slika2.Duzina = Image2.Width - 30
  10. Slika2.Sirina = Image2.Height - 30
  11.  
  12. Odnos(0) = Slika1.Duzina / Slika2.Duzina
  13. Odnos(1) = Slika1.Sirina / Slika2.Sirina
  14. Odnos(2) = Slika1.Duzina / Slika1.Sirina
  15. Slika2.X = Image2.Left
  16. Slika2.Y = Image2.Top
  17.  
  18. If Odnos(2) > 1 Then
  19. Image1.Width = Slika2.Duzina
  20. Image1.Height = Slika2.Duzina / Odnos(2)
  21. Image1.Top = Slika2.Y + (Slika2.Duzina - Image1.Height) / 2
  22. Image1.Left = Slika2.X + 10
  23. Else
  24. Image1.Height = Slika2.Duzina
  25. Image1.Width = Slika2.Duzina * Odnos(2)
  26. Image1.Top = Slika2.Y + 10
  27. Image1.Left = Slika2.X + (Slika2.Sirina - Image1.Width) / 2
  28. End If
  29. Me.Image1.Stretch = True
  30. Image1.Refresh

Ova e toa sto mi treba

zxz 24.09.2014 14:39
Predmet:Re: Sliki - Picturebox & Imigebox

Znaci sad je sve OK?
jeli?

Gjoreski 24.09.2014 14:44
Predmet:Re: Sliki - Picturebox & Imigebox

DA ovaj cod mislam deka ke gi zadovoli potrebite
Fala uste ednas.

Pozdrav.