鍦╒B涓紝鍙互閫氳繃娣诲姞MouseDown浜嬩欢澶勭悊绋嬪簭鏉ヨ缃甅ouseDown浜嬩欢銆傚彲浠ラ€氳繃浠ヤ笅姝ラ杩涜璁剧疆锛?/p>

1. 鎵撳紑VB椤圭洰骞跺湪绐椾綋璁捐鍣ㄤ腑閫夋嫨瑕佽缃甅ouseDown浜嬩欢鐨勬帶浠躲€?/li>
2. 鍦ㄥ睘鎬х獥鍙ｄ腑閫夋嫨鈥滀簨浠垛€濋€夐」鍗★紝鎵惧埌MouseDown浜嬩欢锛屽弻鍑昏浜嬩欢鎴栧崟鍑讳笅鎷夊垪琛ㄦ梺杈圭殑鎸夐挳銆?/li>
3. 杩欏皢鑷姩涓烘帶浠跺垱寤轰竴涓狹ouseDown浜嬩欢澶勭悊绋嬪簭锛屽苟灏嗗厜鏍囧畾浣嶅埌浜嬩欢澶勭悊绋嬪簭鐨勪唬鐮佸尯鍩熴€?/li>

鍦∕ouseDown浜嬩欢澶勭悊绋嬪簭鐨勪唬鐮佸尯鍩熷唴锛屽彲浠ョ紪鍐欏鐞嗛紶鏍囨寜涓嬩簨浠剁殑浠ｇ爜銆備緥濡傦紝鍙互浣跨敤If璇彞鏉ユ娴嬮紶鏍囨寜涓嬬殑鎸夐挳鏄乏閿€佸彸閿繕鏄腑閿紝骞舵牴鎹渶瑕佹墽琛岀浉搴旂殑鎿嶄綔銆?/p>

浠ヤ笅鏄竴涓ず渚嬩唬鐮侊紝灞曠ず濡備綍鍦∕ouseDown浜嬩欢澶勭悊绋嬪簭涓娴嬮紶鏍囨寜涓嬬殑鎸夐挳绫诲瀷锛?/p>

Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
    If e.Button = MouseButtons.Left Then
        ' 宸﹂敭鎸変笅
        ' 鎵ц鐩稿簲鎿嶄綔
    ElseIf e.Button = MouseButtons.Right Then
        ' 鍙抽敭鎸変笅
        ' 鎵ц鐩稿簲鎿嶄綔
    ElseIf e.Button = MouseButtons.Middle Then
        ' 涓敭鎸変笅
        ' 鎵ц鐩稿簲鎿嶄綔
    End If
End Sub

鍦ㄤ笂杩颁唬鐮佷腑锛孊utton1鏄竴涓寜閽帶浠讹紝MouseDown浜嬩欢澶勭悊绋嬪簭涓殑鍙傛暟e鍖呭惈鏈夊叧榧犳爣浜嬩欢鐨勪俊鎭紝渚嬪榧犳爣鎸夐挳绫诲瀷銆傛牴鎹紶鏍囨寜閽被鍨嬶紝鍙互鍦ㄧ浉搴旂殑鏉′欢涓嬫墽琛岀浉搴旂殑鎿嶄綔銆?/p>

甯屾湜浠ヤ笂淇℃伅瀵规偍鏈夋墍甯姪锛?/p>