Postada em 06/05/2009 15:39 hs
Cara acho que consegui a solução. Alexandre, troque o código para esse abaixo. Só pode ter um picturebox., se vc deixar os dois da erro (esse objeto não aceita propriedade ou metodo), não sei porque, se souberem me falem pois preciso para melhorar oa visualização dos objetos no form.
Treze, vc tem um exemplo com o richtextbox para que eu passa adaptar e testar?
Option Explicit
Public PosicaoScroll
Private m_NumControls As Integer
Dim Referencia As Integer
Dim pos1 'L As Integer
Dim ID As Long
Dim PosLeft, PosTop, L
Dim Box(0 To 1) As Object
Private Sub Command1_Click()
TextX
End Sub
Private Sub Form_Load()
PosicaoScroll = 0
VBar.Min = 0
VBar.SmallChange = 120
VBar.LargeChange = 480
VBar.Value = 0
Referencia = 1
ID = 0
pos1 = Empty
TextX
End Sub
Private Sub TextX()
Dim ctl As TextBox
If Referencia = 1 Then
PosTop = pos1 + 100
End If
PosLeft = 1
L = L + 1
m_NumControls = 1
Set Box(0) = Controls.Add("VB.TextBox", "A" & L + 1, PicInner)
Box(0).Move PosLeft + 398, PosTop, 495, 315
Box(0).Appearance = 0
Box(0).BorderStyle = 1
Box(0).Tag = "a"
Box(0).Visible = True
Set Box(1) = Controls.Add("VB.TextBox", "B" & L + 1, PicInner)
Box(1).Move PosLeft + 920, PosTop, 600, 315
Box(1).Appearance = 0
Box(1).BorderStyle = 1
Box(1).Tag = "a"
Box(1).Visible = True
pos1 = pos1 + 330
ID = ID + 1
VBar.Max = pos1
End Sub
Private Sub VBar_Change()
Dim x
Dim pos
pos = VBar.Value - PosicaoScroll
PosicaoScroll = VBar.Value
For Each x In PicInner.Container
If x.Tag = "a" Then
If x.Name <> "PicInner" And x.Name <> "Vbar" Then
x.Top = x.Top - pos
End If
End If
Next x
End Sub
Private Sub VBar_Scroll()
Dim x
Dim pos
pos = VBar.Value - PosicaoScroll
PosicaoScroll = VBar.Value
For Each x In PicInner.Container
If x.Tag = "a" Then
If x.Name <> "PicInner" And x.Name <> "VBar" Then
x.Top = x.Top - pos
End If
End If
Next x
End Sub
|
