vb里用webbrowser加载gif动画,白边框怎么去掉呀
如图,我用webbrowser加载本地的一个gif动画图,动画没问题,就是控件有白边框,看着难看呀,有什么办法能让他像imagebox那样,完全没有边框呢?如果这样不好弄...
如图,我用webbrowser加载本地的一个gif动画图,动画没问题,就是控件有白边框,看着难看呀,有什么办法能让他像imagebox那样,完全没有边框呢?
如果这样不好弄,那有什么办法能很好的加载动画呢?最好不要用flash,因为那还需要用flash做动画,而我又不太会flash,我只会用Photoshop做gif动画。 展开
如果这样不好弄,那有什么办法能很好的加载动画呢?最好不要用flash,因为那还需要用flash做动画,而我又不太会flash,我只会用Photoshop做gif动画。 展开
3个回答
展开全部
其实这种情况下gif动画是作为网页被载入的,因此那个白边框实际上就是网页的默认边框,所以只要按网页的处理方法来做就可以了:
第一种方法:
预先建立一个htm文件(程序运行中动态生成也可),内容如下:
<body topmargin=0 leftmargin=0><img src="e:\tmp\cd1.gif"></body>
里面的gif文件名改为你自己的。假定文件保存为123.htm,则程序中用webbrowser1直接打开这个文件即可:
WebBrowser1.Navigate App.Path & "\123.htm"
第二种方法:
不用建立文件,直接运行:
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.write "<body topmargin=0 leftmargin=0><img src='e:\tmp\cd1.gif'></body>"
WebBrowser1.Document.Close
本人推荐用第二种方法。
举一反三,其实任何用网页能够实现的效果,都可以用Webbrowser显示出来,比方说可以通过javascript代码把多张静态图片变成动画,等等。
第一种方法:
预先建立一个htm文件(程序运行中动态生成也可),内容如下:
<body topmargin=0 leftmargin=0><img src="e:\tmp\cd1.gif"></body>
里面的gif文件名改为你自己的。假定文件保存为123.htm,则程序中用webbrowser1直接打开这个文件即可:
WebBrowser1.Navigate App.Path & "\123.htm"
第二种方法:
不用建立文件,直接运行:
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.write "<body topmargin=0 leftmargin=0><img src='e:\tmp\cd1.gif'></body>"
WebBrowser1.Document.Close
本人推荐用第二种方法。
举一反三,其实任何用网页能够实现的效果,都可以用Webbrowser显示出来,比方说可以通过javascript代码把多张静态图片变成动画,等等。
更多追问追答
追问
书生你好,第二种方法好,我也参考别人的把网页的滚动条和边框都去掉了,现在剩下一个问题,是如何使窗体大小适应webbrowser大小。
请帮助http://zhidao.baidu.com/question/1238637122693212299.html?sort=6#answer-1796999802
非常感谢。
追答
Private Sub Form_Load()
Dim xx As Single, yy As Single
Image1.Move 0, 0
xx = Me.Width - Me.ScaleWidth
yy = Me.Height - Me.ScaleHeight
Me.Width = Image1.Width + xx
Me.Height = Image1.Height + yy
End Sub
展开全部
机智的用其他控件挡住
以前我就干过,因为是全屏动画,所以我就把控件做的比窗口大了点
如果不是全屏,可以用标签挡住,绝对看不出来的
以前我就干过,因为是全屏动画,所以我就把控件做的比窗口大了点
如果不是全屏,可以用标签挡住,绝对看不出来的
更多追问追答
追问
那用标签的话,位置是不是得一点一点的调呀,因为设计阶段看不到图片在webbrowser里的具体位置呀,,,,
追答
你图片不换的话这个方法是很好实现的,调几下就好,如果换图片的话只好收一下大神们的方法,也有可以去掉的,不过看起来都很复杂
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
那个没办法
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询