日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

ArcEngine的鼠标事件中按键判断~

發布時間:2025/3/20 编程问答 36 豆豆
生活随笔 收集整理的這篇文章主要介紹了 ArcEngine的鼠标事件中按键判断~ 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

我們都知道,在.Net的鼠標事件中判斷鼠標事件方法如下(以button為例):

Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
??????? If e.Button = Windows.Forms.MouseButtons.Left Then
??????????? MsgBox("left_mouse clicked")
??????? ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then
??????????? MsgBox("middle_mouse clicked")
??????? ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
??????????? MsgBox("right_mouse clicked")
??????? End If
End Sub

?

在ArcEngine的AxMapControl1_OnMouseDown事件中我也仿照以上方法判斷如下:

Private Sub AxMapControl1_OnMouseDown(ByVal sender As System.Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseDownEvent) Handles AxMapControl1.OnMouseDown

??????????If e.button = MouseButtons.Left? Then
??????????? MsgBox("left_mouse clicked")

??????????End If

Exit Sub

結果提示警告:"通過實例訪問共享成員,變量成員,枚舉成員或嵌套類型;將不計算限定表達式"

警告的意思大概就是:共享成員(就像C++中的靜態成員變量)不能通過實例訪問,而應該用類直接訪問

?

于是,修改如下:

Private Sub AxMapControl1_OnMouseDown(ByVal sender As System.Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseDownEvent) Handles AxMapControl1.OnMouseDown

??????????If e.button = Windows.Forms.MouseButtons.Left? Then
??????????? MsgBox("left_mouse clicked")

??????????End If

Exit Sub

結果仍然有問題:


于是,我在該事件中將用msgbox觀察e.button的數值到底是多少

結果按左鍵得到 1 , 按右鍵得到 2, 按中鍵得到 4 ,而非原先Windows.Forms.MouseButtons.Left(一個很大的六位數):

可見ArcEngine中鼠標事件中 鼠標按鍵判斷 從.Net鼠標事件中 鼠標按鍵判斷 繼承而來,但作了修改

?

好了,AreEngine中正確的鼠標按鍵判斷應該如下:

Private Sub AxMapControl1_OnMouseDown(ByVal sender As System.Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseDownEvent) Handles AxMapControl1.OnMouseDown

??????? If e.button = 1 Then
??????????? MsgBox("left_mouse clicked")
??????? ElseIf e.button = 2 Then
??????????? MsgBox("right_mouse clicked")
??????? ElseIf e.button = 4 Then
??????????? MsgBox("middle_mouse clicked")
??????? End If

Exit Sub

?

轉載于:https://www.cnblogs.com/ycbfish333/archive/2008/08/09/1264167.html

總結

以上是生活随笔為你收集整理的ArcEngine的鼠标事件中按键判断~的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。