none
有關位置的問題 RRS feed

  • 問題

  • 開發環境:Visual Basic 2005

    現在有一個MDI表單MDIMain
    裡面有兩個子表單Form1,Form2
    Form1裡面有一個TextBox:TextBox1

    現在我想要滑鼠雙擊TextBox1後,讓Form2的位置Show在TextBox1的下面,左緣對齊

    請問要怎麼做才行呢?

    謝謝!

    2006年11月19日 下午 02:11

解答

  • Hi~您好

    請試試看以下的作法(我有試過 ︿︿ 應該可以)

    Private Sub TextBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDoubleClick
            Dim t As New TEST  'TEST是你的Form2
            Dim p As Point = TextBox1.PointToScreen(p)
            t.StartPosition = FormStartPosition.Manual
            t.DesktopLocation = New Point(p.X, p.Y + TextBox1.Height)
            t.Show()
    End Sub

    2006年11月21日 上午 06:04