| A_n_d_r_e_i |
20.05.2010 01:38 |
вывод картинки в форму (визуал бейсик 6)
в CommandButton тычем этот код
Код:
Dim O As Object
Set O = WebBrowser1.Document.body.createControlRange()
Call O.Add(WebBrowser1.Document.All("qwe1"))
Call O.execCommand("Copy")
Set Picture1.Picture = Clipboard.GetData
где qwe1 - name картинки в хтмл
на форме:
PictureBox
Webbrowser
CommandButton |
