vb.net的dbgrid控件的網(wǎng)格線該如何設(shè)置

1.DataGrid 控件是一種類似于電子數(shù)據(jù)表的綁定控件，可以顯示一系列行和列來表示 Recordset 對象的記錄和字段。可以使用 DataGrid 來創(chuàng)建一個允許最終用戶閱讀和寫入到絕大多數(shù)數(shù)據(jù)庫的應(yīng)用程序。DataGrid 控件可以在設(shè)計時快速進行配置，只需少量代碼或無需代碼。當(dāng)在設(shè)計時設(shè)置了DataGrid 控件的 DataSource 屬性后，就會用數(shù)據(jù)源的記錄集來自動填充該控件，以及自動設(shè)置該控件的列標(biāo)頭。然后您就可以編輯該網(wǎng)格的列；刪除、重新安排、添加列標(biāo)頭、或者調(diào)整任意一列的寬度。

站在用戶的角度思考問題，與客戶深入溝通，找到北流網(wǎng)站設(shè)計與北流網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：成都做網(wǎng)站、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、申請域名、網(wǎng)頁空間、企業(yè)郵箱。業(yè)務(wù)覆蓋北流地區(qū)。

2.在運行時，可以在程序中切換 DataSource 來察看不同的表，或者可以修改當(dāng)前數(shù)據(jù)庫的查詢，以返回一個不同的記錄集合。

注意 DataGrid 控件與 Visual Basic 5.0中的 DBGrid 是代碼兼容的，除了一個例外：DataGrid 控件不支持 DBGrid 的“解除綁定模式”概念。DBGrid 控件包括在 Visual Basic 的 Tools 目錄中。

可能的用法

查看和編輯在遠(yuǎn)程或本地數(shù)據(jù)庫中的數(shù)據(jù)。

與另一個數(shù)據(jù)綁定的控件（諸如 DataList 控件）聯(lián)合使用，使用DataGrid控件來顯示一個表的記錄，這個表通過一個公共字段鏈接到由第二個數(shù)據(jù)綁定控件所顯示的表。

3.使用 DataGrid 控件的設(shè)計時特性

可以不編寫任何代碼，只通過使用 DataGrid 控件的設(shè)計時特性來創(chuàng)建一個數(shù)據(jù)庫應(yīng)用程序。下面的說明概要地說明了在實現(xiàn) DataGrid 控件的典型應(yīng)用時的一般步驟。完整的循序漸進的指示，請參閱主題“DataGrid 方案1: 使用 DataGrid 控件創(chuàng)建一個簡單數(shù)據(jù)庫應(yīng)用程序”。

要在設(shè)計時實現(xiàn)一個 DataGrid 控件

1. 為要訪問的數(shù)據(jù)庫創(chuàng)建一個 Microsoft 數(shù)據(jù)鏈接 (.MDL) 文件。請參閱“創(chuàng)建 Northwind OLE DB 數(shù)據(jù)鏈接”主題，以獲得一個示例。

2. 在窗體上放置一個 ADO Data 控件，并將其 ConnectionString 屬性設(shè)置為在第 1 步中所創(chuàng)建的OLE DB 數(shù)據(jù)源。

3. 在這個 Ado Data 控件的 RecordSource 屬性中輸入一條將返回一個記

錄集的 SQL 語句。例如，Select * From MyTableName Where CustID = 12

4. 在窗體上放置一個 DataGrid 控件，并將其 DataSource 屬性設(shè)置為這個 ADO Data 控件。

5. 右鍵單擊該 DataGrid 控件，然后單擊“檢索字段”。

6. 右鍵單擊該 DataGrid 控件，然后單擊“編輯”。

7. 重新設(shè)置該網(wǎng)格的大小、刪除或添加網(wǎng)格的列。

8. 右鍵單擊該 DataGrid 控件，然后單擊“屬性”。

9. 使用“屬性頁”對話框來設(shè)置該控件的適當(dāng)?shù)膶傩裕瑢⒃摼W(wǎng)格配置為所需的外觀和行為。

在運行時更改顯示的數(shù)據(jù)

在創(chuàng)建了一個使用設(shè)計時特性的網(wǎng)格后，也可以在運行時動態(tài)地更改該網(wǎng)格的數(shù)據(jù)源。下面介紹實現(xiàn)這一功能的通常方法。

更改 DataSource 的RecordSource

更改所顯示的數(shù)據(jù)的最通常方法是改變該 DataSource 的查詢。例如，如果DataGrid 控件使用一個ADO Data控件作為其 DataSource，則重寫RecordSource和刷新該ADO Data 控件都將改變所顯示的數(shù)據(jù)。

' ADO Data 控件連接的是 Northwind 數(shù)據(jù)庫的' Products 表。新查詢查找所有

' SupplierID = 12 的記錄。

Dim strQuery As String

strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"

Adodc1.RecordSource = strQuery

Adodc1.Refresh

更改 DataSource

在運行時，可以將 DataSource 屬性重新設(shè)置為一個不同的數(shù)據(jù)源。例如，您可能具有若干個 ADO Data 控件，每個控件連接不同的數(shù)據(jù)庫，或設(shè)置為不同的 RecordSource 屬性。可以簡單地將 DataSource 從一個 ADO Data控件重新設(shè)置為另一個 ADO Data 控件：

