关于字符串比较的问题？

Question

先要TreeView1.Checked = True
然后TreeView1.Nodes(1).Checked = True   才起作用。

Answer 1

用Instr()函数可以解决问题。
      tmpString = ";a01;"
      nCkqx = ";01;02;03;04;05"
'      Mycheck = tmpString Like "%" & nCkqx & "%"
      Mycheck = InStr(nCkqx, tmpString) > 0  '<===============
      If Mycheck = True Then
         TreeView1.Nodes(1).Checked = True
      Else
         TreeView1.Nodes(1).Checked = False
      End If

Answer 2

TreeView1.Checked = True
根本无法运行啊，出错。是不是打错了。只有TreeView1.Checkboxs=True，但加了也没用！

Answer 3

不好意思，是写错了。试一试下面的代码：
Private Sub Form_Load()
  TreeView1.Nodes.Add , , , "111111111111"
  TreeView1.Nodes.Add , , , "222222222222"
  TreeView1.Nodes.Add , , , "33333333333333"
  TreeView1.Checkboxes = True
  TreeView1.Nodes(2).Checked = True
End Sub