Predmet:Re: form2 uvijek u centru form1
Losa ti je i matematika.
Evo pogledaj.
Ovom ti je za form1
PreuzmiIzvorni kôd (Visual Basic):Private Sub Form_Load()
With Form1
.Top = (Screen.Height - .Height) / 2
.Left = (Screen.Width - .Width) / 2
End With
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim RazlikaDuzina As Integer
Dim RazlikaSirina As Integer
RazlikaDuzina = (Form1.Width - Form2.Width) / 2
RazlikaSirina = (Form1.Height - Form2.Height) / 2
Form2.Move Form1.Left + RazlikaDuzina, Form1.Top + RazlikaSirina
Form2.Refresh
End Sub
A ovo za form2.
PreuzmiIzvorni kôd (Visual Basic):Private Sub Form_Load()
Dim RazlikaDuzina As Integer
Dim RazlikaSirina As Integer
RazlikaDuzina = (Form1.Width - Form2.Width) / 2
RazlikaSirina = (Form1.Height - Form2.Height) / 2
Form2.Top = Form1.Top + RazlikaSirina
Form2.Left = Form1.Left + RazlikaDuzina
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.