Scrolling a control with mouse events
*
Public Class Form1
Private Sub SC_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles SC.MouseWheel
Dim myView As Point = Me.SC.AutoScrollPosition
myView.X = (myView.X + 100)
myView.Y = (myView.Y + 100)
Me.SC.AutoScrollPosition = myView
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.SC.Select()
End Sub
End Class
Private Sub SC_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles SC.MouseWheel
Dim myView As Point = Me.SC.AutoScrollPosition
myView.X = (myView.X + 100)
myView.Y = (myView.Y + 100)
Me.SC.AutoScrollPosition = myView
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.SC.Select()
End Sub
End Class
마우스 휠 스크롤 이벤트 입니다.
이 게시물을
번호
제목
114
112
108
104
103
101
100