这段时间做机房收费系统,在结账时用到了SSTab控件.我的VB里面没有这个控件.这需要在网上下载并注册后添加在部件里.当然,也可以从同学那里去copy一个.你拿到控件以后,把它放到一个文件夹里.然后用dos命令 regsvr32 地址\grdes50.dll 来注册。例如：regsvr32 E:机房收费系统\grdes50.dll 然后，在vb里面点浏览，然后选择这个控件。

接下来，我来分享一下，怎么用这个控件。

右击打开属性页。Tab Count 和下面的TabPerRow我都设置为有几个选项。Current Tab 0 为第一个选项。TabCaption为选项标题。

基本代码：

在控件的Click事件中

Private Sub SST_Click(PrevIoUsTab As Integer)
If SST.Tab = 0 Then

‘要执行的功能

end if

if SST.Tan=1 then

'要执行的功能

end if

...............

这就是这个控件的最基本的用法。