Prikazi cijelu temu 10.04.2015 19:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: form2 uvijek u centru form1
Losa ti je i matematika.
Evo pogledaj.
Ovom ti je za form1
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. With Form1
  3.  .Top = (Screen.Height - .Height) / 2
  4.  .Left = (Screen.Width - .Width) / 2
  5.  End With
  6. End Sub
  7.  
  8. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  9. Dim RazlikaDuzina As Integer
  10. Dim RazlikaSirina As Integer
  11.  
  12. RazlikaDuzina = (Form1.Width - Form2.Width) / 2
  13. RazlikaSirina = (Form1.Height - Form2.Height) / 2
  14. Form2.Move Form1.Left + RazlikaDuzina, Form1.Top + RazlikaSirina
  15.  
  16. Form2.Refresh
  17. End Sub

A ovo za form2.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. Dim RazlikaDuzina As Integer
  3. Dim RazlikaSirina As Integer
  4.  
  5. RazlikaDuzina = (Form1.Width - Form2.Width) / 2
  6. RazlikaSirina = (Form1.Height - Form2.Height) / 2
  7. Form2.Top = Form1.Top + RazlikaSirina
  8. Form2.Left = Form1.Left + RazlikaDuzina
  9. End Sub

Ovo mozes staviti i na form1 na taster na kome otvaras form2.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.