本文整理汇总了VB.NET中System.Windows.Forms.DataGridTableStyle.GridLineStyleChanged事件的典型用法代码示例。如果您正苦于以下问题:VB.NET DataGridTableStyle.GridLineStyleChanged事件的具体用法?VB.NET DataGridTableStyle.GridLineStyleChanged怎么用?VB.NET DataGridTableStyle.GridLineStyleChanged使用的例子?那么恭喜您, 这里精选的事件代码示例或许可以为您提供帮助。您也可以进一步了解该事件所在类System.Windows.Forms.DataGridTableStyle
的用法示例。
在下文中一共展示了DataGridTableStyle.GridLineStyleChanged事件的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: AddCustomDataTableStyle
Private Sub AddCustomDataTableStyle()
myDataGridTableStyle1 = New DataGridTableStyle()
AddHandler myDataGridTableStyle1.MappingNameChanged, AddressOf MappingNameChanged_Handler
AddHandler myDataGridTableStyle1.GridLineStyleChanged, AddressOf GridLineStyleChanged_Handler
myDataGridTableStyle1.MappingName = "Customers"
' Set other properties.
myDataGridTableStyle1.AlternatingBackColor = Color.LightGray
myDataGridTableStyle1.GridLineStyle = System.Windows.Forms.DataGridLineStyle.None
' 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
' Use PropertyDescriptor to create a formatted column.
Dim myPropertyDescriptorCollection As PropertyDescriptorCollection = _
Me.BindingContext(myDataSet, "Customers.custToOrders").GetItemProperties()
Dim csOrderAmount = New DataGridTextBoxColumn _
(myPropertyDescriptorCollection("OrderAmount"), "c", True)
csOrderAmount.MappingName = "OrderAmount"
csOrderAmount.HeaderText = "Total"
csOrderAmount.Width = 100
' Add the DataGridTableStyle object to GridTableStylesCollection.
myDataGrid.TableStyles.Add(myDataGridTableStyle1)
End Sub
Private Sub MappingNameChanged_Handler(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("MappingName Changed", "DataGridTableStyle")
End Sub
Private Sub GridLineStyleChanged_Handler(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("GridLineStyle Changed", "DataGridTableStyle")
End Sub