none
Ajustar Userform RRS feed

  • Pergunta

  • Ola, bom dia!

    Como faço para ajustar o UserForm horizontal e vertical nesta proriedade?

    Private Sub ScrollBar1_Change()
    
    End Sub
    
    Private Sub ScrollBar2_Change()
    
    End Sub

    Obrigado.

    sábado, 28 de março de 2015 14:29

Respostas

  • Miguelinho...

    veja se é mais ou menos isso que você quer:

    Private Sub UserForm_Initialize()
      
      ScrollBar1.Max = ActiveWindow.Width
      ScrollBar1.Value = Me.Width
      
      ScrollBar2.Max = ActiveWindow.Height
      ScrollBar2.Value = Me.Height
      
    End Sub
    
    Private Sub ScrollBar1_Change()
      
      Me.Width = ScrollBar1.Value
    
    End Sub
    
    Private Sub ScrollBar2_Change()
      
      Me.Height = ScrollBar2.Value
    
    End Sub
    


    Natan

    • Marcado como Resposta miguelinho70 sábado, 28 de março de 2015 18:17
    sábado, 28 de março de 2015 17:39

Todas as Respostas

  • Miguelinho, bom dia!

    Da uma olhada no exemplo abaixo!

    https://msdn.microsoft.com/en-us/library/ms229606(v=vs.110).aspx

    https://msdn.microsoft.com/en-us/library/25w4thew(v=vs.110).aspx

    Esta carinha aqui você add no load do form!

    Form1.Size = new System.Drawing.Size(100, 100);


    Att,
    André Rodrigues Côrte
    Analista de Sistema
    Côrte Solutions
    Grupo de Estudo C# Facebook
    Canal de Estudo Youtube

    sábado, 28 de março de 2015 15:04
  • Miguelinho...

    veja se é mais ou menos isso que você quer:

    Private Sub UserForm_Initialize()
      
      ScrollBar1.Max = ActiveWindow.Width
      ScrollBar1.Value = Me.Width
      
      ScrollBar2.Max = ActiveWindow.Height
      ScrollBar2.Value = Me.Height
      
    End Sub
    
    Private Sub ScrollBar1_Change()
      
      Me.Width = ScrollBar1.Value
    
    End Sub
    
    Private Sub ScrollBar2_Change()
      
      Me.Height = ScrollBar2.Value
    
    End Sub
    


    Natan

    • Marcado como Resposta miguelinho70 sábado, 28 de março de 2015 18:17
    sábado, 28 de março de 2015 17:39
  • Isso mesmo 'Natan Silva obrigado, resolvido.

    Obrigado André Rodrigues.

    sábado, 28 de março de 2015 18:22