Visual Basic - Scrollbar

Life is soft - evento anual de software empresarial
 
Vista:

Scrollbar

Publicado por carlos pulga (136 intervenciones) el 21/11/2006 18:24:56
como se usan los VScrollbar y los HScrollbar y me gustaria saber si estos se pueden usar en un frame?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Scrollbar

Publicado por Yo (17 intervenciones) el 29/11/2006 06:42:33
es complicado decir como funcionan totalmete probablemente te ayude este pedazo de mi aplicacion:

---------------------------------------------------------------------------------
NECESITAS
1 image
2 picture
2 timer
1 VScrollBar
1 HScrollBar
1 shape
----------------------------------------------------------------------------------
Public Sub Form_Resize()
On Error Resume Next

If Me.Width < 3000 Then
Me.Width = 3000
End If
If Me.Height < 2000 Then
Me.Height = 2000
End If

Scroll1.Left = Me.ScaleWidth - Scroll1.Width
Scroll1.Height = Me.ScaleHeight - 255
Scroll2.Top = Me.ScaleHeight - Scroll2.Height
Scroll2.Width = Me.ScaleWidth - 255
Picture2.Top = Me.ScaleHeight - Picture2.Height
Picture2.Left = Me.ScaleWidth - Picture2.Width

If Picture1.Height > Me.ScaleHeight Then
Scroll1.Visible = True
Picture2.Visible = True
Else
Scroll1.Visible = False
Picture1.Top = 0
End If

If Picture1.Width > Me.ScaleWidth Then
Scroll2.Visible = True
Picture2.Visible = True
Else
Scroll2.Visible = False
Picture1.Left = 0
End If

If Scroll1.Visible = False Then
If Scroll2.Visible = False Then
Picture2.Visible = False
End If
End If

If Scroll1.Visible = True Then
If Scroll2.Visible = False Then
Picture2.Visible = False
Scroll1.Height = Me.ScaleHeight
End If
Else
If Scroll2.Visible = True Then
If Scroll1.Visible = False Then
Picture2.Visible = False
Scroll2.Width = Me.ScaleWidth
End If
End If
End If

Scroll1.Max = (Picture1.Height - Me.ScaleHeight + 300) / 150
Scroll2.Max = (Picture1.Width - Me.ScaleWidth + 300) / 150

End Sub

Si los puedes usar en un frame, pero seria algo complicado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar