读书人

100分求winform中 用AdjustCellBord

发布时间: 2012-10-13 11:38:17 作者: rapoo

100分,求winform中 用AdjustCellBorderStyle 控制单元格边框问题!
如下代码控制单元格,让一个边 没有边框,怎么不好用啊,大家帮帮忙!

Dim newStyle As New DataGridViewAdvancedBorderStyle()
With newStyle
.Top = DataGridViewAdvancedCellBorderStyle.OutsetDouble
.Left = DataGridViewAdvancedCellBorderStyle.OutsetDouble
.Bottom = DataGridViewAdvancedCellBorderStyle.OutsetDouble
.Right = DataGridViewAdvancedCellBorderStyle.None
End With

Dim newStyle1 As New DataGridViewAdvancedBorderStyle()
With newStyle
.Top = DataGridViewAdvancedCellBorderStyle.OutsetDouble
.Left = DataGridViewAdvancedCellBorderStyle.None
.Bottom = DataGridViewAdvancedCellBorderStyle.OutsetDouble
.Right = DataGridViewAdvancedCellBorderStyle.OutsetDouble
End With

Me.DataGridView1.Rows(1).Cells(1).AdjustCellBorderStyle(newStyle, newStyle, False, False, False, False)
Me.DataGridView1.Rows(1).Cells(2).AdjustCellBorderStyle(newStyle1, newStyle1, False, False, False, False)

[解决办法]
up
[解决办法]
帮你顶
[解决办法]

VB.NET code
Public Class GridViewCustomCell    Inherits DataGridViewTextBoxCell    Private lisSigTopLine As Boolean = False                      Private lisSigButtomLine As Boolean = False                            Public Sub New( _        ByVal isSigTopLine_In As Boolean, _        ByVal isSigButtomLine_In As Boolean)        lisSigTopLine = isSigTopLine_In        lisSigButtomLine = isSigButtomLine_In    End Sub    Public Overrides Function AdjustCellBorderStyle( _        ByVal borderStyleInput_In As DataGridViewAdvancedBorderStyle, _        ByVal borderStylePlaceHolder_In As DataGridViewAdvancedBorderStyle, _        ByVal verticalBorderAdded_In As Boolean, _        ByVal horizontalBorderAdded_In As Boolean, _        ByVal firstVisibleColumn_In As Boolean, _        ByVal firstVisibleRow_In As Boolean _        ) As DataGridViewAdvancedBorderStyle        borderStylePlaceHolder_In.Left = DataGridViewAdvancedCellBorderStyle.None        borderStylePlaceHolder_In.Right = borderStyleInput_In.Right        If lisSigTopLine = True Then            borderStylePlaceHolder_In.Top = _                borderStyleInput_In.Top        Else            borderStylePlaceHolder_In.Top = _                DataGridViewAdvancedCellBorderStyle.None        End If        If lisSigButtomLine = True Then            borderStylePlaceHolder_In.Bottom = _                borderStyleInput_In.Bottom        Else            borderStylePlaceHolder_In.Bottom = _                DataGridViewAdvancedCellBorderStyle.None        End If        Return borderStylePlaceHolder_In    End FunctionEnd Class
[解决办法]
唔唔~我面临你一样的问题!好像AdjustCellBorderStyle也只是对整列进行边框设置!!!~~~~
[解决办法]
请给出 具体 实现代码,谢谢啦

读书人网 >VB Dotnet

热点推荐