MTR中的ColumnHeaderCell的FlatAppearance的属性修改用代码怎么写？

收藏

MTR中的ColumnHeaderCell的FlatStyle和FlatAppearance的MouseOverBackColor属性修改用代码怎么写？

barrylei · barrylei

Dim headercell As New ColumnHeaderCell()
headercell.FlatStyle = FlatStyle.Flat
headercell.FlatAppearance = New MultiRowFlatButtonAppearance()
headercell.FlatAppearance.MouseOverBackColor = Color.Red

复制代码

db2176 · db2176

会报错ColumnHeaderCell()和headercell.FlatAppearance = New MultiRowFlatButtonAppearance()

db2176 · db2176

Private Sub funcShowDetail()
      Try
         Dim strSyainmei As String = txtstrSyainmei.Text
         dsZ2103Info = objDA_1.Syainmei_search(strSyainmei)
         Me.GcKinkoDetail.SuspendLayout()
         Me.GcKinkoDetail.DataSource = dsZ2103Info.Tables(0)
         Me.GcKinkoDetail.MultiSelect = False
         Me.GcKinkoDetail.ViewMode = GrapeCity.Win.MultiRow.ViewMode.Row
         Me.GcKinkoDetail.ReadOnly = True
         Me.GcKinkoDetail.ResumeLayout()
         ' ↓==== 変更() C0111:2011/08/1 ====↓
         Me.GcKinkoDetail.ColumnHeadersDefaultHeaderCellStyle.BackColor =Color.MidnightBlue
         Dim headercell As New ColumnHeaderCell（）
         headercell.FlatStyle = FlatStyle.Flat
         headercell.FlatAppearance = New MultiRowFlatButtonAppearance()
         headercell.FlatAppearance.MouseOverBackColor = Color.Red

db2176 · db2176

上面是我调用mtr的函数，您写给我的代码我加进取后会报错？请问如何修改？

db2176 · db2176

还是说代码不应该写在这里面，而是要写在mtr的的vb里面

barrylei · barrylei

Sorry, 第三行代码去掉就好了。

Dim headercell As New ColumnHeaderCell()
headercell.FlatStyle = FlatStyle.Flat
headercell.FlatAppearance.MouseOverBackColor = Color.Red

复制代码

db2176 · db2176

ColumnHeaderCell()
这个还是会报错

db2176 · db2176

ColumnHeaderCell()
这个好像没有，请问这是什么？如果是新new的一个headercell，可是没有与我的mtr里面的关联上，下面的属性修改语句又是怎么修改的我的mtr里面的属性的？？

barrylei · barrylei

报什么错？异常能发上来吗？

		自动登录	找回密码
密码			立即注册

MTR中的ColumnHeaderCell的FlatAppearance的属性修改用代码怎么写？

13 个回复

回复 1# db2176 的帖子

回复 8# db2176 的帖子

活字格认证