19,504
社区成员
发帖
与我相关
我的任务
分享
Public Sub Hk_Ce_MouseMoved(ByVal sender As Object, ByVal e As MouseEventArgs)
Label1.Text = String.Format("x={0} y={1}", e.X, e.Y)
TextBox.SelectionStart =TextBox.TextLength
TextBox.SelectedText = "MouseButton " & ": - " + e.Button.ToString + vbCrLf
TextBox.ScrollToCaret() '显示最后的一行
End Sub