Bosna i Hercegovina



#16 24.09.2014-13:18
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,528


Subject: Re: Sliki - Picturebox & Imigebox
DownloadIzvorni kod (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
↑  ↓

#17 24.09.2014-13:39
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,764


Subject: Re: Sliki - Picturebox & Imigebox
Znaci sad je sve OK?
jeli?
Pozdrav
↑  ↓

#18 24.09.2014-13:44
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,528


Subject: Re: Sliki - Picturebox & Imigebox
DA ovaj cod mislam deka ke gi zadovoli potrebite
Fala uste ednas.

Pozdrav.
↑  ↓

Stranice (2): 1, 2

All times are GMT +01:00. Current time: 22.10.2018-22:41.