赵小雷——法家与先秦诸子的相互关系(三).docx
《赵小雷——法家与先秦诸子的相互关系(三).docx》由会员分享,可在线阅读,更多相关《赵小雷——法家与先秦诸子的相互关系(三).docx(16页珍藏版)》请在文库网上搜索。
1、12.1.1 鼠标事件过程MouseMove、MouseDown、MouseUp三个事件的过程的语法格式如下:Sub Object_MouseMove(Button As Integer,Shift As Integer,_X As Single,Y As Single)Sub Object _MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single)Sub Object _MouseUp(Button As Integer,Shift As Integer,_X As Single,Y As Single) 其
2、中: Object是可选的一个对象表达式,可以是窗体对象和大多数可视控件。 Button参数是表示按下或松开鼠标哪个按钮。图12-1表示了参数Button的值。图12-1 参数Button值参数Button的值对应的功能如表12-1所示。表12-1 参数Button的说明参数(Button)值说明vbLeftButton1左按钮被按下vbRightButton2右按钮被按下vbMiddleButton4中间按钮被按下 通过Shift参数表示在Button参数指定的按钮被按下或者被松开的情况下键盘的Shift、Ctrl和Alt键的状态,图12-2表示了Shift参数的值,Ctrl、Shift、A
3、lt三键组合使用情况如表12-2所示。图12-2 Shift参数的值表12-2 Shift参数的值二进制值十进制值系统常数意义0000未按下任何键0113vbShiftMask+vbCtrlMask同时按下Shift和Ctrl键1015vbShiftMask+vbAltlMask同时按下Shift和Alt键1106vbCtrlMask+vbAltMask同时按下Ctrl和Alt键1117vbCtrlMask+vbAltMask+vbShiftMask同时按下Ctrl、Alt和Shift键 参数X、YX,Y鼠标指针的位置,通过X和Y参数返回一个指定鼠标指针当前位置的数,X和Y的值是使用该对象的坐
4、标系统表示鼠标指针当前位置。注意:鼠标事件被用来识别和响应各种鼠标状态,并把这些状态看作独立的事件,在按下鼠标按钮并释放时,Click事件只能把此过程识别为一个单一的单击操作。鼠标事件能够区分各鼠标按钮及键盘的SHIFT、CTRL、ALT键的状态。【例】使用MouseDown 和MouseMove 事件,编写一个在窗体上用鼠标绘图的简单程序(随着鼠标的移动,画线越来越宽)。Option ExplicitDim sngDrawWidth As Single 模块级变量,保存线条宽度Private Sub Form_MouseDown(Button As Integer, Shift As Int
5、eger, _X As Single, Y As Single)If Button=1 Then 如果按下左键CurrentX=X:CurrentY=Y 设置画线起点sngDrawWidth=1 设置线条初始宽度DrawWidth=sngDrawWidthEnd IfEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, _X As Single, Y As Single)Dim lngDrawColor As LongIf Button=1 Then 使用不同颜色If Shift=1 ThenlngDraw
6、Color=RGB(255, 0, 0)ElseIf Shift=2 ThenlngDrawColor=vbGreenElseIf Shift=4 ThenlngDrawColor=&HFF0000End IfsngDrawWidth=sngDrawWidth+0.1 加宽线条DrawWidth=sngDrawWidthLine-(X,Y),lngDrawColor 画线End IfEnd Sub12.1.2 拖放在运行时拖动控件,通常情况下并不能自动改变控件位置,这就必须使用Visual Basic的拖放功能,通过编程,才能实现在运行时拖动控件并改变其位置。把按下鼠标按钮并移动控件的操作称为
7、拖动,把释放按钮的操作称为放下。一、DragMode 属性功能:返回或设置一个值,确定在拖放操作中所用的是手动还是自动拖动方式。格式:object.DragMode =number其中:object:为支持DragMode属性的一个对象。Number:取0时,启动人工拖放模式;取1时,启动自动拖放模式。注意:当DragMode属性设置为1(自动方式)时,控件不能正常响应鼠标事件。当拖动控件时,该控件不能识别用户发出的其它鼠标或键盘事件(KeyDown、KeyPress或KeyUp,MouseDown、MouseMove或MouseUp)。二、DragIcon 属性功能:返回或设置图标,它将在拖
8、放操作中作为指针显示。格式:object.DragIcon =icon 其中:object:为支持DragMode属性的一个对象。Icon:为任何返回图标的程序引用,例如引用窗体图标(Form1.Icon),引用另外控件的DragIcon属性(Text1.DragIcon),或是LoadPictur函数。三、DragDrop 事件在一个完整的拖放动作(即将一个控件拖动到一个对象上,并释放鼠标按钮)完成,或使用 Drag 方法,并将其 action 参数被设置为 2 (Drop) 时,该事件发生。说明: DragDrop 事件过程用来控制在一个拖动操作完成时将会发生的情况。例如,可将源控件移到一
9、个新的位置或将一个文件从一个位置复制到另一个位置。注意:应使用 DragMode 属性和 Drag 方法来指定开始拖动的方法。一旦开始拖动,可使用 DragOver 事件过程来处理位于 DragDrop 事件前面的事件。【例】在窗体上放置一个标签框(lblSource),两个文本框,一个作为源文本框(txtSource),一个作为目标文本框(txtTarget),实现从标签框和源文本框到目标文本框的拖放功能。程序界面如图12-7所示。图12-7程序代码如下:Private Sub lblSource_Click()lblSource.DragEnd SubPrivate Sub txtSour
10、ce_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Shift=2 ThentxtSource.Drag 1End IfEnd SubPrivate Sub txtTarget_DragDrop(Source As Control, X As Single, Y As Single)If TypeOf Source Is TextBox ThentxtTarget.Text=Source.TextSource.Text=ElsetxtTarget.Text=Source.CaptionSou
11、rce.Caption=End IfEnd Sub 程序运行后,当用鼠标左键按住lblSource,即可将lblSource中的内容移动到txtTarget中;当按住Ctrl键并用鼠标左键按住txtSource,即可将txtSource中的内容移动到txtTarget中。12.2.1 KeyPress事件在Visual Basic中,提供KeyPress、KeyDown、KeyUp三种键盘事件,窗体和接受键盘输入的控件都识别这三种事件。 KeyPress:按下对应某ASCII字符的键。 KeyDown:按下键盘的任意键。 KeyUp:释放键盘的任意键只有获得焦点的对象才能够接受键盘事件。 在按
12、下与ASCII字符对应的键时将触发KeyPress 事件。 KeyPress事件过程的语法格式是:Sub Object_KeyPress (KeyAscii As Integer)其中:Object是指窗体或控件对象名,KeyAscii 参数返回对应于ASCII字符代码的整型数值。 【例】如果希望将文本框中的所有字符都强制转换为大写字符,则可在输入时使用此事件转换大小写:Private Sub Text1_KeyPress (KeyAscii As Integer)KeyAscii=Asc(Ucase(Chr(KeyAscii)End Sub【例】通过编程序,在一个文本框(Text1)中限定只
13、能输入数字、小数点,只能响应BackSpace键及回车键。Private Sub Text1_KeyPress (KeyAscii As Integer)Select Case KeyAsciiCase 48 to 57,46,8,13 Case Else KeyAscii=0End SelectEnd Sub通过此代码使KeyPress事件只识别Enter、Tab和Backspace键。不能能够检测其它功能键、编辑键和定位键。12.2.2 KeyDown和KeyUP事件当一个对象具有焦点时按下(KeyDown)或松开(KeyUp)一个键时发生。它们报告键盘本身准确的物理状态:按下键(KeyD
14、own)及松开键(KeyUp)。KeyDown和KeyUp事件能够检测其它功能键、编辑键和定位键。KeyUp和KeyDown事件过程的语法格式如下:Sub Object_KeyDown(KeyCode As Integer, Shift As Integer)Sub Object_KeyUp(KeyCode As Integer, Shift As Integer)说明: Keycode参数Keycode参数表示按下的物理键。上档键字符和下档键字符也是使用同一键,它们的Keycode值相同。下表12-2对Keycode值和KeyAscii值进行了比较。表12-2键(字符)Keycode值Key
15、Ascii值“A”&H41&H41“a”&H41&H61“!”&H31&H21“1”(大键盘上)&H31&H31“1”(数字键盘上)&H61&H31HOME键&H24&H24F10键&H79无Keycode参数通过ASCII值或键代码常数来识别键。字母键的键代码与此字母的大写字符的ASCII值相同。所以A和a的 Keycode 都是由Asc(A)返回的数值。在下例中用KeyDown事件判断是否按下了A键:Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode=vbKeyA ThenMsgBox You
16、pressed the A key.“End ifEnd Sub shift参数shift表示是在该事件发生时响应SHIFT、CTRL和ALT键的状态,它是一个整数。其含义与上一节中MouseMove、MouseDown、MouseUp事件中的shift参数完全相同。【例】用Shift参数判断是否按下了字母的大写形式。Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode=vbKeyA And Shift=1 Then MsgBox You pressed the uppercase A key.End
17、 ifEnd Sub第十二章 响应鼠标和键盘事件 本章主要教学内容总结通过本章的学习,使学生理解了鼠标、键盘事件的触发机制。正确区分了KeyDow事件和KeyPress事件。汅汅妒。但特别空勤部队需要是可以与大多数部队合作而不是轻视它们的人。坚忍不拔如果我们思考一下那些最初的特别空勤部队成员们的素质的话,我们会发现一个问题,那就是精锐部队更看重个人能力而不是一致性。还记得斯特灵吧,那个闯进陆军总部试图说明他关于特种部队想法的人。令人感到欣慰的是,总部当时有人听取了他的设想,如果不是这样斯特林可能会因此受到训斥。斯特林的确是一个真正的创始者,他从不接受别人对事件的设想,而且不断地寻求更有效解决军
18、事问题的办法。在战术指导中他有点倾向于目中无人,而且讥讽那些高级军官都是纸上谈兵。这样的目中无人的态度不是特别空勤团成员所需要的,但自我独立思考和解决问题的热情却是必须的。在读了关于像斯特林、皮埃尔将军、安迪迈克纳伯或其他带有传奇色彩的特别空勤部队成员们的传记、自传或作战记述后,有一点已经很明确了,这些人或所有他们都有一种不懈追求成功的能力。即使面对疲惫、伤害甚或是死亡,这些人看起来一直抱有一种激昂斗志,从不会向失败主义和宿命论低头。教官们在寻求许多不同的素质,但他们想寻求的最重要的优点是不管事情有多困难,从不会向困境低头的那种素质,这也许是特别空勤部队成员个性化中最有活力的方面,相对体力来说
19、要做到精神上的坚忍不拔。对于那些遵守纪律和承诺的人来说,许多人都可以达到特别空勤团队员的体能素质。它所需要的只是几个月勤奋的训练。而对于乐观的精神与不被困境压倒的决心可以让你,当其他人已经放弃时,取得非凡成就。前特别空勤部队士兵克里斯瑞恩曾是第20“八人”小组成员之一,他们在海湾战争期间奉命渗入伊拉克。就在他们中的许多人最后被伊拉克俘掳并被拷打时,克里斯瑞恩却成功逃了出来并徒步穿越沙漠走到了300公里的安全区,这需要超乎寻常的精神勇气。他对于此次伟大的历程的评价,我们可以从他的书幸存者中看出他是如何评价特别空勤部队士兵的个人坚毅的:第22特别空勤团的成立今天英国第22特别空勤团的存在主要应归功
20、一个人的先见之明,他就是迈克卡尔沃特准将。这位前同盟国军士兵(他们曾在1943年至1945年在缅甸日军战线后方作战,译者注。)和游击战专家,卡尔沃特一直指挥着一个特别空勤旅,直到1945年特别空勤部队大缩编。卡尔沃特被要求研究如何有效对反英的共产主义军事和社会起义。卡尔沃特最后的提议致使一支马来亚突击队的诞生,他领导的这支部队是一支小型精锐部队,主要就是对付丛林战斗。突击队逐渐对恐怖分子产生一些影响,但当第21特别空勤团(这支部队在缩后作为一支地区部队保留了下来)的预备人员和其它二战精锐部队人员加入这支部队后,它的影响力迅速上升。最后,当特别空勤部队在战后作为英国陆军部队中永久编制保留下来时,
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
11 文币 0人已下载
下载 | 加入VIP,免费下载 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 赵小雷 法家 先秦 诸子 相互关系