1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Redimensionar em VB6

Discussão em 'Programação' iniciada por ricmrq, 4 de Dezembro de 2007. (Respostas: 7; Visualizações: 1144)

  1. ricmrq

    ricmrq Power Member

    alguem sabe como redimensionar um componente (mais propriamente uma activebar) em VB6 e em run-time?

    cumps
     
  2. boinazul

    boinazul Power Member

    aconselho-te a sacares freeware que faça isso, eu uso o AutoResize.ocx
     
  3. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Redimensionar? Alterar o Top, Left, Height e/ou Width não chega?
     
  4. ricmrq

    ricmrq Power Member

    aquilo a que me refiro é aumentar ou diminuir o width ou o height com o cursor. como se se tivesse a aumentar uma janela do win sem carregar no maximizar
     
  5. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Para maximizares sem carregar no maximizar, podes mexer no Me.WindowState
    Mudar o Width ou o Height com o cursor? Como assim?
     
  6. TheRieper

    TheRieper Power Member

    Eu acho que o que o poster pediu foi o código que permita que o user do software que ele está prestes a criar, durante o uso do mesmo possa redimensionar a janela movendo o cursor para os cantos ou limites laterais/superior/inferior da window e redimensiona-la como fazemos no Windows.

    Abraço
     
  7. Armadillo

    Armadillo Folding Member

    Eu fiz esta cena mas aplicava-se a uma treeview.
    Deves conseguir adaptar ao que tu queres:

    Código:
    
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Me.Navegador.Tag = False
    End Sub
    
    Private Sub Navegador_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    If (x > Me.Navegador.Width - 100) And (x < Me.Navegador.Width) Then
        Me.Navegador.Tag = True
    Else
        Me.Navegador.Tag = False
    End If
    
    End Sub
    
    Private Sub Navegador_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    If (x > Navegador.Width - 100) And (x < Navegador.Width) Then
        Me.Navegador.MousePointer = vbSizeWE
    Else
        Me.Navegador.MousePointer = vbDefault
    End If
    
    If Me.Navegador.Tag <> True Then Exit Sub
    
    If Button <> vbLeftButton Then Exit Sub
    
    Me.Navegador.MousePointer = vbSizeWE
    Me.Navegador.Width = x + 100
    Me.CoolBar1.Width = x + 100
    End Sub
    
    Private Sub Navegador_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Me.Navegador.Tag = False
    End Sub
    
    
     
  8. ricmrq

    ricmrq Power Member

    exactamente isso!

    Armadillo, vou experimentar adaptar esse codigo

    thanks
     

Partilhar esta Página