代碼寫(xiě)起來(lái)可能比較麻煩,給你個(gè)思路,就是用GraphicsPath來(lái)繪制,然后通過(guò)繪制目標(biāo)的鼠標(biāo)移動(dòng)事件來(lái)獲取當(dāng)前鼠標(biāo)在繪制目標(biāo)中的實(shí)際位置,再通過(guò)GraphicsPath的IsVisible()方法來(lái)確認(rèn)鼠標(biāo)是否包含在GraphicsPath中。
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶,將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:域名注冊(cè)、網(wǎng)絡(luò)空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、通榆網(wǎng)站維護(hù)、網(wǎng)站推廣。
DrawLine直線比較容易處理,只要得到Line的坐標(biāo)點(diǎn),然后比較當(dāng)前鼠標(biāo)坐標(biāo)就好。
1.DataGrid 控件是一種類似于電子數(shù)據(jù)表的綁定控件,可以顯示一系列行和列來(lái)表示 Recordset 對(duì)象的記錄和字段。可以使用 DataGrid 來(lái)創(chuàng)建一個(gè)允許最終用戶閱讀和寫(xiě)入到絕大多數(shù)數(shù)據(jù)庫(kù)的應(yīng)用程序。DataGrid 控件可以在設(shè)計(jì)時(shí)快速進(jìn)行配置,只需少量代碼或無(wú)需代碼。當(dāng)在設(shè)計(jì)時(shí)設(shè)置了DataGrid 控件的 DataSource 屬性后,就會(huì)用數(shù)據(jù)源的記錄集來(lái)自動(dòng)填充該控件,以及自動(dòng)設(shè)置該控件的列標(biāo)頭。然后您就可以編輯該網(wǎng)格的列;刪除、重新安排、添加列標(biāo)頭、或者調(diào)整任意一列的寬度。
2.在運(yùn)行時(shí),可以在程序中切換 DataSource 來(lái)察看不同的表,或者可以修改當(dāng)前數(shù)據(jù)庫(kù)的查詢,以返回一個(gè)不同的記錄集合。
注意 DataGrid 控件與 Visual Basic 5.0中的 DBGrid 是代碼兼容的,除了一個(gè)例外:DataGrid 控件不支持 DBGrid 的“解除綁定模式”概念。DBGrid 控件包括在 Visual Basic 的 Tools 目錄中。
可能的用法
查看和編輯在遠(yuǎn)程或本地?cái)?shù)據(jù)庫(kù)中的數(shù)據(jù)。
與另一個(gè)數(shù)據(jù)綁定的控件(諸如 DataList 控件)聯(lián)合使用,使用DataGrid控件來(lái)顯示一個(gè)表的記錄,這個(gè)表通過(guò)一個(gè)公共字段鏈接到由第二個(gè)數(shù)據(jù)綁定控件所顯示的表。
3.使用 DataGrid 控件的設(shè)計(jì)時(shí)特性
可以不編寫(xiě)任何代碼,只通過(guò)使用 DataGrid 控件的設(shè)計(jì)時(shí)特性來(lái)創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)應(yīng)用程序。下面的說(shuō)明概要地說(shuō)明了在實(shí)現(xiàn) DataGrid 控件的典型應(yīng)用時(shí)的一般步驟。完整的循序漸進(jìn)的指示,請(qǐng)參閱主題“DataGrid 方案1: 使用 DataGrid 控件創(chuàng)建一個(gè)簡(jiǎn)單數(shù)據(jù)庫(kù)應(yīng)用程序”。
要在設(shè)計(jì)時(shí)實(shí)現(xiàn)一個(gè) DataGrid 控件
1. 為要訪問(wèn)的數(shù)據(jù)庫(kù)創(chuàng)建一個(gè) Microsoft 數(shù)據(jù)鏈接 (.MDL) 文件。請(qǐng)參閱“創(chuàng)建 Northwind OLE DB 數(shù)據(jù)鏈接”主題,以獲得一個(gè)示例。
2. 在窗體上放置一個(gè) ADO Data 控件,并將其 ConnectionString 屬性設(shè)置為在第 1 步中所創(chuàng)建的OLE DB 數(shù)據(jù)源。
3. 在這個(gè) Ado Data 控件的 RecordSource 屬性中輸入一條將返回一個(gè)記
錄集的 SQL 語(yǔ)句。例如,Select * From MyTableName Where CustID = 12
4. 在窗體上放置一個(gè) DataGrid 控件,并將其 DataSource 屬性設(shè)置為這個(gè) ADO Data 控件。
5. 右鍵單擊該 DataGrid 控件,然后單擊“檢索字段”。
6. 右鍵單擊該 DataGrid 控件,然后單擊“編輯”。
7. 重新設(shè)置該網(wǎng)格的大小、刪除或添加網(wǎng)格的列。
8. 右鍵單擊該 DataGrid 控件,然后單擊“屬性”。
9. 使用“屬性頁(yè)”對(duì)話框來(lái)設(shè)置該控件的適當(dāng)?shù)膶傩裕瑢⒃摼W(wǎng)格配置為所需的外觀和行為。
在運(yùn)行時(shí)更改顯示的數(shù)據(jù)
在創(chuàng)建了一個(gè)使用設(shè)計(jì)時(shí)特性的網(wǎng)格后,也可以在運(yùn)行時(shí)動(dòng)態(tài)地更改該網(wǎng)格的數(shù)據(jù)源。下面介紹實(shí)現(xiàn)這一功能的通常方法。
更改 DataSource 的RecordSource
更改所顯示的數(shù)據(jù)的最通常方法是改變?cè)?DataSource 的查詢。例如,如果DataGrid 控件使用一個(gè)ADO Data控件作為其 DataSource,則重寫(xiě)RecordSource和刷新該ADO Data 控件都將改變所顯示的數(shù)據(jù)。
' ADO Data 控件連接的是 Northwind 數(shù)據(jù)庫(kù)的' Products 表。新查詢查找所有
' SupplierID = 12 的記錄。
Dim strQuery As String
strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"
Adodc1.RecordSource = strQuery
Adodc1.Refresh
更改 DataSource
在運(yùn)行時(shí),可以將 DataSource 屬性重新設(shè)置為一個(gè)不同的數(shù)據(jù)源。例如,您可能具有若干個(gè) ADO Data 控件,每個(gè)控件連接不同的數(shù)據(jù)庫(kù),或設(shè)置為不同的 RecordSource 屬性??梢院?jiǎn)單地將 DataSource 從一個(gè) ADO Data控件重新設(shè)置為另一個(gè) ADO Data 控件:
' 將 DataSource 重新設(shè)置為一個(gè)連接到 Pubs 數(shù)據(jù)庫(kù)的、
' 使用 Authors 表的 ADO Data 控件。
Set DataGrid1.DataSource = adoPubsAuthors
重新綁定 DataSource
當(dāng)將 DataGrid 控件用于一個(gè)遠(yuǎn)程數(shù)據(jù)庫(kù),諸如 SQLServer 時(shí),可以改變表的結(jié)構(gòu)。例如,可以給這個(gè)表添加一個(gè)字段。在這種情形下,可以調(diào)用Rebind 方法根據(jù)新的結(jié)構(gòu)來(lái)重新創(chuàng)建該網(wǎng)格。注意,如果已經(jīng)在設(shè)計(jì)時(shí)改變了這個(gè)列的布局,DataGrid 控件將會(huì)試圖重新創(chuàng)建當(dāng)前的布局,包括任何空的列。不過(guò),通過(guò)首先調(diào)用 ClearFields 方法,可以強(qiáng)制該網(wǎng)格重新設(shè)置所有的列。
從 DataGrid 返回值
在 DataGrid 被連接到一個(gè)數(shù)據(jù)庫(kù)后,可能想要監(jiān)視用戶單擊了哪一個(gè)單元??梢允褂?RowColChange 事件——而不是 Click 事件。如下所示:
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
' 顯示用戶所單擊的單元的文字、行和列的信息。
Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.Col
End Sub
使用 CellText 和 CellValue 方法
當(dāng)一個(gè)列使用 NumberFormat 屬性設(shè)置格式后,CellText 和 CellValue 屬性是很有用的。NumberFormat 屬性不必更改實(shí)際的數(shù)據(jù)格式就可以更改任何包含數(shù)字的列的格式。例如,給定一個(gè)網(wǎng)格,其中包含一個(gè)名為 ProductID的、包含整數(shù)的列。下面的代碼將使 DataGrid 以"P-0000" 的格式來(lái)顯示數(shù)據(jù)。換句話說(shuō),盡管在 ProductID 字段中所包含的實(shí)際數(shù)值為 "3",但該網(wǎng)格所顯示的值將是 "P-0003"。
Private Sub Form_Load()
DataGrid1.Columns("ProductID").NumberFormat = "P-0000"
End Sub
要返回?cái)?shù)據(jù)庫(kù)中所包含的實(shí)際值,應(yīng)使用 CellValue 方法,如下所示:
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Debug.Print _
DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
End Sub
繪圖是系統(tǒng)內(nèi)部操作的,不需要懂原理
方法就在那里,只有會(huì)用和不會(huì)用,你的代碼告訴它繪制,它就會(huì)繪制。它(方法)究竟如何去繪制的并不是重點(diǎn),反正它會(huì)繪制。
drawline(繪線)方法很簡(jiǎn)單,第一個(gè)參數(shù)是pen,它確定線條的顏色、寬度和樣式。第二、第三個(gè)參數(shù)都是point類型,確定兩個(gè)點(diǎn)的位置,繪制直線。
清除重畫(huà),你畫(huà)上去的不能隱藏掉,只能蓋掉,或者你用兩種顏色來(lái)畫(huà),需要顯示的用顯示的顏色畫(huà),隱藏的用背景色畫(huà)
[{"word":"VB.NET畫(huà)直線方法\n該方法繪制一條連接由坐標(biāo)對(duì)指定的兩個(gè)點(diǎn)的線條,所以我們需要指定這兩個(gè)點(diǎn)的坐標(biāo),如下所示、\nDrawL in e(pen,x1.y1,x2,y2)或者DrawL in e(pen,Po in t1,Poin t2)\n下面示例將在PictureBox控件表面繪制一條直線、\nDim g As\nGraphics=Me.PictureBox\n1.CreateGraphics\nDim mpen As New\nPen(Color.Red)g.DrawLin e(mpen,0,80,0,160)\n也可以使用如下代碼來(lái)實(shí)現(xiàn)一樣的甲\n__\n"}]