升级前环境:XP VS FlexGridPro 8.0 VB
升级后环境:win7、win8 ComponentOne VB.net
升级前代码为:VSFlexGrid.Cell(flexcpChecked, row, ColF_Yakan) = 5
现象:设置框选中,不可编辑
升级后代码为:.SetCellCheck(row, ColF_Yakan, C1.Win.C1FlexGrid.CheckEnum.TSUnChecked)
现象:设置款不选中,可编辑
升级后代码如何改写才能变成选中不可编辑呢?
VSFlexGrid升级到C1FlexGrid时,checkbox的外观问题.rar (1.25 M, 下载次数:1)
http://gcdn.gcpowertools.com.cn/showtopic.aspx?topicid=13893&forumpage=1&onlyauthor=1&posterid=27642
压缩包中升级前后的对比图,和升级后的工程代码和所需的DLL希望大家能帮忙解决,谢谢
XP代码:
Private Sub Form_Load()
Call VSFlexGrid1_ini
End Sub
http://
Sub VSFlexGrid1_ini()
VSFlexGrid1.Cell(flexcpChecked, 1, 1) = 0
VSFlexGrid1.Cell(flexcpChecked, 2, 1) = 1
VSFlexGrid1.Cell(flexcpChecked, 3, 1) = 2
VSFlexGrid1.Cell(flexcpChecked, 4, 1) = 3
VSFlexGrid1.Cell(flexcpChecked, 5, 1) = 4
VSFlexGrid1.Cell(flexcpChecked, 6, 1) = 5
End Sub
WIN7代码:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
C1FlexGrid1_ini()
End Sub
Private Sub C1FlexGrid1_ini()
Dim rang As C1.Win.C1FlexGrid.CellRange
rang = C1FlexGrid1.GetCellRange(1, 1)
rang.Checkbox = C1.Win.C1FlexGrid.CheckEnum.None
rang = C1FlexGrid1.GetCellRange(2, 1)
rang.Checkbox = C1.Win.C1FlexGrid.CheckEnum.Checked
rang = C1FlexGrid1.GetCellRange(3, 1)
rang.Checkbox = C1.Win.C1FlexGrid.CheckEnum.Unchecked
rang = C1FlexGrid1.GetCellRange(4, 1)
rang.Checkbox = C1.Win.C1FlexGrid.CheckEnum.Grayed
rang = C1FlexGrid1.GetCellRange(5, 1)
rang.Checkbox = C1.Win.C1FlexGrid.CheckEnum.TSChecked
rang = C1FlexGrid1.GetCellRange(6, 1)
rang.Checkbox = C1.Win.C1FlexGrid.CheckEnum.TSUnchecked
rang = C1FlexGrid1.GetCellRange(7, 1)
rang.Checkbox = C1.Win.C1FlexGrid.CheckEnum.TSGrayed
End Sub