【しばらく編集不可モードで運営します】 編集(管理者用) | 差分 | 新規作成 | 一覧 | RSS | FrontPage | 検索 | 更新履歴

AddHandler - Private Sub Form1_Load(ByVal sender As Object, _

Private Sub Form1_Load(ByVal? sender As Object, _

        ByVal e As EventArgs) Handles MyBase.Load
    'ひとつのアイテムしか選択できないようにする
    ListBox1.SelectionMode = SelectionMode.One
    ListBox2.SelectionMode = SelectionMode.One

    'ListBox1にアイテムを追加
    Dim i As Integer
    For i = 0 To 4
        ListBox1.Items.Add(i.ToString())
    Next i
    'ListBox2にアイテムを追加
    For i = 5 To 9
        ListBox2.Items.Add(i.ToString())
    Next i

    'ListBox2へのドロップを受け入れる
    ListBox2.AllowDrop = True

    'ListBox1のイベントハンドラを追加
    AddHandler ListBox1.MouseDown, AddressOf ListBox1_MouseDown
    'ListBox2のイベントハンドラを追加
    AddHandler ListBox2.DragEnter, AddressOf ListBox2_DragEnter
    AddHandler ListBox2