重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'先建立一个bitmap对象,指向图像文件
创新互联建站主要从事成都做网站、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务东港,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575
Dim pic As Bitmap = New Bitmap("e:\1.jpg")
'定义一个图片框的graphics对象
Dim g As Graphics = PictureBox1.CreateGraphics()
'在图片框上绘图
g.DrawImage(pic, 0, 0, pic.Width, pic.Height)
'释放bitmap对象
pic.Dispose()
'现在即可对文件进行操作
我只知道第一个
利用webrower控件可以。
ctrl+t 在其中找到microsft internet control 控件打上勾点应用
然后在部件中就多了一个控件,拉控件到一个到窗体上
Private Sub Form_Load()
WebBrowser1.Navigate2 ""
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
On Error Resume Next
WebBrowser1.Document.body.Style.border = "0px" '隐藏边框
WebBrowser1.Document.body.Style.overflow = "hidden" '隐藏滚动条
WebBrowser1.Document.body.Style.margin = "0px" '修改网页边距为0
End Sub
思路应该是这样的 先用webbrowser 或者直接下载网页 读出html 正则找到img 然后找出src 用 picturebox 的load 去 载入这张图片 或者是用 webbrowser的那个document 方法找 不过之前做项目用这个出国错 之后就没敢再用