菜单及对话框都是Windows应用程序的常用部件应用程序.ppt







窗体和大多数控件都能响应键盘和鼠标事件

10.1.1键盘事件
有三种事件处理键盘操作
1.KeyPress事件
2.KeyDown事件：用户按下键盘上某个键时触发此事件
3.KeyUp事件：用户按下键盘上某个键后释放时触发此事件Click、DblClick、MouseMove、MouseDown和MouseUp事件
当移动鼠标时发生MouseMove事件
当按下鼠标任意键时发生MouseDown事件，放开鼠标键时发生MouseUp事件
后三种事件可以区分鼠标的左、右、中键与Shift、Ctrl、Alt键
PrivateSub对象名_鼠标事件(ButtonAsInteger,ShiftAs
Integer,XAsSingle,YAsSingle)
说明：(1)Button参数表示哪个鼠标键被按下或释放。用0，1，2位分别表示鼠标的左、右、中键，用1或0表示被按下或释放

(2)Shift参数表示当鼠标键被按下或释放时，Shift、Ctrl、Alt键的按下或释放状态。用0、1、2位表示Shift、Ctrl、Alt键
(3)X,Y表示鼠标指针的当前坐标位置当单击鼠标左键时把按钮的位置移动到鼠标指针的位置，单击鼠标右键时把按钮的位置移动到窗体的左上角位置（即坐标原点）。以下程序将MouseDown事件与Move方法结合起来使用。

PrivateSubForm_MouseDown(ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then'单击鼠标左键时
Command1.MoveX,Y'移动到鼠标指针的位置
Else
Command1.Move0,0'移动到窗体的左上角
EndIf
EndSub10.1.3拖放操作2.事件
(1)DragDrop事件：当一个完整的拖放动作完成时触发。它可用来控制在拖放操作完成时要进行的处理。其事件过程格式：
PrivateSub对象名_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source表示正在被拖动的对象，X、Y表示鼠标指针在目标对象中的坐标。

(2)DragOver事件：当源对象被拖动到目标对象上，在目标对象上就会触发DragOver事件。本事件先于DragDrop事件。其事件过程格式：
PrivateSub对象名_DragOver(SourceAsControl,XAsSingle,_
YAsSingle,StateAsInteger)
State参数：0表示进入，即源对象正进入目标对象内；
1表示离开，即源对象正在离开目标对象；
2表示跨越，即源对象在目标范围内移动位置3.方法
常用的有Drag方法。Drag方法的语法格式：
对象名.Drag［动作］
“动作”取值为0时，表示取消拖动操作；取值为1时，启动拖动操作；取值为2时，结束拖动操作

例10.2采用自动方式，实现文本框的拖动操作
在窗体上建立一个文本框Text1，其DragMode属性值设置为1(自动方式)，程序代码：

PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.MoveX，Y´移动对象位置
EndSub在窗体上建立一个文本框Text1，其DragMode属性值设置为0(手动方式)，程序代码：

PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.MoveX,Y´移动对象位置
EndSub
PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,
XAsSingle,YAsSingle)
Text1.Drag1´启动“拖动”操作
EndSub
PrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,
XAsSingle,YAsSingle)
Text1.Drag2´结束“拖动”操作
EndSub(1)在窗体上建立一个图片框(Picture1)和一个文本框(Text1),文本框的Text属性为空

(2)编写程序代码
程序运行后，用户在文本框内输入文本和用鼠标选定(通过拖动)文本，然后按住鼠标左键后把文本框拖放到图片框内，即可把已选定的文本显示在图片框内PrivateSubForm_Load()
Text1.DragMode=0´置手动方式
EndSub
PrivateSubPicture1_DragDrop(SourceAsControl,XAsS