Private Sub Form_Timer()
With Me.Text4
.Locked = Not .Locked
If .Locked = True Then
.Value = "锁定"
.BackColor = vbGreen
.ForeColor = vbRed
Else
.Value = "没锁定"
.BackColor = vbRed
.ForeColor = vbGreen
End If
End With
End Sub作者: yachtz 时间: 2003-2-17 21:44
将之"Locked"属性设置为"True",并将“BackColor”设置为相应的色彩代码即可