程式狂想曲

With 是 Vb.Net 與 C# 少數不同的語法，繼承自  VB6  是一個很好用的功能

最常用在同一個物件要做不同設定的時候

一起展示 與 DataGridView 的美化設定


Dim grdGlassIDSearch as Datagridview


  With grdGlassIDSearch
            .ReadOnly = True                                                                                                                         '唯讀 不可更改
            .RowHeadersVisible = False                                                                                                         '每行Row的開頭是否隱藏
            .AllowUserToAddRows = False                                                                                                     '是否允許使用者新增資料
            .AllowUserToDeleteRows = False                                                                                                 '是否允許使用者刪除資料
            .AllowUserToOrderColumns = False                                                                                             '是否允許使用者調整欄位位置
            .AllowUserToResizeColumns = False                                                                                            '是否允許使用者改變欄寬
            .AllowUserToResizeRows = False                                                                                                  '是否允許使用者改變行高
            .BackgroundColor = Color.White                                                                                                   '背景顏色設定
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect                                                       '選擇模式   內定一格   設定一行
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill                                            '自動調整欄寬模式      自動填滿
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells                                     '自動調整行高模式      自動與調整行高
            .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter     '欄位標題對位模式      水平垂直置中
        End With


當把資料與 Datagridview 連接後  有接欄位不想顯示  可以使用 某欄 Visable 設為 False



 grdGlassIDSearch.Columns.Item("X_Coord").Visible = False
 grdGlassIDSearch.Columns.Item("Y_Coord").Visible = False