Использую такой код:
- Код: Выделить всё
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If (Button = 1) And (Image1.Top + (Y - oldY) / Screen.TwipsPerPixelY >= 0) And (Image1.Top + (Y - oldY) / Screen.TwipsPerPixelY <= UserControl.ScaleHeight - Image1.Height) Then
Image1.Top = Image1.Top + (Y - oldY) / Screen.TwipsPerPixelY
m_Value = CLng(Image1.Top * Ratio) + m_Min
PropertyChanged "Value"
RaiseEvent ValueChange
ElseIf (Button = 1) And (Image1.Top + (Y - oldY) / Screen.TwipsPerPixelY < 0) Then
Image1.Top = 0
m_Value = m_Min
PropertyChanged "Value"
RaiseEvent ValueChange
ElseIf (Button = 1) And (Image1.Top + (Y - oldY) / Screen.TwipsPerPixelY > UserControl.ScaleHeight - Image1.Height) Then
' Image1.Top = UserControl.ScaleHeight - Image1.Height
Image1.Move 3, UserControl.ScaleHeight - Image1.Height
m_Value = m_Max
PropertyChanged "Value"
' mdiMain.Label4.Caption = Y
RaiseEvent ValueChange
End If
End Sub
но, при перемещении картинка будто сыпет мусором, такое ощущение, что накладывается изображение...
полагаю, что вся соль в этом моменте:
- Код: Выделить всё
Image1.Move 3, UserControl.ScaleHeight - Image1.Height
но не уверен...
подскажите, что делать, чтоб картинка плавно перемещалась...
суть в том, что другие контролы, которые ползунок перемещает, перемещаются плавно...