VB 程序设计a15.pptVIP

第七章 窗体(2) 学习目标 鼠标拖放 键盘事件 键盘模拟语句 鼠标拖放 拖放： 用鼠标将对象从某处拖动到另一个地方后放下。 拖（drag）： 含义：在源对象上按下鼠标左键不放，拖动之 放（drop）： 含义：把源对象拖动到目标对象上释放鼠标，释放之 鼠标拖放事件： DragDrop : 拖放 DragMove ：拖动(中) 属性 源对象的相关属性： DragMode 含义：拖动模式 默认为0：手工拖动模式；取值为1：称自动拖动模式 在处理拖放前，一般将源对象的该属性设为1 DragIcon 含义：拖动时图标 默认为空，拖动时只显示对象边框。 该属性装入图标文件后，拖动时显示为图标。 事件 目标对象的相关事件： DragDrop 含义：拖放 格式： Private Sub Form_DragDrop(Source As Control, X!, Y! ) 语句组 End Sub 参数： Source: 被拖动的源对象控件 X，Y：鼠标指针的位置坐标 注意： 该事件要作用于目标对象，即拖放对象释放到的位置。如：拖动甲放在乙上，要对乙的DragDrop事件进行编程。 事件 目标对象的相关事件： DragMove 含义：拖动 格式： Private Sub DragOver(Source as conterol，X!，Y!，State! ) 语句组 End Sub 参数： Source：“入侵者”标志 X，Y：“侵入”的位置 State：标志值，进入:0、离开:1、完成:2 鼠标拖放之要点 鼠标拖放编程要点： 将源对象的DragMode设为1 对目标对象的DragDrop事件编程。 鼠标拖放示例 例1：图片拖放。效果如图： 图1：拖动前图片；图2：按下鼠标后；图3：拖动过程中；图4：拖放结束后。 准备： 图标文件Cup.ico 、 Butterfly.ico 画出image1对象（工具箱倒数第2行第1个）后，设置 Image1.icon为 Cup.ico Image1.dragicon为 Butterfly.ico 示例1：图片拖放 代码： Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Image1.Move X, Y Image1.Visible = True End Sub Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer) Image1.Visible = False End Sub 示例2：九宫游戏 九宫游戏： 改为鼠标拖放方式移动数字时的代码 Private Sub lbl_DragDrop(Index As Integer, Source As Control, x As Single, Y As Single) If Abs(Source.Index - Index) = 1 Or Abs(Source.Index - Index) = 3 And lbl(Index) = Then term = Source.Caption Source.Caption = lbl(Index).Caption lbl(Index) = term flag = True For i = 0 To 7 If Val(lbl(i)) i + 1 Then flag = False Next If flag Then MsgBox 你赢了!, 48, 九宫游戏 End If End Sub 键盘 键盘Ascii码( KeyAscii) Ascii字符键的对应Ascii码； Ascii键：数字、字母、字符、回车、Tab、Esc、退格等键，不包括功能键、Ctrl、方向键等； 常用Ascii码：Backspace(8) Tab(9) Enter(13) Esc(27) Space(32) ？(63) A ? Z(65 ? 90) a?z(97?122) 键盘扫描码( KeyCode) ： 键盘上每个键对应的物理键码 大写A和小写a的扫描码相同：对应同一物理键；数字9和小键盘上的9