| Usuario |
bueno, los molesto otra vez |
Fenris
67 Mensaje(s)
|
| Enviado - 17/8/2004 |
| |
Hola a los que lean mi mensaje
el problema que tengo es que puedo ver toda la imagen, pero los scrollbars se siguen moviendo mas alla de los picture box
como hago para que se vea lo justo??
aca les paso el codigo
Private Sub Form_Load()
Picture1.AutoSize = False
Picture1.AutoRedraw = False
Picture2.AutoSize = True
Picture1.AutoRedraw = True
Picture2.Left = 0
Picture2.Top = 0
VScroll1.LargeChange = Picture1.Height / 4
VScroll1.SmallChange = 120
HScroll1.LargeChange = Picture1.Width / 4
HScroll1.SmallChange = 120
End Sub
Private Sub Form_Resize()
VScroll1.Height = ScaleHeight - HScroll1.Height
VScroll1.Left = Me.ScaleWidth - VScroll1.Width
HScroll1.Top = Me.ScaleHeight - HScroll1.Height
HScroll1.Width = Form1.ScaleWidth
Picture1.Width = ScaleWidth
Picture1.Height = ScaleHeight
Form1.Caption = VScroll1.Max & " " & HScroll1.Max
End Sub
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Picture2.Left = -HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
Picture2.Top = -VScroll1.Value
End Sub
|
| |
|
nostromo
409 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Hola;
Realizo la siguiente rutina para evitar el problema:
Private Sub hs_Change()
Picture1.Left = (hs.Value / 30) * -1
End Sub
Private Sub vs_Change()
Picture1.Top = (vs.Value / 30) * -1
End Sub
En los scrollbar no realizo ninguna modificación, SmallChanges = 1.
Para:
Picture1.Height = 6015
Picture1.Width = 9015
Nos vemos. |
| |
|
|
|
