控件.ContextMenuStrip=ContextMenuStrip1;
創(chuàng)新互聯(lián)建站主營桑植網(wǎng)站建設的網(wǎng)絡公司,主營網(wǎng)站建設方案,app開發(fā)定制,桑植h5小程序定制開發(fā)搭建,桑植網(wǎng)站營銷推廣歡迎桑植等地區(qū)企業(yè)咨詢
c#是這么寫的,彈出菜單相對鼠標是一個位置.
vb應該也一樣.
你目前的辦法是自己控制彈出菜單顯示的位置,但是你的坐標沒有控制好,注意世界坐標和控件坐標的區(qū)別,做個相應的轉換,還是可以實現(xiàn)的.
Private?Sub?TextBox1_Click(sender?As?Object,?e?As?EventArgs)?Handles?TextBox1.Click
TextBox1.SelectAll()
TextBox1.ForeColor?=?Color.Blue
End?Sub
如果不想每次都這樣的話,就加一個if判斷TextBox1.ForeColor 是否是Color.Blue就可以了
通過窗體的MouseDown事件的e.X和e.Y屬性獲取。通過e.Location屬性獲取Point類型的坐標。
下面的代碼示例使用 Location 屬性跟蹤鼠標左鍵單擊,并繪制一系列直線段作為對用戶輸入的響應。如果隱藏窗體然后重新顯示它,此示例不保留已繪制的線段,該代碼為簡單起見而被省略了。
Dim FirstPoint As Point
Dim HaveFirstPoint As Boolean = False
Sub Form1_MouseDownDrawing(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If HaveFirstPoint Then
Dim g As Graphics = Me.CreateGraphics()
g.DrawLine(Pens.Black, FirstPoint, e.Location)
HaveFirstPoint = False
Else
FirstPoint = e.Location
HaveFirstPoint = True
End If
End Sub