如何控制每列的全角半角

Dim gctxt2 As New GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType()
        gctxt2.FormatString = "H"
这样的设置并不能直接把输入法变成半角，只是让全角输入后的值变成半角，这样照成当前是全角输入法到了下一个数值单元格内，就不能直接输入，必须变化成半角才能输入，如何能直接变化全半角的切换？

例如第一列只能半角输入，第二列只能全角输入，那么我要坐到光标点进去就自动变成半角或者全角输入。

回复 1楼aladdin的帖子

半角：
Dim gctxt2 As New GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType()
gctxt2.FormatString = "H"
全角：
Dim gctxt2 As New GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType()
gctxt2.FormatString = "Z"