Vb.net: Camne Nak Maintain Kedudukan Vbform Dari Satu Ke Yg Lain

[coisox 0]

Nie soalan VB 2008 Express Edition

Aku ada beberapa vbForm (bukan borang):

1. frmMain //form yg mula2

2. frmDaftar

3. frmDelete

Aku tak set Locked = true

So, bila run, kalau user drag windows bagi frmMain ke kanan, bila aku panggil command frmDaftar.Show(), aku nak kedudukan frmDaftar sama dengan frmMain.

Apa yg berlaku sekarang, bila aku click button utk papar frmDaftar, dia akan bukak kat tempat yg lain.

Nie apa yg aku dah buat tapi tak jadi:

Private Sub btnDaftar_Click (bla...bla...)

frmDaftar.Location = Me.Location

Me.Hide()

frmDaftar.Show()

End Sub

[BasicCX 27]

Centre:

frmDaftar.Move (CInt(Screen.Width / 2) - CInt(frmDaftar.Width / 2)), (CInt(frmDaftar.Height / 2) - CInt(frmDaftar.Height / 2))

Kalau nak lain adjust:

frmDaftar.Move (XX, YY)

Edited September 23, 2008 by BasicCX

[coisox 0]

Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move

Form2.Move(Me.Location.X, Me.Location.Y)

End Sub

Error kat warna merah:

Error 1 'Public Event Move(sender As Object, e As System.EventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event.

Anyway, aku dah jumpa solution lain, aku pakai MDI. Bagi yg blum tau:

Lets say ada 2 page. So create 3 form:

1. frmMDI //tak kisah nama papae

2. frmPage1

3. frmPage2

Set kat frmMDI punya property --> IsMdiContainer = true

Kat coding frmMDI (nak letak tempat lain pun boleh):

Public Class frmMDI
    Dim childPage1(1) As frmPage1
    Dim childPage2(1) As frmPage2

    Private Sub frmMDI_Load(bla...bla...)
        childPage1(0) = New frmPage1()
        childPage1(0).MdiParent = Me
        childPage2(0) = New frmPage2()
        childPage2(0).MdiParent = Me

        childPage1(0).Show()
    End Sub

    Private Sub btnPage2_Click(bla...bla...)
        childPage2(0).Show()
    End Sub
End Class

Maybe korang nak consider disable toolbox utk frmPage1 and frmPage2 dan buat laa pape setting yg lain.