////Buda General Declaration Kodu
Kod:
Option Explicit Dim cleft(50) As Single, ctop(50) As Single, cwid(50) As Single, chite(50) As Single
////Form Load Bolumu///
Kod:
Private Sub Form_Load() Dim ctrl As Control Dim cnt As Long For Each ctrl In Form1.Controls If TypeName(ctrl) "Timer" Then 'timer kontrolunun boyutuna calışma zamanında erişilemez (gerci tasarım zamanında yapılan değişiklikler de pek onemli değildir). 'benzer durumdaki diğer kontrol tiplerini de eklemek gereklidir cleft(cnt) = ctrl.Left / Form1.Width * 100 ctop(cnt) = ctrl.Top / Form1.Height * 100 cwid(cnt) = ctrl.Width / Form1.Width * 100 chite(cnt) = ctrl.Height / Form1.Height * 100 cnt = cnt + 1 End If Next ctrl End Sub Private Sub Form_Resize() On Error Resume Next 'cıkabilecek hatalar bizi pek ilgilendirmiyor
Dim ctrl As Control Dim cnt As Long For Each ctrl In Form1.Controls If TypeName(ctrl) "Timer" Then 'timer kontrolu varsa gec ctrl.Move cleft(cnt) * Form1.Width / 100, ctop(cnt) * Form1.Height / 100, cwid(cnt) * Form1.Width / 100, chite(cnt) * Form1.Height / 100 cnt = cnt + 1 End If Next ctrl End Sub __________________