注册 登录
编程论坛 VB6论坛

ControlState具体是怎么用的 要怎么定义

shenyang1141 发布于 2016-06-11 23:42, 2551 次点击
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case "add"
    ControlState True
    Adodc1.Recordset.AddNew
    For i = 1 To Text1.UBound
        Text(i) = ""
        Text(i).Locked = False
    Next i
    Text1(0).SetFocus
Case "save"
    Adodc1.Recordset.Update
    ControlState False
Case "cancel"
    ControlState False
    For i = 1 To Text1.UBound
        Text(i) = ""
        Text(i).Locked = True
    Next i
Case "close"
    Unload Me
End Select
End Sub

只有本站会员才能查看附件,请 登录
5 回复
#2
shenyang11412016-06-11 23:44
只有本站会员才能查看附件,请 登录
#3
xiangyue05102016-06-12 09:05
ControlState True 从这句话看应该是一个Sub, 看名字估计是激活一些控件的Enabled。
我估计你是直接复制或者拿来就用的。
#4
chen35232016-06-12 17:39
我也新手,对Toolbar1控件一点不了解,还不知怎样下载,楼主能否介绍一下怎样取得这一控件。看了半天知道.UBound意思和.Locked用法。
#5
xiangyue05102016-06-13 08:50
以下是引用chen3523在2016-6-12 17:39:48的发言:

我也新手,对Toolbar1控件一点不了解,还不知怎样下载,楼主能否介绍一下怎样取得这一控件。看了半天知道.UBound意思和.Locked用法。

工程—部件-Microsoft Windows Common Controls, Toolbar控件就在其中,如果没有添加一下这个部件就能看到
#6
chen35232016-06-13 15:54
谢版主。认真学习学习。
1