problem resen, vucko hvala
Citat:
Private Sub Form_Load()
Parametrizacija Me.Count, Me.Height, Me.Width, form1
Resizer Me.Count, Me.Height, Me.Width, form1
form1.Height = Me.Height
form1.Width = Me.Width
Visina = Me.Height
Sirina = Me.Width
End Sub
Citat:
Private Sub Form_Resize()
Resizer Me.Count, Me.Height, Me.Width, form1
End Sub
modul
Citat:
Option Explicit
Public Parametar() As Double
Public Function Parametrizacija(BrKontrola As Integer, VisinaF As Integer, SirinaF As Integer, Form As Form)
Dim Brojac As Integer
On Error Resume Next
ReDim Parametar(BrKontrola, 4)
For Brojac = 0 To BrKontrola - 1
Parametar(Brojac, 1) = VisinaF / form1.Controls(Brojac).Height
Parametar(Brojac, 2) = SirinaF / form1.Controls(Brojac).Width
Parametar(Brojac, 3) = VisinaF / form1.Controls(Brojac).Top
Parametar(Brojac, 4) = SirinaF / form1.Controls(Brojac).Left
Next Brojac
End Function
Public Function Resizer(BrKontrola As Integer, VisinaF As Integer, SirinaF As Integer, Form As Form)
Dim Brojac As Integer
For Brojac = 0 To BrKontrola - 1
On Error Resume Next
form1.Controls(Brojac).Height = VisinaF / Parametar(Brojac, 1)
form1.Controls(Brojac).Width = SirinaF / Parametar(Brojac, 2)
form1.Controls(Brojac).Top = VisinaF / Parametar(Brojac, 3)
form1.Controls(Brojac).Left = SirinaF / Parametar(Brojac, 4)
Handler:
Next Brojac
End Function