如下代码,运行后,可以将里面的密码贴到Spread其他单元格,并且显示了实际的内容。
这个是Bug吗?
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
' 类型设定
Dim tc As New FarPoint.Win.Spread.CellType.TextCellType()
tc.PasswordChar = "*"
FpSpread1.ActiveSheet.Columns(0).CellType = tc
' GcTextBox类型设定
Dim gctc As New GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType()
gctc.PasswordChar = "*"
FpSpread1.ActiveSheet.Columns(1).CellType = gctc
' 测试数据设定
FpSpread1.ActiveSheet.Cells(0, 0).Value = "abc"
FpSpread1.ActiveSheet.Cells(0, 1).Value = "123"
FpSpread1.ActiveSheet.Cells(0, 0).Locked = True
FpSpread1.ActiveSheet.Cells(0, 1).Locked = True
End Sub |
|