Webbrowser checkbox

var
  i:integer;
  t:OleVariant;
begin
  t := EmbeddedWB1.Document;
  for i := 0 to t.all.length - 1 do
  begin
    if t.all.item(i).tagName = ‘INPUT‘ then
    begin
      if t.all.item(i).type=‘checkbox‘ then
      begin
        if t.all.item(i).checked then
           ListBox1.Items.Add(t.all.item(i).name+‘选中‘)
        else
           ListBox1.Items.Add(t.all.item(i).name+‘未选中‘);
      end;
    end;
  end;

end;

 

 

http://www.cnblogs.com/linyawen/archive/2011/09/01/2161743.html

http://www.cnblogs.com/davyjiang/articles/1514044.html

http://www.caogenit.com/caogenxueyuan/bianchengyuyan/Csharp/1720.html

 

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。