ｿｽ@ ｿｽ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

ｿｽyｿｽｿｽｿｽg 2003/11/19(ｿｽｿｽ) 23:11:02

VB.NetｿｽｿｽListVieｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ骰ｿｽﾚ（ｿｽsｿｽjｿｽﾌ番搾ｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ListBoxｿｽiVB6ｿｽｿｽ)ｿｽﾉゑｿｽIndexｿｽﾆゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌようｿｽﾉ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾔ搾ｿｽｿｽﾍ簡単ｿｽﾉ取得ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2003/11/20(ｿｽｿｽ) 12:20:05

ListView1.SelectedItems(i).Index

ｿｽｿｽ i ｿｽｿｽOｿｽｿｽｿｽ迴ｿｽﾉカｿｽEｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾎ趣ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽBｿｽcｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ VB6.0 ｿｽﾅ搾ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ .Net ｿｽﾅ開ｿｽｿｽｿｽﾎ変奇ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽﾌゑｿｽｿｽﾅゑｿｽｿｽB

ｿｽyｿｽｿｽｿｽg 2003/11/20(ｿｽｿｽ) 19:16:47

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBVBｿｽUｿｽﾅ使ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽListBoxｿｽﾅゑｿｽｿｽｿｽｿｽBVB.Netｿｽﾖの変奇ｿｽｿｽｿｽﾍ【ListBox.SelectedIndexｿｽzｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽﾉ趣ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽy.SelectedItems(i)ｿｽzｿｽﾌ【iｿｽzｿｽｿｽｿｽﾈんだゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽwｿｽｿｽｿｽvｿｽﾅ鯉ｿｽｿｽｿｽﾆ搾ｿｽｿｽﾚのイｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽﾆゑｿｽｿｽｿｽｿｽﾅてゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽｿｽｿｽLｿｽﾌ記ｿｽqｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾆ茨ｿｽｿｽﾚのｿｽｿｽXｿｽgｿｽﾌクｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾍ番搾ｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽAｿｽｿｽｿｽﾅ違うｿｽsｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾆ【ｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽｿｽｿｽﾈ値ｿｽﾌ範囲難ｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽzｿｽﾆなゑｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

  Private Sub Listview_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listview.SelectedIndexChanged
        Dim SelectNo As Integer
        SelectNo = Listview.SelectedItems(0).Index
        TextBox1.Text = SelectNo
    End Sub

ｿｽyｿｽｿｽｿｽg 2003/11/20(ｿｽｿｽ) 19:27:47

ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽuｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽListBoxｿｽﾅゑｿｽｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽVB6ｿｽﾌとゑｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅゑｿｽｿｽBVB.Netｿｽﾅは【ListViewｿｽzｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2003/11/21(ｿｽｿｽ) 00:55:34

