VisualBasic程序设计vb8教程幻灯片.pptVIP

关闭拖拉开关（用Drag 2)后，将停止拖拉，并产生DragDrop事件。即在松开鼠标键后，把控件放到鼠标光标位置。在一般情况下，鼠标光标所指的是控件的左上角，而在该过程中，鼠标光标所指的是控件的中心。 例10.12 用手动拖放模拟文件操作：从文件夹中取出文件，放入文件柜中，在放入前，先打开文件柜的抽屉，放入后再关上。 在线教务辅导网： 更多课程配套课件资源请访问在线教务辅导网 馋死 PPT研究院 POWERPOINT ACADEMY * * * * Button参数值 作 用 000（十进制0） 未按任何键 001（十进制1） 左键被按下（默认） 010（十进制2） 右键被按下 011（十进制3） 左、右键同时被按下 100（十进制4） 中间键被按下 101（十进制5） 同时按下中间和左键 110（十进制6） 同时按下中间和右键 111（十进制7） 3个键同时被按下 Shift参数设置值 ?转换键（shift） 具体讲述： Shift参数和Button参数测试程序 Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Singer, Y As Singer) If Shift =1 And Button=1 Then Print”同时按下 Shift键和左键” If Shift =2 And Button=2 Then Print”同时按下Ctrl键和右键” If Shift =4 And Button=1 Then Print”同时按下 Alt 键和左键” If Shift =3 And Button=2 Then Print”同时按下 Ctrl 、 Shift键和右键” If Shift =5 And Button=1 Then Print”同时按下 Shift、Alt 键和右键” If Shift =6 And Button=2 Then Print”同时按下 Alt 、Ctrl键和右键” If Shift =7 And Button=1 Then Print”同时按下 Alt 、Ctrl 、Shift键和左键” End Sub ?转换键（shift）---------（具体实例） 具体讲述： 上述过程把Shift参数和Button参数结合起来进行测试。如果同时按下转换键和鼠标键，则显示相应的信息。 在图片框中画一个箭头，当在图片框内移动鼠标时，箭头会随着鼠标光标的移动而改变方向。 1、首先在窗体内建立一个图片框和一个标签，其属性设置如下表： 对象 属性 设置值 窗体 Left 1035 Top 1200 Width 2850 Height 2400 Caption Mouse Vane 图片框 Name Vane 标签 Alignment 2-Center Caption （空白） 实例解析： 2、编写如下过程： Private Sub vane_MouseDown(