通過窗體的MouseDown事件的e.X和e.Y屬性獲取。通過e.Location屬性獲取Point類型的坐標。
創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務領域包括：成都網(wǎng)站設計、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務，滿足客戶于互聯(lián)網(wǎng)時代的雙陽網(wǎng)站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡建設合作伙伴！
下面的代碼示例使用 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
很簡單，原因有二。第一，VB里long是32位，但是VB.NET里是64位，Dim ksWND As Integer才對。第二，VB在API里默認傳址，而VB.NET默認傳值，所以API里要添加Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,添加"ByRef" lpRect As RECT) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,byref lpRect As RECT) As Integer
Private Structure RECT
Dim Left As Integer
Dim Top As Integer
Dim Right As Integer
Dim Bottom As Integer
End Structure
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ksWND As integer
Dim ksTitle As String
Dim winS As RECT
If TextBox1.Text "" Then
ksTitle = TextBox1.Text
ksWND = FindWindow(vbNullString, ksTitle)
GetWindowRect(ksWND, winS)
MsgBox("左上角坐標(" winS.Left "," winS.Top ")" vbCrLf "右下角坐標(" winS.Right "," winS.Bottom ")" vbCrLf "窗口高" winS.Bottom - winS.Top "窗口寬" winS.Right - winS.Left)
Else
MsgBox("請?zhí)顚懘翱诿Q")
End If
End Sub
1、利用公式求出Y值 第一列設置表頭為x，下面依次填入取值， 比如 x 1 2 3 4 ...... 第二例表頭設置為y，在下面表格中填入計算公式 如 =2*x+1 然后選中點右下角的十字型標記，拖下去，和前面x數(shù)量一致。 2、然后選中數(shù)據(jù)源（即選中要進行操作的數(shù)據(jù)區(qū)域，這里指XY值所在區(qū)域。） 3、執(zhí)行菜單命令插入——圖表——XY散點圖 執(zhí)行命令，打開圖表向?qū)υ捒蜻xXY散點圖－－選平滑線散點圖－－完成 最后使用圖表向?qū)г跈M坐標填入x值，縱坐標填入y值，生成圖即可 將一次函數(shù)的Y列用公式編輯出來，分別填寫出當取不同的X值時得到不的函數(shù)值，選擇函數(shù)值所在列，插入——圖表按提示操作。執(zhí)行菜單命令 執(zhí)行菜單命令
VB系統(tǒng)的坐標原點在左上角，X軸的正方向是水平向右，而Y軸的正方向是垂直向下。所以，要繪制三角函數(shù)的曲線，自己可以通過改變點坐標的方法來實現(xiàn)，當然，VB.NET提供了相應的方法可以來實現(xiàn)坐標變換，也可以通過VB.Net的Graphics類提供的平移、旋轉(zhuǎn)等轉(zhuǎn)換來實現(xiàn)。
下面是我通過自己變換實現(xiàn)的示例，提供參考；我的環(huán)境是VB.NET 2010
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
? '1，獲得一個Graphics對象
? Dim MyGraphics As Graphics
? MyGraphics = PictureBox1.CreateGraphics
? '2，定義一個Pen對象，用于繪制圖形（輪廓線）
? Dim MyPen As New Pen(Color.Black, 1)
? '3，定義一個Brush對象，用于填充圖形（如果需要填充的話）
? Dim MyBrush As New SolidBrush(Color.Orange)
? MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
? '1，獲得一個Graphics對象
? Dim MyGraphics As Graphics
? MyGraphics = PictureBox1.CreateGraphics
? '2，定義一個Pen對象，用于繪制圖形（輪廓線）
? Dim MyPen As New Pen(Color.Black, 1)
? '3，定義一個Brush對象，用于填充圖形（如果需要填充的話）
? Dim MyBrush As New SolidBrush(Color.Orange)
? '聲明橫向和縱向比例變量
? Dim Heng As Integer = 20
? Dim Zong As Integer = 50
? '先獲得正弦值，保存到點坐標數(shù)組
? Dim MyPoints(700) As Point
? Dim i As Integer
? For i = 0 To 700
? ? ? MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)
? Next
? '采用繪制光滑線連接點的方式繪制曲線
? MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
顯示的效果圖：
你用CreateGraphics方法的吧，這是臨時的Graphics，只要你把窗口拉出屏幕或者有其他的對話框遮擋，里面的內(nèi)容就會立即重畫，而CreateGraphics是臨時的，所以不會再為你畫了。有兩種方法，第一是重寫重畫事件Paint，第二當作圖片放入pictureBox里(其實pictureBox也是重寫Paint事件的)
很清楚可以看到，藍色的是DrawLines，紅色的和綠色的是畫橢圓，至于捕獲，是重寫了MouseMove事件的，在這個事件里進行算法計算，算出對應的點，然后激活Paint事件。
在picturebox的點擊事件(Mouse Up)里面寫入獲取鼠標當前位置的代碼就是了
重慶分公司
重慶分公司
