vb中单击命令按钮触发哪些事件 在VB6.0中，怎么写一个命令按钮多次单击按钮的不同事件？
\u5728vb\u4e2d\u5bf9\u4e8e\u547d\u4ee4\u6309\u94ae\u7684\u5355\u51fb\u4e8b\u4ef6\uff0c\u6709\u51e0\u79cd\u65b9\u6cd5\u80fd\u7528\u6309\u952e\u6765\u66ff\u4ee3\u9f20\u6807\u7684\u64cd\u4f5c\uff0c\u8fd9\u51e0\u4e2a\u6309\u952e\u4f7f\u7528\u4e00\u4e2a\u5168\u5c40\u53d8\u91cf\uff0c\u6bcf\u6b21\u5355\u51fb\uff0c\u53d8\u91cf\u52a0\u4e00\uff0c\u76f4\u5230\u8fbe\u5230\u6700\u5927\uff0c\u6700\u5927\u540e\u7ed9\u53d8\u91cf\u8d4b\u521d\u503c\u3002\u518d\u6839\u636e\u53d8\u91cf\u7684\u6570\u503c\uff0c\u6267\u884c\u76f8\u5e94\u7684\u64cd\u4f5c\u5373\u53ef\u3002 Public n As IntegerPrivate Sub Command1_Click()n = n + 1Command1.Caption = nIf n >= 7 Then n = 0End Sub
\u4f7f\u7528\u9759\u6001\u53d8\u91cf\u6216\u5168\u5c40\u53d8\u91cf\u53ef\u8fbe\u5230\u6b64\u79cd\u6548\u679c\uff0c\u4ee5\u9759\u6001\u53d8\u91cf\u4e3a\u4f8b\uff0c\u53c2\u8003\u4ee3\u7801\uff1a
Option ExplicitPrivate Sub Command1_Click() Static i As Integer i = i + 2 Print String$(i, "V")End SubPrivate Sub Form_Load() AutoRedraw = TrueEnd Sub\u6f14\u793a\u52a8\u753b\uff1a
(1).Click事件:是鼠标单击时所产生的事件.click事件既可由用户触发,也可由执行事件的程序代码触发.
(2).Dbclick事件:双击鼠标时产生的事件.
(3).mousedown和mouseup事件:当鼠标指针指向对象并按下鼠标左键时触发mousedown事件,当释放鼠标左键时触发mouseup事件.
(4).mousemove事件:在对象上移动鼠标指针时产生的事件.
(5).dragdrop事件:用鼠标拖动对象时产生的事件.
(6).downclick和upclick事件:当用鼠标单击组合框、列表框或微调器的向下箭头时,触发downclick事件;单击向上箭头时,触发upclick事件.
2.键盘事件keypress:单击某一键时产生的事件.通常对获取焦点的对象,当按下键盘键并放开时触发keypress事件.参数:键ASCⅡ码,shiftctrlalt状态
其中,shiftctrlalt状态为三键值的和.shift值为1,ctrl值为2,alt值为4
3.改变对象内容事件interactivechange:当用操作改变对象内容时交触发此事件,比如改变文本框中的内容将触发文本框的interactivechange事件.
4.对象的焦点事件:当对象取得焦点(focus)时,该对象将成为当前活动对象,操作将面向该对象.若文本框取得焦点,光标将在文本框中闪烁,指明编辑文本的当前位置.当命令按钮获得焦点时,按钮框内出现虚线框.属于控件焦点的事件有:获取焦点,失去焦点以及获取和失去焦点前触发的事件.
(1).获取焦点事件gotfocus:当对象获取焦点时将触发gotfocus事件,而获取焦点的方法可以通过按tab键,鼠标单击对象或对对象使用setfocus方法.注意:只有对象的enabled和visible属性为\"真\"(.T.)时,对象才能获得焦点.
(2).失去焦点事件lostfocus:当对象失去焦点时将触发该事件.对象可能因操作失去焦点,例如重新选择对象或单击另一对象;也可能在程序代码中执行获取焦点的方法setfocus.失去焦点的事件代码常用于取消gotfocus事件代码所做的工作,例如取消在执行gotfocus事件过程代码所提供的指导用户操作信息.
(3).when事件:此事件在对象获取焦点前发生.如果when事件返回真值,则对象可获取焦点;否则对象不能获取焦点.
(4).vaid事件:在对象失去焦点前触发此事件,以控制对象是否真的失去焦点.若vaid返回真值,对象才可失去焦点;否则对象不会失去焦点.
5.表单事件:
(1).load事件:load事件在创建表单集或表单之前触发,其事件过程代码常用于做表单集或表单的初始化工作.如果是表单集,则先触发表单集的load事件,然后触发表单的load事件.
(2).unload事件:unload事件是释放表单集或表单之前被触发的最后一个事件.在触发该事件之前先触发表单或表单集的destroy事件,使对象无效.例如,释放表单集时触发的destroy和unload事件顺序如下所示:
在代码窗口选command1 在右侧的分选栏中你就会看到以下的触发事件
Command1_Click()
Command1_DragDrop(Source As Control, X As Single, Y As Single)
Command1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Command1_GotFocus() Command1_KeyDown(KeyCode As Integer, Shift As Integer)
Command1_KeyPress(KeyAscii As Integer)
Command1_KeyUp(KeyCode As Integer, Shift As Integer)
Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
button=1 是左键=2是右键
Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Command1_OLECompleteDrag(Effect As Long) Command1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Command1_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolea Command1_OLESetData(Data As DataObject, DataFormat As Integer)
Command1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
触发按钮的Click事件
绛旓細1.榧犳爣浜嬩欢:鎵璋撻紶鏍囦簨浠,灏辨槸鍦╲fp搴旂敤绋嬪簭鐨勮繍琛岀晫闈腑,鐢ㄩ紶鏍囧鍏朵腑鐨勫璞¤繘琛屾搷浣滄墍瑙﹀彂鍜屼簨浠.(1).Click浜嬩欢:鏄紶鏍囧崟鍑绘椂鎵浜х敓鐨勪簨浠.click浜嬩欢鏃㈠彲鐢辩敤鎴疯Е鍙,涔熷彲鐢辨墽琛屼簨浠剁殑绋嬪簭浠ｇ爜瑙﹀彂.(2).Dbclick浜嬩欢:鍙屽嚮榧犳爣鏃朵骇鐢熺殑浜嬩欢.(3).mousedown鍜宮ouseup浜嬩欢:褰撻紶鏍囨寚閽堟寚鍚戝璞″苟鎸変笅榧犳爣宸...
绛旓細榧犳爣浜嬩欢涓昏鏈変互涓嬪嚑绉嶏細Click锛氬崟鍑讳簨浠讹紝鍗冲崟鍑婚紶鏍囨椂鍙戠敓鐨勪簨浠躲侱blClick锛氬弻鍑讳簨浠讹紝鍗冲弻鍑婚紶鏍囨椂鍙戠敓鐨勪簨浠銆MouseDown锛氶紶鏍囨寜涓嬫椂鍙戠敓鐨勪簨浠躲侻ouseUp锛氶紶鏍囨姮璧锋椂鍙戠敓鐨勪簨浠躲侻ouseMove锛氶紶鏍囩Щ鍔ㄦ椂鍙戠敓鐨勪簨浠讹紝瀵规煇鎺т欢鐨勬浜嬩欢杩涜缂栫▼锛屽垯褰撻紶鏍囩Щ杩囨鎺т欢鏃跺氨浼氳Е鍙戞浜嬩欢锛屾墽琛屽叾鐩稿簲浠ｇ爜銆傞紶鏍囦簨...
绛旓細CommandButton鍛戒护鎸夐挳鏈甯哥敤鐨勪簨浠舵槸榧犳爣鐐瑰嚮锛圕lick锛変簨浠锛屽綋鐐瑰嚮鎸夐挳鏃讹紝鐘瑰鍙戝嚭浜嗕竴閬撳懡浠わ紝鑰岃繖涔熸鏄滃懡浠ゆ寜閽濊繖涓娉曠殑鐢辨潵銆俓x0d\x0a\x0d\x0a鍦 Visual Basic 鎿嶄綔鐣岄潰涓紝CommandButton锛堝懡浠ゆ寜閽級鎺т欢鍦ㄧ▼搴忎腑涓昏浣滀负鎸夐挳杩涜浣跨敤銆傞粯璁ょ殑鍚嶇О涓 CommandX锛圶涓 1銆2銆3锛岀瓑绛夛級锛...
绛旓細棣栧厛鐩存帴鍦VB宸﹁竟鐨勬帶浠舵爮涓彸鍑婚紶鏍囷紝骞跺湪寮瑰嚭鑿滃崟涓夋嫨鈥滈儴浠垛鍛戒护锛岃繖鏃跺彲浠ユ縺娲婚儴浠惰缃獥鍙ｏ紝鍦ㄥ叾涓殑鈥滄帶浠垛濆垪琛ㄦ涓夊彇鈥淢icrosoft MAPI Controls鈥濅竴椤癸紙濡傚浘1鎵绀猴級锛屾帴鐫鎸変笅鈥滅‘瀹氣鎸夐挳涔嬪悗鍙互鍙戠幇宸ュ叿绠变腑灏嗗鍑轰簡涓や釜鍥炬爣锛岃繖灏辨槸MAPI浼氳瘽鎺т欢鍜孧API娑堟伅鎺т欢鐨勫浘鏍囷紙濡傚浘2鎵绀猴級銆備簩銆侀偖...
绛旓細渚嬪锛屽湪鍗曞嚮涓涓悕涓 Commands1 鐨勫懡浠ゆ寜閽鏃惰皟鐢ㄧ殑 Name 浜嬩欢杩囩▼锛屽彲绉颁负 Command1_Click 浜嬩欢杩囩▼銆傝鍒涘缓浜嬩欢杩囩▼锛岃鎸夌収浠ヤ笅姝ラ鎵ц锛氬湪鈥滃璞♀濆垪琛ㄦ涓紝閫夊畾娲诲姩绐椾綋涓殑涓涓璞″悕銆傦紙娲诲姩绐椾綋鏄寚褰撳墠鏈夌劍鐐圭殑绐椾綋锛夊湪杩欎竴渚嬪瓙涓紝閫夊畾鍛戒护鎸夐挳 Command1銆傚湪鈥滆繃绋嬧濆垪琛ㄦ涓紝閫夋嫨鎸囧畾...
绛旓細鐢VB鐨WebBrowser鎺т欢 Private Sub Command1_Click()WebBrowser1.Navigate "http://www.baidu.com"End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)On Error Resume Next Set doc = WebBrowser1.Document Dim i As Integer '璁剧疆涓涓暱搴︽湭鐭ュ彉閲 For i...
绛旓細VB閲岄潰鐨鍛戒护鎸夐挳鏄竴涓О浣淐ommandButton鐨勬帶浠躲傚畠鍙互鍦╒B闆嗘垚缂栫▼绐楀彛鐨勫伐鍏风鍐呮壘鍒般傚ぇ澶氭暟 Visual Basic 搴旂敤绋嬪簭閮芥湁 CommandButton锛屼娇鐢ㄦ埛閫氳繃绠鍗曠殑鏁插嚮鎸夐挳鏉ユ墽琛屾搷浣溿傚綋鐢ㄦ埛閫変腑鎸夐挳鏃讹紝涓嶄粎浼氭墽琛岀浉搴旀搷浣滐紝杩樹細浣胯鎸夐挳鐪嬩笂鍘昏薄琚寜涓嬪苟閲婃斁涓鏍枫傛棤璁轰綍鏃讹紝鍙鐢ㄦ埛鍗曞嚮鎸夐挳锛屽氨浼氳皟鐢 Click...
绛旓細绗簩娆鍗曞嚮鎸夐挳锛寈=4,寮濮嬫墽琛宖or 寰幆锛宨=1 鏃讹紝鎵цy=y+x=0+4=4锛寈=x+2=4+2=6 i=2鏃讹紝鎵цy=y+x=4+6=10锛寈=x+2=6+2=8 i=3鏃讹紝寰幆缁撴潫銆傜涓夋鍗曞嚮鎸夐挳锛寈=8,寮濮嬫墽琛宖or 寰幆锛宨=1 鏃讹紝鎵цy=y+x=0+8=8锛寈=x+2=8+2=10 i=2鏃讹紝鎵цy=y+x=8+10=18锛...
绛旓細涓嶇煡閬撲綘鏄鏀瑰彉鎺т欢楂樺害杩樻槸瀛椾綋澶у皬銆傛敞鎰:濡傛灉鏄敼鍙樺瓧浣撳ぇ灏忕殑璇濓紝瑕佽缃甽abel 鐨刟utosize 灞炴т负 true Private Sub Command1_Click()' Label1.Height = Label1.Height * 4 '鏀瑰彉鎺т欢楂樺害 Label1.Font.Size = Label1.Font.Size * 4 '鏀瑰彉瀛椾綋澶у皬End Sub ...
绛旓細End Sub 1991骞达紝寰蒋鍏徃鎺ㄥ嚭浜 Visual Basic 1.0銆傚綋鏃跺紩璧蜂簡寰堝ぇ鐨勮桨鍔ㄣ傝繖涓繛鎺ョ紪绋嬭瑷鍜岀敤鎴风晫闈㈢殑杩涙琚О涓篢ripod锛堟湁浜涙椂鍊欏彨鍋歊uby锛夛紝鏈鍒濈殑璁捐鏄敱闃垮叞路搴撶弨锛圓lan Cooper锛夊畬鎴愮殑銆傝澶氫笓瀹舵妸 VB 鐨鍑虹幇褰撳仛鏄蒋浠跺紑鍙戝彶涓婄殑涓涓叿鏈夊垝鏃朵唬鎰忎箟鐨浜嬩欢銆傚湪褰撴椂锛屽畠鏄涓涓滃彲瑙嗏濈殑...
