Skip to main content
Tweeted twitter.com/StackOverflowPT/status/1063265679976091649
adicionou 928 caracteres ao conteúdo
Fonte Link
Lucas Pedro
  • 282
  • 3
  • 12

Eu gostaria de abrir um form dentro de um panel, mas quando ele abre, ele fica sempre do mesmo tamanho e no mesmo lugar independente do tamanho dor form ou da localização.

inserir a descrição da imagem aqui

Dim rv As New formRV

        rv.link = lvPasta.SelectedItems(0).ImageKey
        rv.FormBorderStyle = FormBorderStyle.None
        rv.Dock = DockStyle.Fill
        rv.TopLevel = False


        Dim p As New Panel
        With p
            Size = New Size(Me.Width, Me.Height)
            Location = New Point(Me.Location.X, Me.Location.Y)
        End With


        Me.Controls.Add(p)
        p.BringToFront()

        p.Controls.Add(rv)

        p.Show()
        rv.Show()

Edit:

Alem do panel eu tentei apenas criar o novo form e exibi-lo, escondendo o form antigo, mas eu tive o problema da tela "piscar" enquanto o form troca (form principal some - pedaço do windows - novo form aparece) e os botões para que quando o novo form fosse fechado pelo "X" (onde normalmente fecha um programa) o primeiro form fosse fechado, mas quando clicasse em um outro botão para "voltar" ele fechasse o form2 mas não o primeiro form.

Dim rv As New formRodaVideo

        rv.linkvideo = lvPasta.SelectedItems(0).ImageKey
        rv.FormBorderStyle = FormBorderStyle.Sizable
        rv.TopLevel = True
        rv.Width = Me.Width
        rv.Height = Me.Height
        rv.Location = Me.Location
        rv.WindowState = FormWindowState.Normal
        rv.StartPosition = FormStartPosition.WindowsDefaultBounds

        rv.Show()
        Me.Hide()

Eu gostaria de abrir um form dentro de um panel, mas quando ele abre, ele fica sempre do mesmo tamanho e no mesmo lugar independente do tamanho dor form ou da localização.

inserir a descrição da imagem aqui

Dim rv As New formRV

        rv.link = lvPasta.SelectedItems(0).ImageKey
        rv.FormBorderStyle = FormBorderStyle.None
        rv.Dock = DockStyle.Fill
        rv.TopLevel = False


        Dim p As New Panel
        With p
            Size = New Size(Me.Width, Me.Height)
            Location = New Point(Me.Location.X, Me.Location.Y)
        End With


        Me.Controls.Add(p)
        p.BringToFront()

        p.Controls.Add(rv)

        p.Show()
        rv.Show()

Eu gostaria de abrir um form dentro de um panel, mas quando ele abre, ele fica sempre do mesmo tamanho e no mesmo lugar independente do tamanho dor form ou da localização.

inserir a descrição da imagem aqui

Dim rv As New formRV

        rv.link = lvPasta.SelectedItems(0).ImageKey
        rv.FormBorderStyle = FormBorderStyle.None
        rv.Dock = DockStyle.Fill
        rv.TopLevel = False


        Dim p As New Panel
        With p
            Size = New Size(Me.Width, Me.Height)
            Location = New Point(Me.Location.X, Me.Location.Y)
        End With


        Me.Controls.Add(p)
        p.BringToFront()

        p.Controls.Add(rv)

        p.Show()
        rv.Show()

Edit:

Alem do panel eu tentei apenas criar o novo form e exibi-lo, escondendo o form antigo, mas eu tive o problema da tela "piscar" enquanto o form troca (form principal some - pedaço do windows - novo form aparece) e os botões para que quando o novo form fosse fechado pelo "X" (onde normalmente fecha um programa) o primeiro form fosse fechado, mas quando clicasse em um outro botão para "voltar" ele fechasse o form2 mas não o primeiro form.

Dim rv As New formRodaVideo

        rv.linkvideo = lvPasta.SelectedItems(0).ImageKey
        rv.FormBorderStyle = FormBorderStyle.Sizable
        rv.TopLevel = True
        rv.Width = Me.Width
        rv.Height = Me.Height
        rv.Location = Me.Location
        rv.WindowState = FormWindowState.Normal
        rv.StartPosition = FormStartPosition.WindowsDefaultBounds

        rv.Show()
        Me.Hide()
Fonte Link
Lucas Pedro
  • 282
  • 3
  • 12

Erro ao abrir form dentro do panel

Eu gostaria de abrir um form dentro de um panel, mas quando ele abre, ele fica sempre do mesmo tamanho e no mesmo lugar independente do tamanho dor form ou da localização.

inserir a descrição da imagem aqui

Dim rv As New formRV

        rv.link = lvPasta.SelectedItems(0).ImageKey
        rv.FormBorderStyle = FormBorderStyle.None
        rv.Dock = DockStyle.Fill
        rv.TopLevel = False


        Dim p As New Panel
        With p
            Size = New Size(Me.Width, Me.Height)
            Location = New Point(Me.Location.X, Me.Location.Y)
        End With


        Me.Controls.Add(p)
        p.BringToFront()

        p.Controls.Add(rv)

        p.Show()
        rv.Show()