spread控件源码（spreadjs）

本文目录一览：

• 1、vb 里的spread控件如何添加呢？
• 2、vb里spread控件的问题
• 3、spread控件的click用法

vb 里的spread控件如何添加呢？

Private Sub Command1_Click()

Dim xinxi As Integer

xinxi = InputBox("请输入要隐藏的列！", "隐藏列")

If xinxi Like "[0-9]" Then

With Me.fpSpread1

.Row = xinxi

.RowHidden = True

End With

Else

MsgBox "想要隐藏行请输入要隐藏第几行？（合法字符为：数字）"

Exit Sub

End If

End Sub

不知道你是不是要这样的效果，想要重新显示的话，再把RowHidden 设置为False 就可以了。

vb里spread控件的问题

Private Sub Command1_Click()

Dim xinxi As Integer

xinxi = InputBox("请输入要隐藏的列！", "隐藏列")

If xinxi Like "[0-9]" Then

With Me.fpSpread1

.Row = xinxi

.RowHidden = True

End With

Else

MsgBox "想要隐藏行请输入要隐藏第几行？（合法字符为：数字）"

Exit Sub

End If

End Sub

不知道你是不是要这样的效果，想要重新显示的话，再把RowHidden 设置为False 就可以了。

spread控件的click用法

可以通过 MouseDown事件获取使用。

需要注意的是如果你连续点击，其代码可能会不执行，但是如果你点击一下，再把焦点移到其他地方，然后再点击，则可以。