SelectedIndexChanged ｿｽﾍ選ｿｽｿｽsｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽﾆ厄ｿｽｿｽ走ゑｿｽﾜゑｿｽｿｽB
ｿｽlｿｽﾔには選ｿｽｿｽsｿｽｿｽPｿｽsｿｽﾚゑｿｽｿｽｿｽQｿｽsｿｽﾚに変ゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾄゑｿｽ
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ迪ｩｿｽｿｽｿｽ
ｿｽEｿｽPｿｽsｿｽﾚゑｿｽIｿｽｿｽ
ｿｽESelectedIndexChanged
ｿｽEｿｽPｿｽsｿｽﾚゑｿｽIｿｽｿｽｿｽｿｽ(ｿｽIｿｽｿｽsｿｽﾈゑｿｽ)
ｿｽESelectedIndexChangedｿｽｿｽｿｽｿｽLｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[
ｿｽEｿｽQｿｽsｿｽﾚゑｿｽIｿｽｿｽ
ｿｽESelectedIndexChanged
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾆデｿｽoｿｽbｿｽOｿｽｿｽｿｽｿｽﾎ包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽHｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ Index ｿｽｿｽwｿｽｿｽｿｽvｿｽﾅ抵ｿｽｿｽﾗゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽI Listview ｿｽｿｽ
ｿｽﾇゑｿｽﾈオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽiｿｽ[ｿｽｿｽｿｽﾄゑｿｽｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉは会ｿｽｿｽｿｽｿｽﾇゑｿｽﾈ形ｿｽｿｽ
ｿｽｿｽｿｽ驍ｩｿｽcｿｽｿｽｿｽｿｽｿｽﾜで抵ｿｽｿｽﾗゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾉ暦ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽﾎ擾ｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾚゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾜで頑張ｿｽｿｽｿｽﾄみて？

ｿｽyｿｽｿｽｿｽg 2003/11/21(ｿｽｿｽ) 12:51:57

ｿｽCｿｽxｿｽｿｽｿｽgｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽyHandles Listview.Clickｿｽzｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾈゑｿｽｿｽBｿｽy.SelectedItems(i)ｿｽzｿｽﾌイｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽｿｽ0ｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾉわかｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗ具ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2003/11/21(ｿｽｿｽ) 17:24:57

'ｿｽ皷橸ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで参ｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽ轤ｦｿｽｿｽﾎ奇ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

    ' ｿｽ|ｿｽCｿｽｿｽｿｽgｿｽP:ｿｽｿｽｿｽｿｽｿｽｿｽ Option Explicit On ｿｽ骭ｾｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾗての変撰ｿｽｿｽ明趣ｿｽｿｽIｿｽﾉ宣言ｿｽｿｽｿｽｿｽNｿｽZｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
    ' ｿｽ|ｿｽCｿｽｿｽｿｽgｿｽQ:ｿｽLｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽ .NET ｿｽｿｽｿｽKｿｽｿｽｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾏ撰ｿｽｿｽﾍ厄ｿｽｿｽｿｽｿｽIｿｽﾉキｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽｿｽNｿｽZｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
    ' ｿｽ|ｿｽCｿｽｿｽｿｽgｿｽR:ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽﾉゑｿｽﾓ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBListView ｿｽｿｽ Item ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ ListView.Items(i).Text ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
    ' ｿｽ@ｿｽ@ｿｽ@ｿｽ@ListView.Items ｿｽﾌ最鯉ｿｽﾉ包ｿｽｿｽｿｽｿｽ`ｿｽｿｽ s ｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽﾌゑｿｽ ListView.Items ｿｽｿｽ Item ｿｽ複撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽだコｿｽｿｽｿｽNｿｽVｿｽｿｽｿｽｿｽ
    ' ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBListView.SelectedItems ｿｽｿｽｿｽｿｽｿｽｿｽﾅ選ｿｽｿｽsｿｽｿｽSｿｽﾄ包ｿｽｿｽｿｽｿｽｿｽｿｽだコｿｽｿｽｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽfｿｽoｿｽbｿｽOｿｽｿｽｿｽﾉ難ｿｽeｿｽｿｽ
    ' ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽmｿｽ閧ｽｿｽｿｽｿｽ鼾ｿｽﾍウｿｽHｿｽbｿｽ`ｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽAｿｽcｿｽｿｽｿｽ[ｿｽｿｽWｿｽJｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
    Private Sub ListView_SelectedIndexChanged(ByVal sender As System.Object, _
                                              ByVal e As System.EventArgs) _
                                              Handles ListView.SelectedIndexChanged
        Dim SelectNoTxt As String
        Dim i As Integer

        With Me.ListView
            ' ListView ｿｽｿｽ Item(ｿｽｿｽｿｽｿｽ) ｿｽｿｽｿｽPｿｽﾂゑｿｽﾈゑｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
            If .Items.Count = 0 Then Exit Sub
            ' ListView ｿｽｿｽ SelectedItem(ｿｽIｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽ) ｿｽｿｽｿｽPｿｽﾂゑｿｽﾈゑｿｽｿｽ鼾
            ' (ｿｽPｿｽsｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ鼾)ｿｽIｿｽｿｽsｿｽﾉつゑｿｽｿｽﾄの擾ｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾜゑｿｽｿｽB
            With .SelectedItems
                If .Count <> 0 Then
                    For i = 0 To .Count - 1
                        ' ｿｽJｿｽEｿｽｿｽｿｽgｿｽｿｽｿｽOｿｽnｿｽﾜりかｿｽPｿｽnｿｽﾜりかｿｽHｿｽｿｽｿｽｿｽｿｽﾄ終ｿｽｿｽｿｽｿｽｿｽｿｽﾍ極めて重ｿｽvｿｽﾅゑｿｽｿｽB
                        ' ｿｽzｿｽｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽGｿｽNｿｽZｿｽｿｽｿｽﾌセｿｽｿｽｿｽIｿｽｿｽﾈど…ｿｽﾂねに意趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
                        '''SelectNoTxt = SelectNoTxt & CStr(Me.ListView.SelectedItems(i).Index + 1) & ", "
                        ' ｿｽｿｽﾌようｿｽﾉ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAWith ｿｽｿｽgｿｽｿｽｿｽﾄまゑｿｽｿｽﾌで会ｿｽｿｽﾌようｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
                        ' SelectedItems ｿｽｿｽ Item ｿｽﾌコｿｽｿｽｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽﾈので以会ｿｽｿｽﾌようｿｽﾉ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
                        SelectNoTxt = SelectNoTxt & CStr(.Item(i).Index + 1) & ", "
                    Next i
                End If
            End With

            ' ｿｽｿｽｿｽﾌ趣ｿｽｿｽ_ｿｽｿｽ SelectNoTxt ｿｽﾌ抵ｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾌ場合ｿｽAｿｽsｿｽﾍ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
            ' If ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽ SelectNoTxt = "" ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
            ' SelectNoTxt ｿｽﾌ厄ｿｽｿｽｿｽｿｽIｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽ(SelectNoTxt = "")ｿｽﾍ行ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽが、SelectNoTxt ｿｽｿｽ
            ' ｿｽXｿｽRｿｽ[ｿｽvｿｽﾍ関撰ｿｽｿｽｿｽﾌみ有ｿｽｿｽｿｽﾈので、ｿｽﾖ撰ｿｽｿｽ抜ゑｿｽｿｽｿｽﾆ破ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB(ｿｽﾄび関撰ｿｽｿｽｿｽｿｽﾄばれたｿｽｿｽｿｽｿｽ
            ' "" ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ)
            If Len(SelectNoTxt) = 0 Then
                ' ｿｽsｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾔは、ｿｽｿｽｿｽ[ｿｽUｿｽｿｽ ListView ｿｽﾌ費ｿｽｿｽｿｽｿｽﾈ位置ｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽA
                ' Esc ｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ(ｿｽｿｽｿｽｿｽｿｽ ListView_KeyPress ｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ意図ｿｽIｿｽﾉ抵ｿｽ`)ｿｽﾉ起ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
                SelectNoTxt = "ｿｽsｿｽﾍ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB"
            Else
                SelectNoTxt = SelectNoTxt & "ｿｽsｿｽｿｽIｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾋ？(ｿｽPｿｽ[ｿｽP)ｿｽB"
            End If

            ' TextBox1 ｿｽﾉ表ｿｽｿｽ
            TextBox1.Text = SelectNoTxt
        End With
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) _
                           Handles MyBase.Load
        ' ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
        InitForm()
    End Sub

    ' ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
    Private Sub InitForm()
        ' i,j,m,n ｿｽﾈどは通擾ｿｽAｿｽJｿｽEｿｽｿｽｿｽ^ｿｽﾆゑｿｽｿｽﾄ使ｿｽｿｽｿｽﾜゑｿｽｿｽB
        ' ｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽgｿｽpｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ齒奇ｿｽｿｽｿｽｿｽﾄカｿｽEｿｽｿｽｿｽ^ｿｽﾈゑｿｽ
        ' Dim i, j, m, n As Integer ｿｽﾆ宣言ｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
        Dim i As Integer

        ' ListView ｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽﾝ抵ｿｽ([ｿｽfｿｽUｿｽCｿｽｿｽ]ｿｽｿｽﾊで設定しｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ)
        With Me.ListView
            .Columns.Clear()        ' ｿｽJｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽ
            .Items.Clear()          ' Item ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽ
            .Columns.Add("ｿｽｿｽｿｽｿｽ", .Width - 5, HorizontalAlignment.Left) ' ｿｽJｿｽｿｽｿｽｿｽｿｽﾌ設抵ｿｽ
            .HeaderStyle = ColumnHeaderStyle.Nonclickable ' ｿｽJｿｽｿｽｿｽｿｽｿｽﾍボｿｽ^ｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽ¥ｿｽｿｽ
            .MultiSelect = True     ' ｿｽｿｽｿｽｿｽｿｽsｿｽIｿｽｿｽｿｽ(Ctrl[or Shift]ｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜま選ｿｽｿｽ)
            .View = View.Details    ' ｿｽﾚ細表ｿｽｿｽ
            For i = 1 To 7          ' ｿｽeｿｽXｿｽgｿｽ¥ｿｽｿｽｿｽp Item ｿｽﾇ会ｿｽ
                .Items.Add("Test" & CStr(i))
            Next i
        End With

        ' ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌテｿｽNｿｽjｿｽbｿｽN(ｿｽﾖ撰ｿｽｿｽｿｽﾅ茨ｿｽｿｽｿｽｿｽ利用ｿｽｿｽｿｽﾄなゑｿｽｿｽﾌでエｿｽｿｽｿｽ[ｿｽﾍ起ｿｽｿｽｿｽｿｽﾈゑｿｽ)
        ListView_SelectedIndexChanged(Nothing, Nothing)
    End Sub

    Private Sub ListView_KeyPress(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.KeyPressEventArgs) _
                                  Handles ListView.KeyPress
        Dim i As Integer
        'Debug.WriteLine(CStr(Asc(e.KeyChar)))  ' ｿｽLｿｽ[ｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽﾈ単ｿｽﾉ出ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽ@
        With Me.ListView
            Select Case e.KeyChar
                Case Chr(27) ' Esc ｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽﾅ全ｿｽﾄの行ｿｽﾌ選ｿｽｿｽｿｽｿｽ
                    With Me.ListView
                        If .SelectedItems.Count = 0 Then Exit Sub
                        ' ｿｽｿｽｿｽﾅカｿｽEｿｽｿｽｿｽ^ｿｽｿｽtｿｽﾉ回してるかｿｽﾍ趣ｿｽｿｽｿｽｿｽﾅ色ｿｽXｿｽﾏ更ｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾘゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
                        For i = .SelectedItems.Count - 1 To 0 Step -1
                            .Items(.SelectedItems(i).Index).Selected = False
                        Next i
                    End With
                Case Else
            End Select
        End With
    End Sub

ｿｽJｿｽi 2004/07/27(ｿｽｿｽ) 14:16:56

ListBoxｿｽﾅ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆは出ｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

Created by board of various Programming Library.