vb.net 怎樣獲取鼠標(biāo)單擊點的坐標(biāo)

通過窗體的MouseDown事件的e.X和e.Y屬性獲取。通過e.Location屬性獲取Point類型的坐標(biāo)。

創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站設(shè)計、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的雙陽網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

下面的代碼示例使用 Location 屬性跟蹤鼠標(biāo)左鍵單擊，并繪制一系列直線段作為對用戶輸入的響應(yīng)。如果隱藏窗體然后重新顯示它，此示例不保留已繪制的線段，該代碼為簡單起見而被省略了。

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.NET想用GetWindowRECT獲取某窗口的坐標(biāo)，但測試結(jié)果是L,T,R,B顯示都是0,0,0,0

很簡單，原因有二。第一，VB里long是32位，但是VB.NET里是64位，Dim ksWND As Integer才對。第二，VB在API里默認(rèn)傳址，而VB.NET默認(rèn)傳值，所以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("左上角坐標(biāo)(" winS.Left "," winS.Top ")" vbCrLf "右下角坐標(biāo)(" winS.Right "," winS.Bottom ")" vbCrLf "窗口高" winS.Bottom - winS.Top "窗口寬" winS.Right - winS.Left)

Else

MsgBox("請?zhí)顚懘翱诿Q")

End If

End Sub

vb.net怎么繪制帶坐標(biāo)軸的的一次函數(shù)？最好附上源碼。

1、利用公式求出Y值 　第一列設(shè)置表頭為x，下面依次填入取值， 比如 x 1 2 3 4 ...... 第二例表頭設(shè)置為y，在下面表格中填入計算公式 如 =2*x+1 然后選中點右下角的十字型標(biāo)記，拖下去，和前面x數(shù)量一致。 2、然后選中數(shù)據(jù)源（即選中要進(jìn)行操作的數(shù)據(jù)區(qū)域，這里指XY值所在區(qū)域。） 3、執(zhí)行菜單命令插入——圖表——XY散點圖 　執(zhí)行命令，打開圖表向?qū)υ捒蜻xXY散點圖－－選平滑線散點圖－－完成　 最后使用圖表向?qū)г跈M坐標(biāo)填入x值，縱坐標(biāo)填入y值，生成圖即可 將一次函數(shù)的Y列用公式編輯出來，分別填寫出當(dāng)取不同的X值時得到不的函數(shù)值，選擇函數(shù)值所在列，插入——圖表按提示操作。執(zhí)行菜單命令 執(zhí)行菜單命令

大佬們~VisualStudio中vb.net如何畫三角函數(shù)圖像？

VB系統(tǒng)的坐標(biāo)原點在左上角，X軸的正方向是水平向右，而Y軸的正方向是垂直向下。所以，要繪制三角函數(shù)的曲線，自己可以通過改變點坐標(biāo)的方法來實現(xiàn)，當(dāng)然，VB.NET提供了相應(yīng)的方法可以來實現(xiàn)坐標(biāo)變換，也可以通過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

? '先獲得正弦值，保存到點坐標(biāo)數(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

顯示的效果圖：

VB.net繪制可縮放的網(wǎng)格坐標(biāo)的相關(guān)問題

你用CreateGraphics方法的吧，這是臨時的Graphics，只要你把窗口拉出屏幕或者有其他的對話框遮擋，里面的內(nèi)容就會立即重畫，而CreateGraphics是臨時的，所以不會再為你畫了。有兩種方法，第一是重寫重畫事件Paint，第二當(dāng)作圖片放入pictureBox里(其實pictureBox也是重寫Paint事件的)

很清楚可以看到，藍(lán)色的是DrawLines，紅色的和綠色的是畫橢圓，至于捕獲，是重寫了MouseMove事件的，在這個事件里進(jìn)行算法計算，算出對應(yīng)的點，然后激活Paint事件。

用vb.net，把picturebox里面的點的坐標(biāo)顯示出來

在picturebox的點擊事件(Mouse Up)里面寫入獲取鼠標(biāo)當(dāng)前位置的代碼就是了

分享題目：關(guān)于vb.net三坐標(biāo)的信息
網(wǎng)頁鏈接：http://aaarwkj.com/article12/hhhggc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、關(guān)鍵詞優(yōu)化、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站設(shè)計公司、網(wǎng)站營銷、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)