在vb中如何实现多媒体的效果啊,请进来看看啊

时间:2021-03-07 20:34:39
我现在要用vb做一个程序来用网业实现多媒体的效果,那就是中间一个区域比如说是780*585,这个区域是用来显示网业内容的,而四周都是黑的,请问这用webbrowser如何实现,还需要什么控件?谢谢!

8 个解决方案

#1


怎么没有人?

#2


用webbrowser控件就可以了
具体做法如下:
在FORM里加入timer,commandbutton,text
private sub command1_click()
webbrowser1.navigate http://www.163.com/
timer1.enabled=true
end sub

private sub timer1_timer()
dim doc,objhtml as object
dim i as integer
dim strhtml as string

if not webbrowser1.busy then
set doc=webbrowser1.document
i=0
set objhtml=doc.body.createtextrange()
if not isnull(objhtml) then
text1.text=objhtml.htmltext
end if
timer1.enabled=false
end if
end sub
你把text控件调整为你要的那个区域的大小就OK拉。

#3


Up

#4


那webbrowser控件放在哪里,你怎么没有加进去啊?

#5


Anthorny(浪子) ( 
那webbrowser控件放在哪里,你怎么没有加进去啊?

#6


怎么没有人哦

#7


部件-->>Microsoft Internet Control

#8


不难哦

#1


怎么没有人?

#2


用webbrowser控件就可以了
具体做法如下:
在FORM里加入timer,commandbutton,text
private sub command1_click()
webbrowser1.navigate http://www.163.com/
timer1.enabled=true
end sub

private sub timer1_timer()
dim doc,objhtml as object
dim i as integer
dim strhtml as string

if not webbrowser1.busy then
set doc=webbrowser1.document
i=0
set objhtml=doc.body.createtextrange()
if not isnull(objhtml) then
text1.text=objhtml.htmltext
end if
timer1.enabled=false
end if
end sub
你把text控件调整为你要的那个区域的大小就OK拉。

#3


Up

#4


那webbrowser控件放在哪里,你怎么没有加进去啊?

#5


Anthorny(浪子) ( 
那webbrowser控件放在哪里,你怎么没有加进去啊?

#6


怎么没有人哦

#7


部件-->>Microsoft Internet Control

#8


不难哦