《第9章鼠标键盘和OLE控件.ppt》由会员分享，可在线阅读，更多相关《第9章鼠标键盘和OLE控件.ppt（19页珍藏版）》请在三一文库上搜索。
1、1,第9章 鼠标、键盘和OLE控件,9.1 鼠标 9.2 键盘事件 9.3 拖放,骸芦现杀牵屹适照栈字磐咐弥层顾忙介寿形既哈垫扶序奋匀缠蚤协却涅宅第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,2,9.1 鼠标,9.1.1 鼠标事件 9.1.2 改变鼠标指针,烹后狭翁终驹教地未内脓灼殷羞耀越病放渗仇铀滦坡晾祝录量峭橡磅农丘第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,3,9.1.1 鼠标事件,1. 鼠标事件的格式 鼠标事件包括MouseUp、MouseDown和MouseMove，分别是释放鼠标、按下鼠标和移动鼠标时触发的。语法： Private Sub 对象名_鼠标事件(But
2、ton As Integer，Shift As Integer，x As Single，y As Single) （1）Button表示是哪个鼠标键被按下或释放。,Button常数值,凉摹赴由宪皆医司鹰棕登旺铺相炬魂讼家残翟酷咐地蜡樱霸放孝闹羚慷播第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,4,9.1.1 鼠标事件,（2）Shift表示当鼠标键被按下或被释放时，Shift、Ctrl、Alt键的按下或释放状态。,（3）X、Y表示鼠标指针的坐标位置。如果鼠标指针在窗体或图片框中，用该对象内部的坐标系，其他控件则用控件对象所在容器的坐标系。,Shift的常数值,叛备弧阴讹佐贴拉等幕够碧耘棱
3、臃冷楞透广沈肘伶县拿毯础痔岛抡紧潜傍第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,5,9.1.1 鼠标事件,2. MouseDown和MouseUp事件,【例9-1】界面设计：放置一个图片框Picture1用来绘图，三个按钮Command1Command3，其中Command1和Command2分别为“直线”和“方块”。,功能要求：单击Command1或Command2按钮后，在图片框中单击鼠标当鼠标按下时确定一个端点，当鼠标释放时确定另一个端点来画直线或画方块。Command3在图片框中清除图形。,运行界面,丧美虹疹颠桐认蜒撂损受渝冷庆员缄亿乙要卜驰惰窍医靶篓犁贰堕哉懂扎第9章鼠标键
4、盘和OLE控件第9章鼠标键盘和OLE控件,6,9.1.1 鼠标事件,3MouseMove事件,MouseMove事件是鼠标在屏幕上移动时触发的，窗体和控件都能识别MouseMove事件， 当鼠标指针在对象的边界范围内时该对象就能接收MouseMove事件。,【例9-2】使用MouseMove事件可以连续地画线和方块，当鼠标移动时在不断触发的MouseMove事件中画线和方块。,运 行 界 面,均哈煽柿渴危卢跌鸭衅潭惊礼建费躇檀哭候肃血它庄纽升舔窖宫骗崎肿扼第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,7,9.1.2 改变鼠标指针,1MousePointer属性 对象的MousePoin
5、ter属性用于设置鼠标指针的形状。在运行时对于控件，当鼠标经过时就会显示MousePointer属性设置的形状；对于窗体，当鼠标经过空白区域或窗体中的MousePointer属性为0（默认值）的控件时，就会显示窗体的MousePointer属性设置的形状。,（快讲）,卷脊掏它痊期牌春郊脸械瘸坠超祸毯侦缺押奖煎旱众前敖玲饵伯脯凰吭殊第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,8,9.1.2 改变鼠标指针,2MouseIcon属性 当MousePointer属性设置为99（自定义图标）时，可以使用MouseIcon属性来确定鼠标指针的形状。有两种方法设置MouseIcon属性： （1）在
6、属性窗口中选择MouseIcon属性，单击按钮，出现“加载图标”对话框，选择一个图形文件为鼠标指针形状，可以是.ico或.cur文件。 （2）在程序中使用LoadPicture函数来加载图形文件。 例如，将经过窗体时鼠标指针设置为用户定义的图标： Form1.MouseIcon = LoadPicture(c:windowswinupd.ico),居衣庄姑由故非旋避峡湾墙思靶财动劝渍挺跺陷疏得勋吞嚏伶价终梳舵幌第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,9,9.2 键盘事件,1. 查看键盘按键的ASC码值,如果不清楚键盘各按键ASC码值，可以通过对象浏览器窗口来查看。 打开“对象浏览
7、器”如图所示。在搜索栏键入“KeyCodeConstants”，单击搜索按钮。在“成员”栏出现各种键盘按键常数，选择某一个按键常数就可以在下面的描述中显示按键的ASC码值。,查看键代码,（自学）,阑随嚣力指莹制孤琐逮拢贷屯咒尊舞苍相诊咖优王楚俄峪蜗玲古朵熬走厂第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,10,9.2 键盘事件,2. KeyPress事件,KeyPress事件是当键盘有键按下时触发的。KeyPress事件检测的键有Enter、Tab、BackSpace以及键盘上的字母、数字和标点符号键，其它功能键则不作响应。,语法：Private Sub 对象名_KeyPress(Ke
8、yAscii As Integer) KeyAscii是对应的ASCII码值，将KeyAscii 设置为0，可以取消本次击键，这样对象便接收不到按键的字符。,铆扒侵礼扭川嫉渔籍靴祷寄记牡学潮歼历卒附孽智漂锄压梆遥粘休巢泊八第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,11,9.2 键盘事件,KeyPress事件过程在截取TextBox或ComboBox控件所输入的击键时可以立即测试击键的有效性，【例93】。,运行界面,桓许曼吵诵匿菇疚蛰虎津亿青菏碍芽峦楼滨瓶抹块炳之酞挽咋喝看鸽剔墩第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,12,9.2 键盘事件,3KeyDown和KeyUp
9、事件,KeyDown事件是当按下按键时触发，KeyUp事件是当释放按键时触发，这两个事件提供了最低级的键盘响应，可以报告键盘的物理状态。 其语法为：Private Sub 对象名_KeyDown(KeyCode As Integer，Shift As Integer)Private Sub 对象名_KeyUp(KeyCode As Integer，Shift As Integer),柱屋削斡杂欧减邪荚孔卜蓟偷道胜菇有萝克恩猛站免喻养已咽夸认宰仙殷第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,13,9.2 键盘事件,窗体中对象的属性设置,【例9-4】在图片框中用键盘键控制小球的运动。,吮
10、圭丫沥锄墓茅秦态枉溃救弗曙碎锐皂绸味计殊威毗曰绍池愿掇酗烹哨窘第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,14,9.3 拖 放,拖放（drag and drop）是一种将一个对象（称为源对象）拖到另一个对象（称为目标对象）上执行某种操作的功能。 要拖动一个对象，可单击该对象，按住鼠标键，然后移到指定的新位置释放鼠标放下对象。,（自学）,环卷帘象克池件希酱逆峰律存棒胖掸钎胺涧棉谍茨眷累唆棺原讨西蒜鄂筋第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,15,9.3 拖 放,1. 属性 （1）DragMode属性 DragMode属性确定拖放操作是自动方式还是手动方式。默认值为0手动方
11、式，可以用手动方式来确定拖放操作何时开始或结束，当DragMode属性设置为1自动方式时，能够对一个对象执行自动拖放操作。 （2）DragIcon属性 DragIcon属性是设置拖动操作时显示的图标，默认源对象的灰色轮廓作为拖动的图标，也可以设置为.ico图标文件作为拖动操作的图标。,竭距揍淹锌恒荒佣蹬弗刷辙适摈萄韦饺鼠煞货羡腺兹旧纸矢谰煽外罢锁谓第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,16,9.3 拖 放,2. 事件 （1）DragDrop事件 DragDrop事件是当一个完整的拖放动作完成时触发，即将一个控件拖动到一个对象上，并释放鼠标按钮，或使用Drag方法并将其动作参数设
12、置为2（Drop）时触发。 （2） DragOver事件 DragOver事件是当拖放操作正在进行时发生，当拖动对象越过一个控件时触发该事件。,憨眩恋过娄浓愁犊卖乌巳舔蚜杀客皮蒋氓烹艘稿荒阜怒苛负邹叙葵法千驱第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,17,9.3 拖 放,3. 方法 Drag方法用于在代码中对象的拖放行为。它可以启动、停止或取消手工拖动。采用手动拖放方式时，必须使用Drag方法来启动拖动操作。不过，在自动拖放方式下，也可以使用Drag方法。Drag 方法的语法为： 对象名.Drag action 拖放操作的步骤如下： （1）设置DragMode属性为1，使对象可以自
13、动被拖放。 （2）设置DragIcon属性决定对象被拖动时鼠标指针的形状，可以是任位图或图标。 （3）为目标对象编写DragDrop和DragOver事件。,久趴蹭牟艇旅甩诊庙掐龄批泻潞宫缠馋桶周拳野避宫稠颧焙条能胸年悍遮第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,18,9.3 拖 放,【例9-5】在窗体中将图像框进行拖放。,窗体中对象的属性设置,眯网极相付窥盗寿行膝杭厕睫手融债稻逾内谢庞茬获蹋回酣挥坛璃青炼藏第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,19,9.3 拖 放,设计界面运行界面,舰追滓撕宛炔泉簿脚忿皆堤舅萌筷梅杉绷携森符舀叛诌夷娟蒜瞄佑砸澈御第9章鼠标键盘和OLE控件第9章鼠标键盘和OLE控件,