|
ｿｽ@ｿｽｿｽWebBrowserｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ蛯ｫｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾞにゑｿｽ 2008/05/08(ｿｽｿｽ) 16:52:33
WebBrowserｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾅテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽﾌ大きｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽiｿｽYｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽj
ｿｽﾜゑｿｽｿｽｿｽ 2008/05/08(ｿｽｿｽ) 21:02:49
ｿｽｿｽｿｽｿｽH
http://hiderin.air-nifty.com/delphi/2007/09/index.html
ｿｽﾞにゑｿｽ 2008/05/08(ｿｽｿｽ) 21:31:53
ｿｽﾜゑｿｽｿｽﾉ、ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽQｿｽlｿｽﾉつゑｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽﾞにゑｿｽ 2008/05/10(ｿｽy) 19:51:24
ｿｽPｿｽｿｽｿｽﾉ、ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆに、ｿｽTｿｽCｿｽYｿｽPｿｽﾆサｿｽCｿｽYｿｽSｿｽｿｽﾘゑｿｽﾖゑｿｽｿｽ謔､ｿｽﾆ、
ｿｽｿｽｿｽﾌようｿｽﾉつゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAExecWBｿｽﾌ托ｿｽｿｽdｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽiｿｽﾈゑｿｽｿｽAChrSizeｿｽｿｽIntegerｿｽﾅゑｿｽｿｽj
------------------------------------------------------
procedure TForm1.ChangeChrSizeClick(Sender: TObject);
begin
if CharSize = 1 then
begin
CharSize := 4;
end
else
begin
CharSize := 1;
end;
WebBrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,CharSize,EmptyParam);
end;
-----------------------------------------
ｿｽﾜゑｿｽｿｽｿｽ 2008/05/10(ｿｽy) 20:15:27
ｿｽOｿｽAｿｽｿｽｿｽｿｽﾈので難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで参ｿｽlｿｽﾜでに。
ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
procedure SetFontSize(Size: Integer);
var
A, B: OLEVariant;
begin
A := Size;
Form1.WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, A, B);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetFontSize(3);
end;
ｿｽﾈにはゑｿｽｿｽﾄゑｿｽｿｽｿｽ 2008/05/10(ｿｽy) 20:18:07
IDEｿｽﾌエｿｽfｿｽBｿｽ^ｿｽｿｽｿｽ ExecWB ｿｽｿｽEｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄ、ｿｽuｿｽｿｽ`ｿｽﾌ鯉ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽB
ｿｽﾞにゑｿｽ 2008/05/10(ｿｽy) 21:32:06
ｿｽﾜゑｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾜゑｿｽｿｽTｿｽCｿｽYｿｽｿｽｿｽﾏゑｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈにはゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽ`ｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ黷ｩｿｽｿｽﾌ参ｿｽlｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
