第11章_键盘和鼠标.pptVIP

  1. 1、本文档共17页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第11章_键盘和鼠标

* 第11章 键盘和鼠标事件 第11章 键盘和鼠标事件 11.1 鼠标事件 11.2 键盘事件 11.1 鼠标事件 单击Click、双击DblClidk、鼠标按下MouseDown、松开鼠标MouseUp、当鼠标光标从某个对象上移过时MouseMove事件 Private Sub Object_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub 鼠标键Button 只有3种:001左键,010右键、100中间键 转换键Shift P168表7-4 鼠标位置X和Y 鼠标指针在接收鼠标事件的窗体或控件上的位置坐标,不需要用户设置,随鼠标光标的移动而变化 例:利用MouseMove事件做简单画图程序 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) CurrentX = X CurrentY = Y If Button 0 Then Print m End If End Sub 在属性窗口或代码窗口设置对象的MousePointer属性 Object.MousePointer=0~15 设置为99时,鼠标光标显示为用户自定义的光标形状,再通过MouseIcon属性来设置 文件类型:彩色图标(.ico)和彩色光标(.cur) 鼠标的光标形状 例:在窗体上显示所有类型的鼠标光标 Private Sub Form_Click() Static i As Integer form1.MousePointer = i i = i + 1 If i = 16 Then i = 99 If i = 100 Then i = 0 End Sub 拖放:用鼠标把一个对象从一个位置“拖”(Dragging)到另一个位置再放下(Dropping) 除了菜单、计时器和通用对话框以外,其它控件均可在程序运行期间被拖放 对象拖放 1.属性 1) DragMode: 0-Manual 手动拖放(默认) 1-Automatic 自动拖放,当用户单击控件时将自动地开始一个拖放操作,控件将不再响应通常的鼠标事件(Click、DblClick、MouseDown、MouseUp) 2) DragIcon 设置/返回拖放操作中鼠标指针的图标;默认鼠标指针图标是斜向上的箭头和被拖放的对象的外框线 与拖放有关的属性、事件和方法 2.事件(DragDrop和DragOver) 1) DragDrop Private Sub Object_DragDrop(Source As Control, X As Single, Y As Single) 事件处理代码 End Sub 通过Source的Name属性来判断被拖放的控件的名字,从而决定该控件是否允许被放置在目标对象上。还可以在控件或图标被放下后,将它的Visible属性设置为False,就象被放置在目标对象的内部。参数X和Y返回松开鼠标键放下对象时鼠标光标的位置 2) DragOver Private Sub Object_DragOver(Source As Control, X As Single, Y As Single, State As Integer) 事件处理代码 End Sub State参数表示被拖动对象的状态,可以取3个值: 0-vbEnter 鼠标光标正在进入目标对象的区域。 1-vbLeave 鼠标光标正在离开目标对象的区域。 2-vbOver 鼠标光标正位于目标对象的区域之内 3.方法 与拖放有关的方法有Move和Drag Drag方法用来开始、结束或取消一个拖放操作 Object.Drag [DragAction] 0-vbCancel 取消进行中的任何拖放操作 1-BeginDrag 开始拖放操作 2-EndDrag 结束拖放操作并放置对象 自动拖放 将对象的DragMode属性设置为1-Automatic,运行后,可用鼠标自由地拖动对象。但是鼠标键松开后,被拖动的对象又回到原来位置。此时还需要在目标对象的DragDrop事件中,利用程序代码将被拖动的对象移动到目标控件中: Object.Move X,Y 手动拖放 将DragMode属性设置为默认值0-Manual,运行

文档评论(0)

rovend + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档