' 將 DataSource 重新設(shè)置為一個連接到 Pubs 數(shù)據(jù)庫的、

' 使用 Authors 表的 ADO Data 控件。

Set DataGrid1.DataSource = adoPubsAuthors

重新綁定 DataSource

當(dāng)將 DataGrid 控件用于一個遠(yuǎn)程數(shù)據(jù)庫，諸如 SQLServer 時，可以改變表的結(jié)構(gòu)。例如，可以給這個表添加一個字段。在這種情形下，可以調(diào)用Rebind 方法根據(jù)新的結(jié)構(gòu)來重新創(chuàng)建該網(wǎng)格。注意，如果已經(jīng)在設(shè)計時改變了這個列的布局，DataGrid 控件將會試圖重新創(chuàng)建當(dāng)前的布局，包括任何空的列。不過，通過首先調(diào)用 ClearFields 方法，可以強制該網(wǎng)格重新設(shè)置所有的列。

從 DataGrid 返回值

在 DataGrid 被連接到一個數(shù)據(jù)庫后，可能想要監(jiān)視用戶單擊了哪一個單元。可以使用 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)一個列使用 NumberFormat 屬性設(shè)置格式后，CellText 和 CellValue 屬性是很有用的。NumberFormat 屬性不必更改實際的數(shù)據(jù)格式就可以更改任何包含數(shù)字的列的格式。例如，給定一個網(wǎng)格，其中包含一個名為 ProductID的、包含整數(shù)的列。下面的代碼將使 DataGrid 以"P-0000" 的格式來顯示數(shù)據(jù)。換句話說，盡管在 ProductID 字段中所包含的實際數(shù)值為 "3"，但該網(wǎng)格所顯示的值將是 "P-0003"。

Private Sub Form_Load()

DataGrid1.Columns("ProductID").NumberFormat = "P-0000"

End Sub

要返回數(shù)據(jù)庫中所包含的實際值，應(yīng)使用 CellValue 方法，如下所示：

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

Debug.Print _

DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)

End Sub

VB.net對Excel條件格式

首先,須在項目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000）

1 打開Excel： dim myexcel as new Excel.Application() myexcel.visible=true

2 添加新的工作簿： myexcel.Workbooks.add()

3 設(shè)定第二個工作表為活動工作表： myexcel.worksheets(2).Acivate()

4 打開指定的Excel文件： myexcel.workbooks.open("c:\my.xls")

5 顯示Excel窗口： myexcel.visible=true

6 更改Excel的標(biāo)題欄： myexcel.caption="歡迎,歡迎!"

7 為Excel的單元格賦值： myexcel.cells(1,4).value=100 此語句使Excel當(dāng)前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range("D1").value=100

8 設(shè)置指定列的寬度(單位:字符個數(shù))： myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當(dāng)前工作表第1列的寬度為20

9 設(shè)置指定行的高度(單位:磅)： myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米 設(shè)置第1行的高度為1CM

10 插入分頁符： myexcel.Activesheet.rows(20).pagebreak=1 在第20行前插入分頁符

11 刪除分頁符： myexcel.Activesheet.columns(20).pagebreak=0 在第20列前刪除分頁符

12 指定邊框線的寬度： myexcel.Activesheet.range("B3:D3").borders(1).weight=3 其中borders參數(shù)指定單元格邊框的位置: 1:左 2:右 3:頂 4:底 5:斜\ 6:斜/

13 指定邊框線條的類型： myexcel.Activesheet.range("B1:D3").borders(2).linestyle=1 此語句將當(dāng)前工作表的B1:D3單元格的右邊框設(shè)置為實線 linestyle參數(shù): 1:細(xì)實線 2:細(xì)虛線 3:點虛線 4:雙細(xì)實線

14 設(shè)置頁腳： myexcel.activesheet.pagesetup.centerfooter="第p頁" 注意:設(shè)置頁眉頁腳時要保證計算機上裝有打印機,否則出錯!

15 設(shè)置頁眉： myexcel.activesheet.pagesetup.centerfooter="第p頁"

16 設(shè)置頁眉到頂斷距離為2cm： myexcel.Activesheet.pagesetup.Headermargin=2/0.035

17 設(shè)置頁腳到底端距離為2cm： myexcel.Activesheet.pagesetup.Footermargin=2/0.035

18 設(shè)置頂邊邊距為2cm： myexcel.Activesheet.pagesetup.topmargin=2/0.035

19 設(shè)置底邊邊距為2cm： myexcel.Activesheet.pagesetup.Bottommargin=2/0.035

20 設(shè)置左邊邊距為2cm： myexcel.Activesheet.pagesetup.Leftmargin=2/0.035

21 設(shè)置右邊邊距為2cm： myexcel.Activesheet.pagesetup.Rightmargin=2/0.035

22 設(shè)置頁面水平居中： myexcel.activesheet.pagesetup.CenterHorizontally=true

