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 …
UI短手或者GDI+用烦的童鞋可以借用WebBrowser打造漂亮的程序界面,只需要下载一个好看点的html代码就够了. 引用: Microsoft Html Object Library 部件: Microsoft Internet Controls 这里以一个简单的登陆界面作为示例,实现代码: Private WithEvents HtmlDocument As MSHTML.HtmlDocument Private WithEvents HtmlElement As MSHTML.HTML…