module1.bas

可以把客户的信息：客户类别

'*************************************************************************
'**模 块 名：Module1
'**网    址：www.mingrisoft.com  价值无限，服务无限
'**电    话：[phone],84978982
'**创 建 人：明日科技
'**日    期：2007-11-20
'**修 改 人：MRLBB
'**日    期：2007-11-20
'*************************************************************************
Attribute VB_Name = "Module1"
'定义设置Toolbar控件上按钮状态的函数
Public Function tlbState(tlb As Toolbar, state As Boolean)
    With tlb
        If state = True Then
            .Buttons(1).Enabled = False
            .Buttons(2).Enabled = False
            .Buttons(3).Enabled = False
            .Buttons(6).Enabled = False
            .Buttons(4).Enabled = True
            .Buttons(5).Enabled = True
        Else
            .Buttons(1).Enabled = True
            .Buttons(2).Enabled = True
            .Buttons(3).Enabled = True
            .Buttons(6).Enabled = True
            .Buttons(4).Enabled = False
            .Buttons(5).Enabled = False
        End If
    End With
End Function