VB 下面的代码什么意思啊

来源:百度知道 编辑:UC知道 时间:2024/05/13 23:31:52
Private Sub edits_Click()
If Text1.SelLength = 0 Then
edit(0).Enabled = False
edit(1).Enabled = False
Else
edit(0).Enabled = True
edit(1).Enabled = True
End If
End Sub

最近发现初学者不少!

Private Sub edits_Click() 'edits可能是按钮,也可能是其他的控件,当它被cilck的时候,执行以下代码
If Text1.SelLength = 0 Then '如果text1的选择文本的长度为0,即没有选中任何text1中的内容,那么
'edit(0)和edit(1)是什么控件这里看不出来,好像是 [复制] 和 [剪切] 两个按钮.
edit(0).Enabled = False 使edit(0)不可用.
edit(1).Enabled = False '使edit(1)不可用.
Else '否则
edit(0).Enabled = True 使edit(0)可用.
edit(1).Enabled = True 使edit(1)可用.
End If
End Sub

判断Text1的长度是否为0

判断Text1中的字符长度是否为0

sellength 返回选定字符的数目,这段话的意思是,如果text1没有选定内容,edit(0),edit(1)不可用,否则可用

Edits 应该是一个按钮或者其它控件
点击的是时候判断 text1中的选定字符长度是否为0 如果是 则edit(0) 和 edit(1) 都不可用 否则可用

检测text1的字符长度然后作出edit(0),(1)可用或不可用