VB:制作浏览器——自己的IE
VB:制作浏览器——自己的IE
loadBegha下截操作开时触
发.
2DownloadComplele下载操作完成l终止
或失赋时触发=
3ogssch卸W~bB~scr控件跟踪
下盏操作的过程,并定甥触发此事件其语法
为:SubWcbB…r且h叭gc(ByVa]
Pmgm~ALongByVe]ProyesaMaxAs
L叩g)Pog?窖5变元是当前巳下截的鼓据息
量.PmyessMax变元是将要下载曲数据总量.
4.rjnechaTIge当阿文挡标瑶改变时触发
陈丁WebBr~r控件扑.程序还需要
十Label控件:Label!;一十C~oBox控件:
;一十StamsB~ 蝴t0l,甩来显示URL地址
控件:StatmB~l;十ProgecssS~r控件:Pro-
t自s丑盯l,用显示下裁进度(StaaJsBm控件
和Pmgm~Sar控件是AOAveX控件M?S0
WindowsCommonCoalrols50的成员,加人工
自己
编程入门
CombolText=hap://+Corn-
???w曲BIow?r1NahUmc啪L_n
的IE,
具箱的方法同WebB~r控件】,这些控件的属
性值都用缺省值
H下是程序
.?Exicit
Pri~ateSubF0nDJ()
MI”MyE~plomr”
Label1C”URL”
C蛐bo】=…
ComboITop=Lab~llHght
Combo1n=0
WebBmwserlTop:C~bolToF+C帅一
b0】He~ghl
WebBrow~r】Ln=0
F—Resizc
StatasB~lStyk=sb~Simp]e
nsmlZOrd~r
EndSub
PvivSubF—(
OnBGoToa
C蛐boLWidth=Foml1Widm—l00
w啪…】Width=Combo】Wid
webB…lght=]3c~mlHeigllI—
C~bolHei曲L一1000
n口tssBlTop=MeHeight—Status-
Bar】Hehi一明0
P?_BlLe=025?Stalus-
BaTlWidth
nD口r%sB盯】Width=075?MeWidth
一
250
a
EndSub
PriSubCombo]lickL)
转到指定网扯
WebBr~serINavigateCombo1nxl
EndSub
PrivateslIb(?Ib01J仲wn(KcyCodeAs
In’~egerSAs1otcger)
DhnjAsL舶
Dim…dAsBoo1~~
IfKeyCode:13Thcn
IfLcf~(CombolText7)o’ht~p://”
Tbcn
ElFor
ELse
existed=F
EndIf
Next
?NmeD
CAm~aolAddltcllfl(Com~0t1m
En4Ic
Endlf
EndSub
Pfiv咖SubWebBrows-
U)0蚰铭(】
下载开始时机悫栏显示HowLink-
In.”
SlamsBlSimpleText=NowLinkt
ing’’
EndSub
PfiwSubW曲B一}
1jnl呻dc啪日桃()
‘下载完成时状态栏显示u吐一
ished
SmB1SimpleText=UnkRn_
ished’.
n口tBlV0
EndSub
PrivateSubWebBm~-
d1_Pr.haTLgc(Byv|ProgressAs
1.e~ng,
ByVa]ProgressMasAsLoeg)
,下载进行时盛度荣变化
IfPcogressMax=0ThenEISub
ProgmssBerI.Max=ProgmssMax
Ifgso一1d
n口嘲0M”11lcD
ssB?1Value=P
E时If
EndSub
Priv?SubwclJi?m
(ByVatRnAsString)
Cmboln=WcbB
1L0cadOnURL
EndSub
(摘自’中硼靼耳且用站)
____?o?o……?……………?…_____…_______……………………
……__…_?
FliSubTime*_Mom日{)
If(1)=2)Thea
l_I’如果循环变量大于圈片的数量刷
变量赋为I
Else
…+I’否H循环蹙量加一
End?
Frm—R邶Pn1cLumPiz(i一1J,峨0,
Width,H~ghL0.0,sc日-ex(Pic(i—1)Width,
vbHimeufic,vbTwipsJ,ScaleY(Pic(i一1)
66瘟用戈革2001.4
~eighl,vbHiraeh~c,vbTwips1’在Fm~ua上
画图
ES
Fnn_Semp:
OlxlonExdldI
PrivateSubC~_
OK_
Cliok()
Mod2~atnCloseSCR
EndSub
Privat~SubFoam_Un]~d(Canoe]Ashtegerl
Mod~ainCloseSC~
EadSub
好[标签:快照]