简单问题

Question

问题一，我想问一下就是一篇文章中要查找某个词语，这段代码怎么写？
问题二，关于菜单的制作，如何使菜单灰化，又用什么代码使菜单解除灰化？求代码？

Answer 1

一、把这篇文章读文件赋给一个字符串变量，然后再字符串中查找你要查找的东西
二、mnuX.Visible=False '灰化
   mnuX.Visible=True '解除

Answer 2

1. instr
2. menu.enable=false

Answer 3

问题一：一点补充！就是是一个viewtree我想在tree的接点中上查找一个含有字如“工”字的接点，怎么写查找语句

Answer 4

这要看你VIEWTREE里面KEY值怎么设了,不过一定会用到下面的代码:
Dim Str as String
Dim I as Integer
Str="1234567890"
For I=1 to len(Str)
    If Mid(Str,I,1)="3" then   如果要找3个字的,那就把1改成3就行了
        Msgbox "找到了"
    End If
Next i

Answer 5

If cboFind.Text = "员工姓名" Then
   For i = 1 To frmMain.TreeView1.Nodes.count
   
   For j = 1 To Len(Str(Mid(frmMain.TreeView1.Nodes.Item(i).Text, 6)))
   For k = 1 To 3
   If Mid(Str(Mid(frmMain.TreeView1.Nodes.Item(i).Text, 6)), i, k) = txtFind.Text Then
        frmMain.TreeView1.Nodes(i).Selected = True '选择对象。
        findflag = True
        Unload Me
        Exit For
    End If
    Next k
    
    Next j
  Next iEnd If
请帮我看看这一段怎么改啊？