|
ｿｽｿｽVisual Basic .NETｿｽfｿｽｿｽｿｽｿｽ
|
ｿｽｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ選ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽﾔ搾ｿｽｿｽｿｽﾔゑｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽﾌゑｿｽ 2008/12/18(ｿｽｿｽ) 14:41:38
VB2008ｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽAVB6ｿｽﾅつゑｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBListboxｿｽﾅ包ｿｽｿｽｿｽｿｽsｿｽIｿｽｿｽﾅゑｿｽｿｽｿｽﾝ抵ｿｽﾅ、ｿｽｿｽﾂ以擾ｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ、VB6ｿｽﾅゑｿｽListindexｿｽﾅ取得ｿｽﾅゑｿｽｿｽｿｽｿｽsｿｽﾔ搾ｿｽｿｽｿｽｿｽAｿｽVｿｽｿｽｿｽｿｽVBｿｽﾅは先頭ｿｽﾌ選ｿｽｿｽsｿｽｿｽﾔゑｿｽｿｽlｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBVBnetｿｽﾅゑｿｽｿｽｿｽｿｽｿｽlｿｽﾈ鯉ｿｽｿｽﾛでゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽ
YuO 2008/12/18(ｿｽｿｽ) 15:40:26
ListBox.SelectedIndicesｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
http://msdn.microsoft.com/ja-jp/library/system.windows.forms.listbox.selectedindices.aspx
ｿｽAｿｽNｿｽA 2008/12/18(ｿｽｿｽ) 15:47:21
ｿｽAｿｽNｿｽAｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾇゑｿｽｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽListBoxｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽSelectionModeｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽMultiExtendedｿｽｿｽMultiSimpleｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉ設定しｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
MultiSimpleｿｽﾌ場合ｿｽﾍマｿｽEｿｽXｿｽｿｽSpaceｿｽLｿｽ[ｿｽﾉゑｿｽ髟｡ｿｽｿｽｿｽsｿｽﾌ選ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾅ鯉ｿｽｿｽﾘゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉゑｿｽ
ListBoxｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ
ButtonｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ
LabelｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ
ｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽｿｽAListBoxｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽItemsｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉは奇ｿｽｿｽｿｽItemｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾝ定さｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌとゑｿｽｿｽﾜゑｿｽｿｽB
ButtonｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽClickｿｽCｿｽxｿｽｿｽｿｽgｿｽﾉ以会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽB
ForiAsInteger=0ToListBox1.SelectedItems.Count-1
Label1.Text+=Me.ListBox1.SelectedItems(i)
Next
ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ逡｡ｿｽｿｽｿｽIｿｽｿｽﾅ確ｿｽFｿｽｿｽｿｽﾄみまゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ搾ｿｽｿｽﾚゑｿｽLabelｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽAｿｽNｿｽA 2008/12/18(ｿｽｿｽ) 15:53:33
YuOｿｽｿｽｿｽｿｽﾌ邪厄ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾅは行ｿｽﾔ搾ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾌ回答は擾ｿｽｿｽｿｽｿｽIｿｽｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽBｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾈので、
ForiAsInteger=0ToListBox1.SelectedIndices.Count-1
Label1.Text+=Me.ListBox1.SelectedIndices(i).toString()+","
Next
ｿｽﾆなろうｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾌゑｿｽ 2008/12/18(ｿｽｿｽ) 16:57:44
YuOｿｽlｿｽAｿｽAｿｽNｿｽAｿｽlｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽｿｽﾌは、ｿｽｿｽｿｽｿｽｿｽﾝ包ｿｽｿｽｿｽｿｽIｿｽｿｽﾍ出ｿｽｿｽｿｽｿｽｿｽﾔでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ茨ｿｽﾂ目の選ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽSelectedItems.Countｿｽﾈどで取得ｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽﾂ選ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾔでゑｿｽｿｽｿｽﾉ別の行ｿｽｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽｿｽﾆにの、ｿｽIｿｽｿｽｿｽｿｽｿｽ
ｿｽNｿｽｿｽｿｽbｿｽNｿｽsｿｽﾌ行ｿｽﾔ搾ｿｽｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、ｿｽPｿｽOｿｽsｿｽｿｽｿｽ轤｢ｿｽﾌｿｽｿｽXｿｽgｿｽﾅ、ｿｽRｿｽsｿｽﾚにゑｿｽｿｽﾅに選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、
ｿｽｿｽｿｽｿｽﾉ５ｿｽsｿｽﾚゑｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽRｿｽsｿｽﾚとゑｿｽｿｽｿｽｿｽﾔ難ｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄは、ｿｽｿｽｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾌ５ｿｽsｿｽﾚとゑｿｽｿｽｿｽｿｽﾔ難ｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
Label1.Text+=Me.ListBox1.SelectedItems(i)ｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ
iｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ForiAsInteger=0ToListBox1.SelectedIndices.Count-1
Label1.Text+=Me.ListBox1.SelectedIndices(i).toString()+","
Next
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽﾉ上かｿｽ迴ｿｽﾉは返ゑｿｽｿｽﾄゑｿｽ轤ｦｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ取得ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽBｿｽｿｽｿｽｿｽ6ｿｽﾅゑｿｽListindexｿｽﾅ、ｿｽ謫ｾｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽNETｿｽﾈ降ｿｽｿｽｿｽﾌようｿｽﾈのゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽﾈ擾ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾌゑｿｽ 2008/12/18(ｿｽｿｽ) 17:03:53
ｿｽｿｽｿｽﾝまゑｿｽｿｽ文法ｿｽｿｽｿｽﾏでゑｿｽｿｽｿｽｿｽBｿｽ除ｿｽｿｽｿｽﾈゑｿｽｿｽﾌで再度ｿｽｿｽｿｽeｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽ
YuOｿｽlｿｽAｿｽAｿｽNｿｽAｿｽlｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾍ包ｿｽｿｽｿｽｿｽIｿｽｿｽﾍ出ｿｽｿｽｿｽｿｽｿｽﾔでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽｿｽﾌは、ｿｽｿｽﾂ目の選ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽSelectedItems.Countｿｽﾈどで取得ｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽﾂ選ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾔでゑｿｽｿｽｿｽﾉ別の行ｿｽｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽsｿｽﾌ行ｿｽﾔ搾ｿｽｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽ
ｿｽ痰ｦｿｽﾎ、ｿｽPｿｽOｿｽsｿｽｿｽｿｽ轤｢ｿｽﾌｿｽｿｽXｿｽgｿｽﾅ、ｿｽRｿｽsｿｽﾚにゑｿｽｿｽﾅに選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、
ｿｽｿｽｿｽｿｽﾉ５ｿｽsｿｽﾚゑｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽﾉゑｿｽｿｽｿｽRｿｽsｿｽﾚとゑｿｽｿｽｿｽｿｽﾔ難ｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄは、ｿｽｿｽｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾌ５ｿｽsｿｽﾚとゑｿｽｿｽｿｽｿｽﾔ難ｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
Label1.Text+=Me.ListBox1.SelectedItems(i)ｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ
iｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ForiAsInteger=0ToListBox1.SelectedIndices.Count-1
Label1.Text+=Me.ListBox1.SelectedIndices(i).toString()+","
Next
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽﾉ上かｿｽ迴ｿｽﾉは返ゑｿｽｿｽﾄゑｿｽ轤ｦｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ取得ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽBｿｽｿｽｿｽｿｽ6ｿｽﾅゑｿｽListindexｿｽﾅ、ｿｽ謫ｾｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽNETｿｽﾈ降ｿｽｿｽｿｽﾌようｿｽﾈのゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽﾈ擾ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ范ｴｿｽ@ 2008/12/18(ｿｽｿｽ) 21:11:51
ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽeｿｽﾉ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閭鯉ｿｽXｿｽｿｽｿｽﾂゑｿｽｿｽいｿｽｿｽﾔでゑｿｽｿｽB
>ｿｽ痰ｦｿｽﾎ、ｿｽPｿｽOｿｽsｿｽｿｽｿｽ轤｢ｿｽﾌｿｽｿｽXｿｽgｿｽﾅ、ｿｽRｿｽsｿｽﾚにゑｿｽｿｽﾅに選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、
>ｿｽｿｽｿｽｿｽﾉ５ｿｽsｿｽﾚゑｿｽ}ｿｽEｿｽXｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽﾉゑｿｽｿｽｿｽRｿｽsｿｽﾚとゑｿｽｿｽｿｽｿｽﾔ難ｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>...
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ取得ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔは３ｿｽs->ｿｽTｿｽsｿｽﾚなので最擾ｿｽｿｽﾉ３ｿｽsｿｽﾚゑｿｽｿｽﾔゑｿｽｿｽﾄ暦ｿｽｿｽﾄ良ゑｿｽｿｽﾌでは。
ｿｽｿｽｿｽｿｽｿｽVB6ｿｽｿｽListindexｿｽﾍ鯉ｿｽｿｽﾝ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽsｿｽｿｽｿｽﾔゑｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾅ良ゑｿｽｿｽｿｽﾎ、
ｿｽIｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾝ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽsｿｽｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽB
ｿｽﾌ茨ｿｽsｿｽﾅ済むと思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾌゑｿｽ 2008/12/18(ｿｽｿｽ) 22:59:13
ｿｽ范ｴｿｽ@ｿｽlｿｽ@ｿｽｿｽｿｽﾜゑｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽ@ｿｽｿｽﾌ設定だｿｽﾆ擾ｿｽｿｽﾔゑｿｽｿｽ轤｢ｿｽｿｽｿｽﾎ３ｿｽ@ｿｽTｿｽﾆつづゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽlｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽﾌは選ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ取得ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで 3ｿｽsｿｽﾚｿｽ5ｿｽsｿｽﾚの趣ｿｽｿｽｿｽ4ｿｽsｿｽﾚゑｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽ4ｿｽsｿｽﾚと返ゑｿｽｿｽﾄほゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽBｿｽﾈ単ｿｽﾉゑｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾔで ｿｽVｿｽｿｽｿｽﾉマｿｽEｿｽXｿｽﾅ別の行ｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ ｿｽｿｽｿｽﾌ搾ｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽsｿｽﾌ行ｿｽﾔ搾ｿｽｿｽｿｽﾔゑｿｽｿｽﾄほゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽBｿｽｿｽﾌ選ｿｽｿｽｿｽｿｽﾅクｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ ｿｽｿｽｿｽﾗて茨ｿｽﾔ先頭ｿｽｿｽ3ｿｽsｿｽﾚゑｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽﾌで VB6ｿｽﾌとゑｿｽｿｽｿｽListindexｿｽﾅはクｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌ行ｿｽﾔ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ返ゑｿｽｿｽﾄゑｿｽｿｽ黷ｽｿｽｿｽﾅゑｿｽｿｽｿｽOｿｽO
ｿｽﾈ擾ｿｽ
YuO 2008/12/19(ｿｽｿｽ) 01:54:43
ｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
List(OfInteger)ｿｽﾉでゑｿｽOｿｽｿｽﾌ選ｿｽｿｽ況ゑｿｽﾛ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄ，
ListBox1.SelectedIndices.OfType(OfInteger).Except(prevList)'prevListｿｽｿｽｿｽOｿｽｿｽﾌ選ｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽﾎ趣ｿｽｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾌゑｿｽ 2008/12/19(ｿｽｿｽ) 08:52:20
YuOｿｽlｿｽｿｽｿｽﾑゑｿｽｿｽﾑゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾏゑｿｽOｿｽﾌ擾ｿｽｿｽｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾉ選ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ費ｿｽrｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌなゑｿｽｿｽｿｽﾌを判定しｿｽﾄ行ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
VB6ｿｽｿｽListindexｿｽﾌ様ｿｽﾈ便暦ｿｽｿｽﾈのゑｿｽｿｽｿｽｿｽｿｽﾎと思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽANETｿｽﾈゑｿｽ2008ｿｽﾈゑｿｽﾉなゑｿｽｿｽﾄ、VB6ｿｽﾅ使ｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽAｿｽ¥ｿｽｿｽｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽｿｽﾈり初ｿｽSｿｽﾒの僕ｿｽﾉはゑｿｽｿｽﾈゑｿｽしｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ@ｿｽｿｽｿｽOｿｽO
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ListBox1.SelectedIndices.OfType(OfInteger).Except(prevList)
ｿｽﾅ茨ｿｽxｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽｿｽﾌ包ｿｽｿｽﾍの意厄ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅまゑｿｽｿｽ告ゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
ｿｽﾈ擾ｿｽ
ｿｽ范ｴｿｽ@ 2008/12/19(ｿｽｿｽ) 08:56:02
ListBoxｿｽｿｽSelectionModeｿｽﾅ費ｿｽｿｽｿｽｿｽﾉ違うｿｽｿｽｿｽｿｽｿｽﾇはゴｿｽｿｽｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽｿｽ
VB6ｿｽﾆ難ｿｽｿｽｿｽｿｽﾅ良ゑｿｽｿｽｿｽｿｽIfｿｽﾈ会ｿｽｿｽﾍ厄ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾌまゑｿｽClickIndexｿｽｿｽﾔゑｿｽｿｽﾎ良ゑｿｽｿｽB
PrivateSubListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,_
ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChanged
Console.WriteLine(GetListindex(Me,ListBox1).ToString())
EndSub
'ｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾎ行ｿｽﾔ搾ｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ-1ｿｽｿｽﾔゑｿｽｿｽﾖ撰ｿｽ
PublicSharedFunctionGetListindex(ByValFormAsForm,_
ByValListBoxAsListBox)AsInteger
'ｿｽｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ会ｿｽﾊ擾ｿｽｿｽYｿｽﾊ置
DimyAsInteger=Form.Top+ListBox.Top+SystemInformation.CaptionHeight
'ｿｽｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ選ｿｽｿｽItemｿｽﾌ位置
'ｿｽiｿｽ}ｿｽEｿｽXｿｽｿｽYｿｽﾊ置ｿｽ@-ｿｽ@ListBoxｿｽﾌ位置ｿｽjｿｽ@¥ｿｽ@Itemｿｽﾌ搾ｿｽｿｽｿｽｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽZ)
'ListBox.ItemHeight/2ｿｽﾍ四ｿｽﾌ五難ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ@DimClickIndexAsInteger=(Control.MousePosition.Y-_
y+ListBox.ItemHeight/2)¥ListBox.ItemHeight-1
'ItemｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽ黷｢ｿｽ驍ｩｿｽﾛゑｿｽ
IfListBox.SelectedIndices.IndexOf(ClickIndex)>=0Then
ReturnClickIndex'ｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾎ行ｿｽﾔ搾ｿｽｿｽｿｽ
Else
Return-1'ｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎ０ｿｽｿｽﾔゑｿｽ
EndIf
EndFunction
ｿｽﾌゑｿｽ 2008/12/19(ｿｽｿｽ) 09:15:42
ｿｽ范ｴｿｽ@ｿｽlｿｽ@ｿｽざｿｽざｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾄどゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾌは、ｿｽｿｽﾊ擾ｿｽﾌマｿｽEｿｽXｿｽﾌ位置ｿｽｿｽｿｽ迢ｿｽﾟゑｿｽｿｽｿｽ@ｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌようｿｽﾈ考ｿｽｿｽｿｽｿｽｿｽﾍまゑｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽOｿｽO
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅゑｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽOｿｽO
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/12/19(ｿｽｿｽ) 10:38:01
>ｿｽ}ｿｽEｿｽXｿｽﾌ位置ｿｽｿｽｿｽ迢ｿｽﾟゑｿｽｿｽｿｽ@
ｿｽｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ選ｿｽｿｽﾍキｿｽ[ｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、
SelectedIndexChangedｿｽｿｽﾅマｿｽEｿｽXｿｽｿｽｿｽWｿｽﾉ暦ｿｽｿｽｿｽﾌは危険ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽAｿｽLｿｽ[ｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽﾄゑｿｽ¥ｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、
MouseDownｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ驍ｩｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄマｿｽEｿｽXｿｽｿｽｿｽWｿｽｿｽｿｽｿｽﾌ取得ｿｽﾌ場合ｿｽAｿｽｿｽｿｽﾚの搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽvｿｽZｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ListBoxｿｽｿｽIndexFromPointｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽｿｽｿｽﾆ。
ｿｽ@PrivateSubListBox1_MouseDown(ｿｽc
ｿｽ@ｿｽ@Trace.WriteLine(ListBox1.IndexFromPoint(e.Location))
ｿｽ@EndSub
ｿｽ}ｿｽEｿｽXｿｽnｿｽCｿｽxｿｽｿｽｿｽgｿｽﾈ外ｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽ鼾ｿｽF
ｿｽ@Trace.WriteLine(ListBox1.IndexFromPoint(ListBox1.PointToClient(MousePosition)))
ｿｽﾌゑｿｽ 2008/12/19(ｿｽｿｽ) 11:22:14
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽlｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
IndexFromPointｿｽｿｽｿｽﾜゑｿｽｿｽﾉゑｿｽｿｽｿｽﾅゑｿｽｿｽ@ｿｽ鞫懶ｿｽﾌポｿｽCｿｽｿｽｿｽgｿｽﾌ位置ｿｽｿｽｿｽｿｽ謫ｾ
ｿｽﾅゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽVB6ｿｽﾅつゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾆ考ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽﾌマｿｽEｿｽXｿｽｿｽｿｽWｿｽﾌ位置ｿｽｿｽｿｽ轤ｻｿｽﾌ会ｿｽｿｽﾌ行ｿｽﾌ番搾ｿｽｿｽｿｽ
ｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ＾ｿｽO
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽﾌマｿｽEｿｽXｿｽｿｽｿｽWｿｽﾊ置ｿｽｿｽ
List2.PointToClient(MousePosition))ｿｽｿｽｿｽｿｽﾅ取得ｿｽﾅゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽOｿｽO
ｿｽ范ｴｿｽ@ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで最擾ｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽﾔ最擾ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽﾌゑｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽrｿｽｿｽｿｽhｿｽﾆゑｿｽｿｽfｿｽoｿｽbｿｽOｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽ閧ｩｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾑゑｿｽ
ｿｽﾈゑｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽﾔ搾ｿｽｿｽｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄ鯉ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾅｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽﾅまゑｿｽｿｽﾌマｿｽEｿｽXｿｽｿｽｿｽWｿｽﾊ置ｿｽｿｽｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽﾄ托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
YuOｿｽlｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾏゑｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽ
SelectedIndicesｿｽﾌ鯉ｿｽｿｽOfTypeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽAｿｽﾇのようｿｽﾉ使ｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽbｿｽﾌ勉具ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾉ関ゑｿｽｿｽﾄは、ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで ｿｽFｿｽlｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
