|
ｿｽ@ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ難ｿｽｿｽﾍ待ゑｿｽ
|
ｿｽ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
ｿｽｿｽｿｽｿｽﾌゑｿｽ 2006/08/26(ｿｽy) 21:24:57
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽ髀茨ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾉ必ｿｽvｿｽﾈパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽﾊのフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽZｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ対ゑｿｽｿｽAForm1ｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽForm2ｿｽｿｽｿｽNｿｽｿｽｿｽｿｽ
Form2ｿｽﾌエｿｽfｿｽBｿｽbｿｽgｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAOKｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBForm2ｿｽｿｽOKｿｽ{ｿｽ^ｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽｿｽZｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽZｿｽｿｽsｿｽｿｽｿｽ鼾ｿｽｿｽzｿｽ閧ｵｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽForm1ｿｽﾅ托ｿｽｿｽｿｽｿｽZｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽForm2ｿｽｿｽｿｽｿｽﾌパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ難ｿｽｿｽﾍゑｿｽﾒゑｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽmｿｽbｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽHｿｽHｿｽH 2006/08/26(ｿｽy) 22:19:26
uses
Unit2;
procedure TForm1.Button1Click(Sender
var
frm2: TForm2;
begin
frm2 := TForm2.Create(Self);
if frm2.ShowModal = mrOK then begin
//ｿｽﾈんか汁
end;
frm2.Free;
//ｿｽｿｽｿｽｿｽﾏゑｿｽfrm2.Release; ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
end;
ｿｽCｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾝ趣ｿｽｿｽiｿｽｿｽｿｽﾟ形ｿｽiｿｽｿｽ
ｿｽｿｽｿｽｿｽ 2006/08/27(ｿｽｿｽ) 00:13:14
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
FormｿｽQｿｽﾌクｿｽｿｽｿｽGｿｽCｿｽgｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌ、Selfｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊゑｿｽｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅてゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾈのでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗてゑｿｽｿｽｿｽﾎゑｿｽﾜゑｿｽ
ｿｽﾆりいｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾆ報告まで。
ｿｽｿｽH 2006/08/28(ｿｽｿｽ) 08:21:15
Self ｿｽﾍ趣ｿｽｿｽｿｽｿｽｿｽｿｽg
Access(VBA?)ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽuMeｿｽvｿｽﾝゑｿｽｿｽｿｽｿｽﾈゑｿｽﾌでゑｿｽｿｽB
> procedure TForm1.Button1Click(Sender
ｿｽｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽﾆ、ｿｽuTForm1ｿｽvｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾊの関撰ｿｽ
procedure Hogehogeｿｽ`ｿｽ`
ｿｽﾅは、SelfｿｽｿｽgｿｽpｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽH 2006/08/28(ｿｽｿｽ) 08:24:41
ｿｽ竭ｫ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
procedure Hogehoge:Boolean;
var
frm2: TForm2;
begin
frm2 := TForm2.Create(nil);
//ｿｽﾜゑｿｽｿｽｿｽ
//frm2 := TForm2.Create(Application.Mainform);
try
Result := frm2.ShowModal = mrOK;
finally
frm2.Free;
end;
end;
ｿｽｿｽｿｽｿｽﾌゑｿｽ 2006/08/28(ｿｽｿｽ) 21:29:04
ｿｽｿｽHｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
ｿｽﾈにぶゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽｿｽﾌで。ｿｽBShowModalｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾆわかｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽﾈゑｿｽﾆなゑｿｽｿｽかｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ@Form2ｿｽｿｽｿｽｿｽ[ｿｽhｿｽﾂゑｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、Form2ｿｽﾉ配ｿｽuｿｽｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽﾉクｿｽｿｽｿｽbｿｽNｿｽCｿｽxｿｽｿｽｿｽgｿｽﾉ必ｿｽvｿｽﾈ擾ｿｽｿｽｿｽｿｽ闕橸ｿｽﾞ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAModalResultｿｽｿｽmrOKｿｽﾆゑｿｽｿｽﾄ、ｿｽｿｽｿｽ[ｿｽhｿｽtｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽAForm2ｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽしｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ@Selfｿｽﾌ意厄ｿｽｿｽﾍなゑｿｽﾆなゑｿｽｿｽかｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽBｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾈ。ｿｽB
ｿｽｿｽｿｽﾈみにゑｿｽHｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾌようｿｽｿｽForm2.Create(nil)ｿｽﾆゑｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾍでまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽAForm2ｿｽﾌオｿｽuｿｽWｿｽGｿｽNｿｽgｿｽﾉアｿｽNｿｽZｿｽXｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽHｿｽHｿｽｿｽﾔでゑｿｽｿｽB
Form2.Create(nil)ｿｽﾌ鯉ｿｽｿｽForm2.Label1.Caption :='test';ｿｽﾆゑｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆは、ｿｽ鞫懶ｿｽｿｽﾇみ搾ｿｽｿｽﾝ、ｿｽｿｽｿｽﾌ画像ｿｽｿｽQｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
2ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽOｿｽﾉ、Form2ｿｽﾉヒｿｽXｿｽgｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽAｿｽｿｽｿｽﾌヒｿｽXｿｽgｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ2ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽ閾値ｿｽｿｽｿｽｿｽ閧ｵｿｽﾄゑｿｽ閧ｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽH 2006/08/28(ｿｽｿｽ) 22:18:18
> ｿｽ@Form2ｿｽｿｽｿｽｿｽ[ｿｽhｿｽﾂゑｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、(ｿｽｿｽ) Form2ｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
> Form2ｿｽﾌオｿｽuｿｽWｿｽGｿｽNｿｽgｿｽﾉアｿｽNｿｽZｿｽXｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽHｿｽH
Form2.Create(nil)
ｿｽｿｽ
TForm2.Create(nil)
ｿｽﾍ違うｿｽｿｽB
var
//ｿｽﾏ撰ｿｽ form2 ｿｽｿｽ ｿｽ^ｿｽｿｽ TForm2
form2 :TForm2;
begin
//form2ｿｽﾍ、TForm2ｿｽﾆゑｿｽｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽgｿｽｿｽｿｽ髀ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
form2 := TForm2.Create(nil);
//ｿｽRｿｽｿｽｿｽﾈゑｿｽAｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽH
form2.Label1.Caption :='test';
integer ｿｽｿｽ String ｿｽﾆ違いｿｽAｿｽ骭ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽﾊ擾ｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽNｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽB
ｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆはとゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾍ、ｿｽﾊスｿｽｿｽｿｽｿｽｿｽｿｽﾄてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ鞫懶ｿｽｿｽｿｽｿｽｿｽﾉは疎ｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽm(v_v)m
ｿｽvｿｽｿｽｿｽR 2006/08/28(ｿｽｿｽ) 23:26:02
ｿｽfｿｽlｿｽｿｽｿｽﾛゑｿｽｿｽyｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽﾈり厳ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽﾚゑｿｽｿｽﾄまゑｿｽｿｽBｿｽ‾ｿｽNｿｽVｿｽBｿｽﾍゑｿｽｿｽｿｽLｿｽｿｽｿｽﾉなりすｿｽｿｽｿｽﾄるけｿｽﾇ。
http://ww21.kir.jp/rrs/sgm/
ｿｽｿｽｿｽｿｽﾌゑｿｽ 2006/08/29(ｿｽｿｽ) 16:18:18
ｿｽｿｽHｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌは、ｿｽｿｽｿｽﾌ趣ｿｽｿｽ竄ｪｿｽｿｽｿｽﾜゑｿｽｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽMｿｽｿｽｿｽﾈゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆの具ｿｽﾌ暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽ謔｢ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽiｿｽOｿｽOｿｽGｿｽ@ｿｽｿｽｿｽfｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌゑｿｽ 2006/08/29(ｿｽｿｽ) 16:19:01
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ忘ｿｽｿｽﾄまゑｿｽｿｽｿｽ