23 設(shè)置頁面垂直居中： myexcel.activesheet.pagesetup.Centervertically=true

24 設(shè)置頁面紙張大小 (1,窄行 8.5*11 ;39 ,寬行 14*11)： myexcel.activesheet.pagesetup.papersize=1

25 打印單元格網(wǎng)格線： myexcel.activesheet.pagesetup.PrintGridlines=true

26 復(fù)制整個工作表 ： myexcel.activesheet.Usedrange.Copy

27 復(fù)制指定區(qū)域 ： myexcel.activesheet.range("a1:b5").Copy

28 粘貼： myexcel.worksheets("sheet2").range("A1").PasteSpecial

29 在第2行前插入一行 ： myexcel.activesheet.rows(2).Insert

30 在第2列前插入一列 ： myexcel.Activesheet.Columns(2).Insert

31 合并 C4:D4 單元格： myexcel.Activesheet.Range("C4:D4").Merge()

32 自動調(diào)整第2列列寬： myexcel.activesheet.Columns(2).AutoFit

33 設(shè)置字體： myexcel.Activesheet.cells(2,1).font.name="黑體"

34 設(shè)置字體大小： myexcel.Activesheet.cells(2,1).font.size=25

35 設(shè)置字體為斜體： myexcel.Activesheet.cells(2,1).font.Italic=true

36 設(shè)置字體為粗體： myexcel.Activesheet.cells(2,1).font.Bold=true

37 清除單元格內(nèi)容： myexcel.activesheet.cells(2,1).ClearContents

38 打印預(yù)覽工作表： myexcel.Activesheet.PrintPreview

39 打印工作表： myexcel.Activesheet.Printout

40 工作表另存為： myexcel.ActiveWorkbook.saveas("C:\book2.xls")

41 放棄存盤： myexcel.ActiveWorkbook.saved=false

42 關(guān)閉工作簿： myexcel.Workbooks.close

43 退出 Excel： myexcel.quit

清楚了這些命令，操作excel不就變的很輕松了！

datagridview的單元格邊框怎么設(shè)置

DataGridView

的邊框線樣式的設(shè)定

DataGridView

的邊框線的樣式是通過

DataGridView.BorderStyle

屬性來設(shè)定的。

BorderStyle

屬性設(shè)定值是一個

BorderStyle

枚舉：

FixedSingle（單線，默認(rèn)）、Fixed3D、None。

2)

單元格的邊框線樣式的設(shè)定單元格的邊框線的樣式是通過

DataGridView.CellBorderStyle

屬性來設(shè)定的。

CellBorderStyle

屬性設(shè)定值是

DataGridViewCellBorderStyle

枚舉。（詳細(xì)參見

MSDN）

另外，通過

DataGridView.ColumnHeadersBorderStyle

和

RowHeadersBorderStyle

屬性可以修改

DataGridView

的頭部的單元格邊框線樣式。

屬性設(shè)定值是

DataGridViewHeaderBorderStyle

枚舉。（詳細(xì)參見

MSDN）

3）

單元格的邊框顏色的設(shè)定

單元格的邊框線的顏色可以通過

DataGridView.GridColor

屬性來設(shè)定的。默認(rèn)是

ControlDarkDark

。但是只有在

CellBorderStyle

被設(shè)定為

Single、SingleHorizontal、SingleVertical

的條件下才能改變其邊框線的顏色。同樣，ColumnHeadersBorderStyle

以及

RowHeadersBorderStyle

只有在被設(shè)定為

Single

時，才能改變顏色。

4）

單元格的上下左右的邊框線式樣的單獨設(shè)定

CellBorderStyle只能設(shè)定單元格全部邊框線的式樣。要單獨改變單元格某一邊邊框式樣的話，需要用到DataGridView.AdvancedCellBorderStyle屬性。如示例：[VB.NET]'

單元格的上邊和左邊線設(shè)為二重線

'

單元格的下邊和右邊線設(shè)為單重線

DataGridView1.AdvancedCellBorderStyle.Top

=

_

DataGridViewAdvancedCellBorderStyle.InsetDouble

DataGridView1.AdvancedCellBorderStyle.Right

=

_

DataGridViewAdvancedCellBorderStyle.Inset

DataGridView1.AdvancedCellBorderStyle.Bottom

=

_

DataGridViewAdvancedCellBorderStyle.Inset

DataGridView1.AdvancedCellBorderStyle.Left

=

_

vb.net 設(shè)置EXCEL單元格的邊框，只在下邊有邊框，其他三邊沒有邊框，求代碼

objRange.Borders(XlBordersIndex.xlEdgeBottom).LineStyle = XlLineStyle.xlContinuous

objRange.Borders(XlBordersIndex.xlEdgeBottom).ColorIndex = 1

objRange.Borders(XlBordersIndex.xlEdgeBottom).Weight = XlBorderWeight.xlThin

文章標(biāo)題：vb.net表格線設(shè)置的簡單介紹
文章路徑：http://chinadenli.net/article36/dooiisg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、網(wǎng)站改版、企業(yè)網(wǎng)站制作、面包屑導(dǎo)航、移動網(wǎng)站建設(shè)、商城網(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)