|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ連ｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
ParOn 2003/08/22(ｿｽｿｽ) 20:57:13
ｿｽRｿｽﾂゑｿｽｿｽｿｽListBoxｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽiTopIndexｿｽﾌ托ｿｽｿｽｿｽｿｽjｿｽ同趣ｿｽｿｽﾉ行ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽPosionｿｽｿｽgｿｽｿｽｿｽﾄ会ｿｽｿｽLｿｽﾌようｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ListBox1.TopIndex := ScrollBar1.Position;
ListBox2.TopIndex := ScrollBar1.Position;
ListBox3.TopIndex := ScrollBar1.Position;
ｿｽiｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽOnChangeｿｽﾅゑｿｽｿｽj
ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽPｿｽｿｽﾚのスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ搾ｿｽ
ListBox1ｿｽｿｽｿｽｿｽListBox3ｿｽﾜで擾ｿｽｿｽﾔにカｿｽ^ｿｽｿｽｿｽJｿｽ^ｿｽｿｽｿｽJｿｽ^ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽQｿｽｿｽﾚ以降ｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅは３ｿｽﾂとゑｿｽｿｽｿｽｿｽｿｽﾉスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽPｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆ擾ｿｽﾅはスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ListBoxｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽgｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ListBoxｿｽﾅのスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽOnChangeｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2003/08/22(ｿｽｿｽ) 21:32:03
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ暦ｿｽｿｽZｿｽIｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.ScrollBar1Change(Sender: TObject);
var
Value: integer;
begin
Value := ScrollBar1.Position;
// ｿｽ`ｿｽｿｽﾌ禁止
ListBox1.Perform(WM_SETREDRAW, 0, 0);
ListBox2.Perform(WM_SETREDRAW, 0, 0);
ListBox3.Perform(WM_SETREDRAW, 0, 0);
SendMessage(ListBox1.Handle, LB_SETTOPINDEX, Value, 0);
SendMessage(ListBox2.Handle, LB_SETTOPINDEX, Value, 0);
SendMessage(ListBox3.Handle, LB_SETTOPINDEX, Value, 0);
// ｿｽ`ｿｽｿｽﾌ具ｿｽｿｽｿｽ(ｿｽﾜゑｿｽｿｽ`ｿｽ謔ｵｿｽﾈゑｿｽ)
ListBox3.Perform(WM_SETREDRAW, 1, 0);
ListBox2.Perform(WM_SETREDRAW, 1, 0);
ListBox1.Perform(WM_SETREDRAW, 1, 0);
// ｿｽﾄ描ｿｽｿｽ
ListBox3.Invalidate;
ListBox2.Invalidate;
ListBox1.Invalidate;
end;
ｿｽﾉゑｿｽｿｽｿｽ 2003/08/22(ｿｽｿｽ) 21:34:58
ｿｽｿｽｿｽsｿｽﾅゑｿｽｿｽB
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾜで再描ｿｽ謔ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
# ｿｽﾅ鯉ｿｽﾜでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾍ茨ｿｽﾔ擾ｿｽﾌまゑｿｽ(ｿｽｿｽｿｽﾛは茨ｿｽﾔ会ｿｽ)ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ抵ｿｽｿｽﾗまゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2003/08/22(ｿｽｿｽ) 22:21:52
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ。
ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾉ搾ｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽﾆ簡単ｿｽﾈ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ScrollBarｿｽﾌ更ｿｽVｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTopIndexｿｽﾆ難ｿｽｿｽｿｽｿｽlｿｽﾅはダｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ場合ｿｽﾍ、GetScrollInfoｿｽﾅ範囲ゑｿｽ謫ｾｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
procedure TForm1.ScrollBar1Change(Sender: TObject);
var
Value: integer;
begin
Value := ScrollBar1.Position;
// ｿｽ`ｿｽｿｽﾌ禁止
ListBox1.Perform(WM_SETREDRAW, 0, 0);
ListBox2.Perform(WM_SETREDRAW, 0, 0);
ListBox3.Perform(WM_SETREDRAW, 0, 0);
//ｿｽlｿｽﾌ設抵ｿｽ
SendMessage(ListBox1.Handle, LB_SETTOPINDEX, Value, 0);
SendMessage(ListBox2.Handle, LB_SETTOPINDEX, Value, 0);
SendMessage(ListBox3.Handle, LB_SETTOPINDEX, Value, 0);
// ｿｽ`ｿｽｿｽﾌ具ｿｽｿｽｿｽ(ｿｽﾜゑｿｽｿｽ`ｿｽ謔ｵｿｽﾈゑｿｽ)
ListBox3.Perform(WM_SETREDRAW, 1, 0);
ListBox2.Perform(WM_SETREDRAW, 1, 0);
ListBox1.Perform(WM_SETREDRAW, 1, 0);
// ｿｽﾄ描ｿｽｿｽ(ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ再描ｿｽ謔ｳｿｽｿｽﾈゑｿｽ)
InvalidateRect(ListBox1.Handle, nil, TRUE);
InvalidateRect(ListBox2.Handle, nil, TRUE);
InvalidateRect(ListBox3.Handle, nil, TRUE);
// ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽXｿｽV
SetScrollPos(ListBox1.Handle, SB_VERT, Value, TRUE);
SetScrollPos(ListBox2.Handle, SB_VERT, Value, TRUE);
SetScrollPos(ListBox3.Handle, SB_VERT, Value, TRUE);
end;
ParOn 2003/08/22(ｿｽｿｽ) 22:50:41
ｿｽｿｽｿｽ[ｿｽLｿｽｿｽｿｽCｿｽﾉスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽI
ｿｽｿｽｿｽﾌようｿｽﾈ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾈとゑｿｽｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄまゑｿｽｿｽが・ｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾄ暦ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾏゑｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽgｿｽﾞのは会ｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽﾄ面費ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽAｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Halbow 2003/08/24(ｿｽｿｽ) 02:41:57
Halbow ｿｽﾅゑｿｽｿｽB
>ｿｽｿｽｿｽﾆ擾ｿｽﾅはスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
>ListBoxｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽgｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽ[ｿｽJｿｽｿｽｿｽtｿｽbｿｽNｿｽﾅ会ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽBｿｽVｿｽKｿｽﾅ以会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽRｿｽﾂゑｿｽ ListBox ｿｽﾌどのスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽ動ゑｿｽｿｽｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽﾌ難ｿｽﾂゑｿｽｿｽﾇ撰ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽ[ｿｽﾉゑｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉは対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽiｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽj
type
TForm1 = class(TForm)
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
public
procedure ProcessMessage(hWindow:HWND;Msg:UINT;wParam:WPARAM;lParam:LPARAM);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var
Hook: HHOOK;
function CallWndRetProc(code:integer;wparam:WPARAM;lparam:LPARAM):LRESULT;stdcall;
var
pCWPR:PCWPRetStruct;
begin
if (code < 0) then begin
result := CallNextHookEx(Hook,code,wparam,lparam);
exit;
end;
if (Code = HC_ACTION) then begin
pCWPR := PCWPRetStruct(lParam);
Form1.ProcessMessage(pCWPR^.hwnd,pCWPR^.message,pCWPR^.wParam,pCWPR^.lParam);
end;
result := CallNextHookEx(Hook,code,wparam,lparam);
end;
procedure TForm1.ProcessMessage(hWindow:HWND;Msg:UINT;wParam:WPARAM;lParam:LPARAM);
begin
if Msg <> WM_VSCROLL then exit;
if hWindow = ListBox1.Handle then begin
ListBox2.Perform(Msg,wParam,lparam);
ListBox3.Perform(Msg,wParam,lparam);
end else
if hWindow = ListBox2.Handle then begin
ListBox1.Perform(Msg,wParam,lparam);
ListBox3.Perform(Msg,wParam,lparam);
end else
if hWindow = ListBox3.Handle then begin
ListBox1.Perform(Msg,wParam,lparam);
ListBox2.Perform(Msg,wParam,lparam);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Hook := SetWindowsHookEx(WH_CALLWNDPROCRET,CallWndRetProc,0,GetCurrentThreadID);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnHookWindowsHookEx(Hook);
end;
