vb控件WebBrowser关于网页中的onfocus的问题

Question

<INPUT class=text-amount 
      id=goods_num:b96eb3f8cdb46331975864066c9a9514 
      
      maxLength=6 size=4 value=99999 
      name=goods_num:b96eb3f8cdb46331975864066c9a9514>网页这个文本框 如何选中呢， 
就是获得焦点吧~~哎网上没找到资料，望大侠指点
代码
Dim vDoc, vTag
Dim j  As Integer
Set vDoc = WebBrowser1.Document
For j = 0 To vDoc.All.length - 1
  If UCase(vDoc.All(j).tagName) = "INPUT" Then
    Set vTag = vDoc.All(j)
  If vTag.MaxLength = "6" And vTag.Size = "4" Then vTag.SetFocus                            
End If
Next j
End Sub
这样没反应

Answer 1

晕死里面怎么掉了一句
<INPUT class=text-amount 
      id=goods_num:b96eb3f8cdb46331975864066c9a9514 
      onfocus="whenChangeGoodsNum('b96eb3f8cdb46331975864066c9a9514')" 
      maxLength=6 size=4 value=99999 
      name=goods_num:b96eb3f8cdb46331975864066c9a9514> 网页这个文本框 如何选中呢， 
就是获得焦点吧~~哎网上没找到资料，望大侠指点 
代码 
Dim vDoc, vTag 
Dim j  As Integer 
Set vDoc = WebBrowser1.Document 
For j = 0 To vDoc.All.length - 1 
  If UCase(vDoc.All(j).tagName) = "INPUT" Then 
    Set vTag = vDoc.All(j) 
  If vTag.MaxLength = "6" And vTag.Size = "4" Then vTag.SetFocus                             
End If 
Next j 
End Sub 
这样没反应