none
[問題]如何讓子表單永遠在最上層 RRS feed

  • 問題

  • 我使用form1和form2
    我如何讓form1永遠在form2上層
    我想要讓form2是full狀態,所以必須form1永遠不能沈入form2下
    語法該怎麼寫呢?
    2007年2月13日 下午 07:12

解答

  • :::父表單

        Private Sub Form0_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim f1 As New Form1
            Dim f2 As New Form2

            f1.MdiParent = Me
            f2.MdiParent = Me
            f1.Show()
            f2.Show()

            f1.BringToFront()
            f2.SendToBack()
        End Sub

    Form2

        Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
            Me.SendToBack()
        End Sub

    2007年2月15日 上午 01:30

所有回覆

  • :::Form1

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim f2 As New Form2
            f2.Show()
            Me.BringToFront()
        End Sub

     

    Form2

        Private Sub Form2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
            Me.SendToBack()
        End Sub

    2007年2月14日 上午 01:27
  • 使用Control.BringToFront方法,form1在最前面了
    但是只要按一下form2之後,form1不是就沈入form2之後了嗎?
    form1因該是topmost顯示在最上層,但是在子標單上topmost方式會失效
    2007年2月14日 上午 08:05
  • 可以不使用Button就能最上層顯示嗎?
    2007年2月14日 上午 08:07
  • :::

      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim f2 As New Form2
            f2.Show()
            Me.BringToFront()
        End Sub

    2007年2月14日 上午 10:10
  • 我的意思是 form1 和 form2 是子視窗
    form 是父視窗

    也就是form 開出之後 form1 和 form2 在form裡面
    現在要把form12 設定永遠是最上層
    點選form2之後 form1也不會沈入form2之後
    2007年2月14日 下午 02:53
  • :::父表單

        Private Sub Form0_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim f1 As New Form1
            Dim f2 As New Form2

            f1.MdiParent = Me
            f2.MdiParent = Me
            f1.Show()
            f2.Show()

            f1.BringToFront()
            f2.SendToBack()
        End Sub

    Form2

        Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
            Me.SendToBack()
        End Sub

    2007年2月15日 上午 01:30
  • 原來我搞了兩天問題就出現在form2的控制項

    Form2

        Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
            Me.SendToBack()
        End Sub


    真是深奧的一段

    太感激您了!!

    2007年2月15日 上午 05:13