计划里面只有这一段。用于查找时，自动切换到 任意位置。
static sfrm = Nothing
Dim frm = Windows.forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.name = "Class108" AndAlso (sfrm Is Nothing OrElse sfrm.tostring <> frm.tostring) Then
frm.controls("MatchMode").Text = "任意位置"
sfrm = frm
End If
For Each c As Object In frm.Controls
output.Show(c.Name & " " & c.Gettype.Name)
Next
End If
Dim ftm = Windows.forms.Form.ActiveForm
If ftm IsNot Nothing Then
If ftm.name = "Class108" Then
Dim ContentFind As windows.Forms.ComboBox = ftm.controls("ContentFind")
removehandler ContentFind.Keydown, addressof textbox1_keydown
addhandler ContentFind.Keydown, addressof textbox1_keydown
End If
End If
加好友 
发短信
Post By：2017/11/4 22:42:00 [只看该作者]
此主题相关图片如下：微信截图_20171104224043.jpg