| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 外接设备编程 >> 实例分析正文
最新推荐 更多内容
响应数字化仪触笔背面的橡皮擦(VB2010实例)
响应数字化仪触笔背面的橡皮擦(VB2010实例)
作者:Akyao    来源:乐博网收集     更新时间:2011-4-18

本文演示如何响应数字化仪触笔背面的橡皮擦,来自乐博网。

如果你想下载本文的源代码RAR压缩集合包  请访问
VB2010源代码集合包(芋头糕)    http://www.lob.cn/code/utility/2795.shtml
特别感谢网友 芋头糕 将此资源提供乐博网分享,欢迎加入 40797788 的.Net超级qq群交流。

响应数字化仪触笔背面的橡皮擦的实例代码如下:

Imports Microsoft.Ink

Public Class Form1
    Dim WithEvents myInkOverlay As InkOverlay
    Dim selectedMode As InkOverlayEditingMode

    Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        myInkOverlay = New InkOverlay(Panel1)
        myInkOverlay.Enabled = True '更多.net源代码 来自乐博网lob.cn
    End Sub

    'Back of pen erase
    Sub CursorInRangeEventHandler(ByVal sender As Object, ByVal e As InkCollectorCursorInRangeEventArgs) Handles myInkOverlay.CursorInRange
        'If the pen is inverted, set mode to "delete"
        If (e.Cursor.Inverted) Then
            myInkOverlay.EditingMode = InkOverlayEditingMode.Delete
        Else
            'Pen is not inverted, so select whatever mode the user requested
            myInkOverlay.EditingMode = selectedMode
        End If
    End Sub

    'Ink mode radio button
    Sub InkRadioClickedHandler(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButton1.CheckedChanged
        If (RadioButton1.Checked) Then
            selectedMode = InkOverlayEditingMode.Ink
            DoModeChange(InkOverlayEditingMode.Ink)
        End If
    End Sub

    'Select mode radio button
    Sub SelectRadioClickedHandler(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButton2.CheckedChanged
        If (RadioButton2.Checked) Then
            selectedMode = InkOverlayEditingMode.Select
            DoModeChange(InkOverlayEditingMode.Select)
        End If
    End Sub

    'Delete mode radio button
    Sub DeleteRadioClickedHandler(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButton3.CheckedChanged
        If (RadioButton3.Checked) Then
            selectedMode = InkOverlayEditingMode.Delete
            DoModeChange(InkOverlayEditingMode.Delete)
        End If
    End Sub

    'Wire up delete mode buttons

    'Delete entire stroke
    Sub StrokeRadioClickedHandler(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButton4.CheckedChanged
        'Can be called during Form construction, prior to myInkOverlay instantiation
        If (myInkOverlay Is Nothing) Then
            Return
        End If

        If (RadioButton4.Checked) Then
            myInkOverlay.EraserMode = InkOverlayEraserMode.StrokeErase
        End If
    End Sub

    'Delete point(s) at pen tip only
    Sub PointRadioClickedHandler(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButton5.CheckedChanged
        If (RadioButton5.Checked) Then
            myInkOverlay.EraserMode = InkOverlayEraserMode.PointErase
        End If
    End Sub

    Sub DoModeChange(ByVal NewMode As InkOverlayEditingMode)
        'Can be called during Form construction, prior to myInkOverlay instantiation
        If (myInkOverlay Is Nothing) Then
            Return
        End If

        'Switch the collection mode
        myInkOverlay.EditingMode = NewMode

        'Switch the radio buttons to reflect new mode
        Select Case NewMode
            Case InkOverlayEditingMode.Ink
                RadioButton1.Checked = True
                RadioButton2.Checked = False
                RadioButton3.Checked = False
            Case InkOverlayEditingMode.Select
                RadioButton1.Checked = False
                RadioButton2.Checked = True
                RadioButton3.Checked = False
            Case InkOverlayEditingMode.Delete
                RadioButton1.Checked = False
                RadioButton2.Checked = False
                RadioButton3.Checked = True
            Case Else
                Throw New ArgumentOutOfRangeException()
        End Select
    End Sub


End Class

 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    管理计算机电源状态的类(VB2010实例)
    Tablet PC 上可用的文本识别选项(VB2010实例)
    Tablet PC 2005 中对笔势的系统识别(VB2010实例)
    自定义数据控件(VB2010实例)
    Tablet PC 2005 的区分上下文功能(VB2010实例)
    WMI编程实例(VB2010实例)
    系统服务管理实例(VB2010实例)
    进程管理(VB2010实例)
    显示进程组成模块(VB2010实例)
    任务管理器编程(VB2010实例)
    性能计数器编程(VB2010实例)
    消息队列MSMQListener(VB2010实例)
    消息队列MSMQClient(VB2010实例)
    写入事件日志(VB2010实例)
    读取事件日志(VB2010实例)
    创建和删除事件日志(VB2010实例)

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]