可以利用font 設置。設置方法如下:
目前創新互聯已為上千多家的企業提供了網站建設、域名、網站空間、網站托管、服務器托管、企業網站設計、明水網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協力一起成長,共同發展。
TextBox1.Font = New System.Drawing.Font("宋體", 10)
也可以通過字體對話框來實現 如:
Private Sub myButton_Click(sender As Object, e As EventArgs)
Dim myFontDialog As FontDialog
myFontDialog = New FontDialog()
If myFontDialog.ShowDialog() = DialogResult.OK Then
' Set the control's font.
myDateTimePicker.Font = myFontDialog.Font
End If
End Sub
如果要做漂亮的界面的話,我建議你用WPF來做。所有的控件都可以用模板來定義樣式。
虛線的話,只需要定義一個矩形,設置一個屬性就可以了。前提是,WPF應用程序只能用VS2008或者VS2010來做
要么重寫這個控件的 OnPaint 事件,判斷 BorderStyle 屬性為 FixedSingle 的時候自繪其他顏色。
要么不重寫,把 BorderStyle 設為 None,直接在這個控件的 Paint 事件里自繪邊框,例如:
Private?Sub?Label1_Paint(sender?As?Object,?e?As?PaintEventArgs)?Handles?Label1.Paint
e.Graphics.DrawRectangle(Pens.Red,?New?Rectangle(Label1.DisplayRectangle.X,?Label1.DisplayRectangle.Y,?Label1.DisplayRectangle.Width?-?1,?Label1.DisplayRectangle.Height?-?1))
End?Sub
運行效果:
1.DataGrid 控件是一種類似于電子數據表的綁定控件,可以顯示一系列行和列來表示 Recordset 對象的記錄和字段。可以使用 DataGrid 來創建一個允許最終用戶閱讀和寫入到絕大多數數據庫的應用程序。DataGrid 控件可以在設計時快速進行配置,只需少量代碼或無需代碼。當在設計時設置了DataGrid 控件的 DataSource 屬性后,就會用數據源的記錄集來自動填充該控件,以及自動設置該控件的列標頭。然后您就可以編輯該網格的列;刪除、重新安排、添加列標頭、或者調整任意一列的寬度。
2.在運行時,可以在程序中切換 DataSource 來察看不同的表,或者可以修改當前數據庫的查詢,以返回一個不同的記錄集合。
注意 DataGrid 控件與 Visual Basic 5.0中的 DBGrid 是代碼兼容的,除了一個例外:DataGrid 控件不支持 DBGrid 的“解除綁定模式”概念。DBGrid 控件包括在 Visual Basic 的 Tools 目錄中。
可能的用法
查看和編輯在遠程或本地數據庫中的數據。
與另一個數據綁定的控件(諸如 DataList 控件)聯合使用,使用DataGrid控件來顯示一個表的記錄,這個表通過一個公共字段鏈接到由第二個數據綁定控件所顯示的表。
3.使用 DataGrid 控件的設計時特性
可以不編寫任何代碼,只通過使用 DataGrid 控件的設計時特性來創建一個數據庫應用程序。下面的說明概要地說明了在實現 DataGrid 控件的典型應用時的一般步驟。完整的循序漸進的指示,請參閱主題“DataGrid 方案1: 使用 DataGrid 控件創建一個簡單數據庫應用程序”。
要在設計時實現一個 DataGrid 控件
1. 為要訪問的數據庫創建一個 Microsoft 數據鏈接 (.MDL) 文件。請參閱“創建 Northwind OLE DB 數據鏈接”主題,以獲得一個示例。
2. 在窗體上放置一個 ADO Data 控件,并將其 ConnectionString 屬性設置為在第 1 步中所創建的OLE DB 數據源。
3. 在這個 Ado Data 控件的 RecordSource 屬性中輸入一條將返回一個記
錄集的 SQL 語句。例如,Select * From MyTableName Where CustID = 12
4. 在窗體上放置一個 DataGrid 控件,并將其 DataSource 屬性設置為這個 ADO Data 控件。
5. 右鍵單擊該 DataGrid 控件,然后單擊“檢索字段”。
6. 右鍵單擊該 DataGrid 控件,然后單擊“編輯”。
7. 重新設置該網格的大小、刪除或添加網格的列。
8. 右鍵單擊該 DataGrid 控件,然后單擊“屬性”。
9. 使用“屬性頁”對話框來設置該控件的適當的屬性,將該網格配置為所需的外觀和行為。
在運行時更改顯示的數據
在創建了一個使用設計時特性的網格后,也可以在運行時動態地更改該網格的數據源。下面介紹實現這一功能的通常方法。
更改 DataSource 的RecordSource
更改所顯示的數據的最通常方法是改變該 DataSource 的查詢。例如,如果DataGrid 控件使用一個ADO Data控件作為其 DataSource,則重寫RecordSource和刷新該ADO Data 控件都將改變所顯示的數據。
' ADO Data 控件連接的是 Northwind 數據庫的' Products 表。新查詢查找所有
' SupplierID = 12 的記錄。
Dim strQuery As String
strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"
Adodc1.RecordSource = strQuery
Adodc1.Refresh
更改 DataSource
在運行時,可以將 DataSource 屬性重新設置為一個不同的數據源。例如,您可能具有若干個 ADO Data 控件,每個控件連接不同的數據庫,或設置為不同的 RecordSource 屬性。可以簡單地將 DataSource 從一個 ADO Data控件重新設置為另一個 ADO Data 控件:
' 將 DataSource 重新設置為一個連接到 Pubs 數據庫的、
' 使用 Authors 表的 ADO Data 控件。
Set DataGrid1.DataSource = adoPubsAuthors
重新綁定 DataSource
當將 DataGrid 控件用于一個遠程數據庫,諸如 SQLServer 時,可以改變表的結構。例如,可以給這個表添加一個字段。在這種情形下,可以調用Rebind 方法根據新的結構來重新創建該網格。注意,如果已經在設計時改變了這個列的布局,DataGrid 控件將會試圖重新創建當前的布局,包括任何空的列。不過,通過首先調用 ClearFields 方法,可以強制該網格重新設置所有的列。
從 DataGrid 返回值
在 DataGrid 被連接到一個數據庫后,可能想要監視用戶單擊了哪一個單元。可以使用 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 方法
當一個列使用 NumberFormat 屬性設置格式后,CellText 和 CellValue 屬性是很有用的。NumberFormat 屬性不必更改實際的數據格式就可以更改任何包含數字的列的格式。例如,給定一個網格,其中包含一個名為 ProductID的、包含整數的列。下面的代碼將使 DataGrid 以"P-0000" 的格式來顯示數據。換句話說,盡管在 ProductID 字段中所包含的實際數值為 "3",但該網格所顯示的值將是 "P-0003"。
Private Sub Form_Load()
DataGrid1.Columns("ProductID").NumberFormat = "P-0000"
End Sub
要返回數據庫中所包含的實際值,應使用 CellValue 方法,如下所示:
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Debug.Print _
DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
End Sub
網站標題:vb.net框線 vb窗口具有雙線框架
本文地址:http://m.newbst.com/article16/hpdddg.html
成都網站建設公司_創新互聯,為您提供外貿建站、移動網站建設、網站制作、App開發、靜態網站、企業網站制作
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