Prikazi cijelu temu 24.09.2014 14:18
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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