メニュー

IF文
FOR文
Usingステートメント

ArrayListを利用
IEnumerableを実装
Dictionaryを利用
StringDictionaryを利用
Stack(スタック)
Queue(キュー)
Generic List

小文字⇔大文字の変換
文字列をある文字列で分割

日付関係
現在日付と時刻の取得
明日、来月の日付の取得
月末の日付の取得
日付チェック

ファイル関係
ファイル選択ダイアログ
ファイル読み込み
CSVファイル読み込み
XmlSerializerを利用
GZip圧縮
ファイル情報の取得
フォルダ配下のファイル情報取得

MySQLに接続
ADO.NetでSQLServerに接続

スレッドを作成
ManagementObjectSearcherを利用

ドライブ情報を取得

フォーム関係
チェックボックス
メニューバーの作成
DataGridViewのDataSourceに配置
Timerコントロール
タスクバーにアイコンを表示
プログレスバーを表示
閉じるボタンの処理
透過度の変更
ListBoxにドラック&ドロップ
WebBrowserコントロール
コントロールをマウスで移動
MDIアプリケーション
フォームに線を引く

WebAPI
Webリクエスト送信
Google Geocoding APIを呼び出す
Google Static Maps APIを呼び出す


正規表現
「^」について
「$」について
「+」について
「*」について
「.」について
「|」について
「{n}」について
「{n,m}」について
「[]」について

トップ
E-Mail
xml

ASP.Netのお勉強
ASP.Netで掲示板を作成しよう
Excel マクロ・VBAのお勉強
PHPのお勉強
AJAXのお勉強
Webデザインのお勉強
Javaのお勉強
連想書籍検索
世界の観光地検索
路線図
総合サイトCocoaLiz
ネイルサロン検索
エステサロン検索
アロマサロン検索
アイビューティーサロン検索

ListBoxにドラック&ドロップ@VB.Net

ListBoxにファイルをドラックア&ドロップして、
ファイルパスを格納します。

フォームにListBoxを配置します。
AllowDropをTrueにします。

ListBoxのDragEnterをハンドルします。
マウスでListBox上の領域に入った時の処理です。

e.Data.GetDataPresentがDataFormats.FileDropならば、
e.Effect = DragDropEffects.Copyとし、Dropを可とします。

次に、ListBoxのDragDropをハンドルします。
ドロップされた場合の処理を記述します。

e.Data.GetDataによりドロップされたデータを取得し、
ListBoxに配置します。


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'ドロップをTrueにする
        Me.ListBox1.AllowDrop = True

    End Sub

    Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        'データ形式のチェック
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            'FileDropならDrop可
            e.Effect = DragDropEffects.Copy
        Else
            'Drop不可
            e.Effect = DragDropEffects.None
        End If

    End Sub

    Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        'ドロップデータをString型配列に変換
        Dim files() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())

        'ListBoxに追加
        ListBox1.Items.AddRange(files)

    End Sub
End Class




Copyright (C) 2008-2011 VB.Netのお勉強. All Rights Reserved.