关于Not CBool的用法

来源：百度知道编辑：UC知道时间：2024/05/24 02:56:22

Private Sub Edi_Click()
Dim i As Integer
Edi.Tag = Not CBool(Edi.Tag)
For i = 0 To Text1.UBound
Text1(i).Enabled = Edi.Tag
Next
Add.Enabled = Edi.Tag
Edi.Caption = IIf(Edi.Tag, "取消", "修改")
End Sub

请问为什么一定要用上NOT.不用的话程序没反应.Not CBool是用来干什么的EDI这个按钮的TAG属性是空的.
Edi.Tag = Not CBool(Edi.Tag)这一句用中文是怎么表达?

NOT是非的意思。
即Not True返回False
Not False返回True

Edi.Tag = Not CBool(Edi.Tag)
是把Edi.Tag的值在True / False间切换
比如Edi.Tag为空是则改写为True

于是Edi.Caption就在"取消", "修改"间切换

关于Not CBool的用法关于WHY NOT用法 Why not?的用法 not only的用法求关于not only ,but also 的所有用法 not until 的时态用法 can not help 的用法 If Not 语句的用法有关why not的用法关于either or,neither nor,not only,but also的用法