本文整理匯總了VB.NET中System.Windows.Forms.DataGridTableStyle.ColumnHeadersVisibleChanged事件的典型用法代碼示例。如果您正苦於以下問題：VB.NET DataGridTableStyle.ColumnHeadersVisibleChanged事件的具體用法？VB.NET DataGridTableStyle.ColumnHeadersVisibleChanged怎麽用？VB.NET DataGridTableStyle.ColumnHeadersVisibleChanged使用的例子？那麽, 這裏精選的事件代碼示例或許可以為您提供幫助。您也可以進一步了解該事件所在類System.Windows.Forms.DataGridTableStyle的用法示例。
在下文中一共展示了DataGridTableStyle.ColumnHeadersVisibleChanged事件的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: AddCustomDataTableStyle
Private Sub DataGridTableStyle_Sample_Load(ByVal sender As Object, _
ByVal e As EventArgs) Handles MyBase.Load
myDataGridTableStyle1 = New DataGridTableStyle()
myHeaderLabel.Text = "Header Status :" + myDataGridTableStyle1.ColumnHeadersVisible.ToString()
If myDataGridTableStyle1.ColumnHeadersVisible = True Then
btnheader.Text = "Remove Header"
Else
btnheader.Text = "Add Header"
End If
AddCustomDataTableStyle()
End Sub
Private Sub AddCustomDataTableStyle()
AddHandler myDataGridTableStyle1.ColumnHeadersVisibleChanged, AddressOf ColumnHeadersVisibleChanged_Handler
' Set ColumnheaderVisible property.
myDataGridTableStyle1.MappingName = "Customers"
' Add a GridColumnStyle and set its MappingName
Dim myBoolCol = New DataGridBoolColumn()
myBoolCol.MappingName = "Current"
myBoolCol.HeaderText = "IsCurrent Customer"
myBoolCol.Width = 150
myDataGridTableStyle1.GridColumnStyles.Add(myBoolCol)
' Add a second column style.
Dim myTextCol = New DataGridTextBoxColumn()
myTextCol.MappingName = "custName"
myTextCol.HeaderText = "Customer Name"
myTextCol.Width = 250
myDataGridTableStyle1.GridColumnStyles.Add(myTextCol)
' Create new ColumnStyle objects
Dim cOrderDate = New DataGridTextBoxColumn()
cOrderDate.MappingName = "OrderDate"
cOrderDate.HeaderText = "Order Date"
cOrderDate.Width = 100
' PropertyDescriptor to create a formatted column.
Dim myPropertyDescriptorCollection As PropertyDescriptorCollection = _
Me.BindingContext(myDataSet, "Customers.custToOrders").GetItemProperties()
' Create a formatted column using a PropertyDescriptor.
Dim csOrderAmount = New DataGridTextBoxColumn(myPropertyDescriptorCollection("OrderAmount"), "c", True)
csOrderAmount.MappingName = "OrderAmount"
csOrderAmount.HeaderText = "Total"
csOrderAmount.Width = 100
' Add the DataGridTableStyle instances to GridTableStylesCollection.
myDataGrid.TableStyles.Add(myDataGridTableStyle1)
End Sub
Private Sub ColumnHeadersVisibleChanged_Handler(ByVal sender As Object, ByVal e As EventArgs)
myHeaderLabel.Text = "Header Status :" + myDataGridTableStyle1.ColumnHeadersVisible.ToString()
End Sub
Private Sub btnheader_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnheader.Click
If myDataGridTableStyle1.ColumnHeadersVisible = True Then
myDataGridTableStyle1.ColumnHeadersVisible = False
btnheader.Text = "Add Header"
Else
myDataGridTableStyle1.ColumnHeadersVisible = True
btnheader.Text = "Remove Header"
End If
End Sub開發者ID:VB.NET開發者，項目名稱:System.Windows.Forms，代碼行數:65，代碼來源:DataGridTableStyle.ColumnHeadersVisibleChanged