フォームにテキストボックスを配置する。 Public Class Form1 Private Sub TextBox1_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter 'データ形式の確認 If Not e.Data.GetDataPresent(DataFormats.FileDrop) Then Return End …

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim strFile() As String = System.IO.Directory.GetFiles("C:\test", "*", IO.SearchOption.AllDirectories) For i As Integer = 0 To strFile.Length -…

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load If System.IO.Path.IsPathRooted("C:\test.txt") Then MessageBox.Show("絶対パスです。") Else MessageBox.Show("相対パスです。") End If End Sub End …

Mouse without Boaders http://www.microsoft.com/en-us/download/details.aspx?id=35460