大佬教程收集整理的这篇文章主要介绍了使用鼠标滚轮和VB.NET中的Ctrl控制WinForms的缩放级别,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
非常感谢所有的帮助!
KeyDown
和
KeyUp
事件才能确定是否按住Ctrl键.此值应存储在类级别,因为除了KeyDown和KeyUp事件之外,其他子例程将使用它.
然后编写代码来处理表单的MouseWheel
事件.向下滚动(朝向您)会导致MouseEventArgs的Delta
属性为负值.向上滚动显然是相反的. Delta属性的值始终为120.
微软的这个价值的原因如下:
在您的上下文中,您只需检查Delta的符号并执行操作.
以下是实现基本“缩放”功能的示例代码:
Public Class Form1 Enum ZoomDirection None Up Down End Enum Dim CtrlIsDown As Boolean Dim ZoomValue As Integer Sub New() ' This call is required by the designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. ZoomValue = 100 End Sub Private Sub Form1_KeyDown_KeyUp(ByVal sender As Object,_ ByVal e As KeyEventArgs) _ Handles Me.KeyDown,Me.KeyUp CtrlIsDown = e.Control End Sub Private Sub Form1_MouseWheel(ByVal sender As Object,ByVal e As MouseEventArgs) _ Handles Me.MouseWheel 'check if control is being held down If CtrlIsDown Then 'evaluate the delta's sign and call the appropriate zoom command Select Case Math.Sign(e.Delta) Case Is < 0 Zoom(ZoomDirection.Down) Case Is > 0 Zoom(ZoomDirection.Up) Case Else Zoom(ZoomDirection.None) End Select End If End Sub Private Sub Zoom(ByVal direction As ZoomDirection) 'change the zoom value based on the direction passed Select Case direction Case ZoomDirection.Up ZoomValue += 1 Case ZoomDirection.Down ZoomValue -= 1 Case Else 'do nothing End Select Me.Text = ZoomValue.ToString() End Sub End Class
有关您的问题的更多信息,请阅读以下内容:
> MSDN: Control.KeyDown Event
> MSDN: Control.KeyUp Event
> MSDN: Control.MouseWheel Event
> MSDN: MouseEventArgs Class
以上是大佬教程为你收集整理的使用鼠标滚轮和VB.NET中的Ctrl控制WinForms的缩放级别全部内容,希望文章能够帮你解决使用鼠标滚轮和VB.NET中的Ctrl控制WinForms的缩放级别所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。