C# と VB.NET の質問掲示板

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using System.IO;
using System.Runtime.InteropServices;
using System.Diagnostics;
using WinApi;

namespace FormSnake
{
	/// <summary>
	/// Form1 の概要の説明です。
	/// </summary>
	/// 
	public class Form1 : System.Windows.Forms.Form
	{
		private System.ComponentModel.IContainer components;

		public Form1()
		{
			//
			// Windows フォーム デザイナ サポートに必要です。
			//
			InitializeComponent();

			//
			// TODO: InitializeComponent 呼び出しの後に、コンストラクタ コードを追加してください。
			//
		}

		private static bool _IsTracking = false;
		public System.Windows.Forms.ListView listView1;
		private System.Windows.Forms.ImageList imageList1;
		private System.Windows.Forms.ImageList imageList2;

		public static bool IsTracking
		{
			get { return _IsTracking; }
			set { _IsTracking = value; }
		}

		private static Form1 _HotForm = null;

		public static Form1 HotForm
		{
			get { return _HotForm; }
			set { _HotForm = value; }
		}

		private void StartTrack()
		{
			Form1.IsTracking = true;
			Form1.HotForm = this;

			this.Capture = true;
		}

		private void DoTarck() //マウスカーソルの位置を読み取って新しいフォームを作る
		{
			Point point = Cursor.Position;
			if (this.Bounds.Contains(point)) return;

			this.Capture = false;

			int x = this.Location.X;
			int y = this.Location.Y;

			if (point.X < this.Left)
			{
				x -= this.Width;
			}
			else if (this.Right < point.X)
			{
				x += this.Width;
			}

			if (point.Y < this.Top)
			{
				y -= this.Height;
			}
			else if (this.Bottom < point.Y)
			{
				y += this.Height;
			}

			Form1 form = new Form1();
			form.StartPosition = FormStartPosition.Manual;
			form.Location = new Point(x, y);
			form.Show();
			form.StartTrack();
		}

		private void DoAction()
		{
			this.Capture = false;

			Form1.HotForm = null;
			Form1.IsTracking = false;

			int i = listView1.SelectedIndices[0]; 
			string ss = ((FileSystemInfo)fileinfo[i]).FullName;
			Process.Start(ss);
			Program.MainForm.Close();
		}


		/// <summary>
		/// 使用されているリソースに後処理を実行します。
		/// </summary>
		protected override void Dispose( bool disposing )
		{
			if( disposing )
			{
				if (components != null) 
				{
					components.Dispose();
				}
			}
			base.Dispose( disposing );
		}

		#region Windows フォーム デザイナで生成されたコード 
		/// <summary>
		/// デザイナ サポートに必要なメソッドです。このメソッドの内容を
		/// コード エディタで変更しないでください。
		/// </summary>
		private void InitializeComponent()
		{
			this.components = new System.ComponentModel.Container();
			this.listView1 = new System.Windows.Forms.ListView();
			this.imageList1 = new System.Windows.Forms.ImageList(this.components);
			this.imageList2 = new System.Windows.Forms.ImageList(this.components);
			this.SuspendLayout();
			// 
			// listView1
			// 
			this.listView1.Alignment = System.Windows.Forms.ListViewAlignment.Default;
			this.listView1.AllowDrop = true;
			this.listView1.Location = new System.Drawing.Point(8, 8);
			this.listView1.Name = "listView1";
			this.listView1.Scrollable = false;
			this.listView1.Size = new System.Drawing.Size(80, 80);
			this.listView1.TabIndex = 0;
			this.listView1.DoubleClick += new System.EventHandler(this.listView1_DoubleClick);
			// 
			// imageList1
			// 
			this.imageList1.ImageSize = new System.Drawing.Size(16, 16);
			this.imageList1.TransparentColor = System.Drawing.Color.Transparent;
			// 
			// imageList2
			// 
			this.imageList2.ImageSize = new System.Drawing.Size(16, 16);
			this.imageList2.TransparentColor = System.Drawing.Color.Transparent;
			// 
			// Form1
			// 
			this.AutoScaleBaseSize = new System.Drawing.Size(5, 12);
			this.BackColor = System.Drawing.Color.PaleGreen;
			this.ClientSize = new System.Drawing.Size(96, 96);
			this.ControlBox = false;
			this.Controls.Add(this.listView1);
			this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
			this.MaximizeBox = false;
			this.MinimizeBox = false;
			this.Name = "Form1";
			this.ShowInTaskbar = false;
			this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;
			this.Text = "Formsnake";
			this.TopMost = true;
			this.KeyPress += new System.Windows.Forms.KeyPressEventHandler(this.Form1_KeyPress);
			this.Load += new System.EventHandler(this.Form1_Load);
			this.MouseLeave += new System.EventHandler(this.Form1_MouseLeave);
			this.ResumeLayout(false);

		}
		#endregion

		/// <summary>
		/// アプリケーションのメイン エントリ ポイントです。
		/// </summary>
		[STAThread]
		static void Main() 
		{
			Application.EnableVisualStyles();
			Program._MainForm = new Form1();
			Application.Run(Program.MainForm);
		}

		private IntPtr hImageSmall;
		private IntPtr hImageLarge;
		private int nIndex=0;
		ArrayList fileinfo = new ArrayList();

		public void GetFile()
		{
			nIndex  =0;
			fileinfo.Clear();		

			foreach(string s in System.IO.Directory.GetFileSystemEntries(@"C:\Documents and Settings\Administrator\My Documents\01"))
			{
				Shell32.SHFILEINFO shfi=new Shell32.SHFILEINFO();
				FileInfo fi=new FileInfo(s);

				//32 x 32サイズのアイコンを取得
				hImageLarge=Shell32.SHGetFileInfo(s,0,ref shfi,(uint)Marshal.SizeOf(shfi),
					Shell32.SHGFI_ICON|Shell32.SHGFI_LARGEICON);
				imageList2.Images.Add(Icon.FromHandle(shfi.hIcon));

				//16 x 16サイズのアイコンを取得
				hImageSmall=Shell32.SHGetFileInfo(s,0,ref shfi,(uint)Marshal.SizeOf(shfi),
					Shell32.SHGFI_ICON|Shell32.SHGFI_SMALLICON);
				imageList1.Images.Add(Icon.FromHandle(shfi.hIcon));
				
				//リストビューにアイテムを追加
				listView1.Items.Add(
					new ListViewItem(
					new string[]{fi.Name,Directory.GetCreationTime(fi.FullName).ToString(),
									Directory.GetLastAccessTime(fi.FullName).ToString()}
					,nIndex++)
					);
				fileinfo.Add(fi);
			}
                  }

		

		private void Form1_Load(object sender, System.EventArgs e)
		{
			this.Size = new Size(96, 96);
			//リストビューのヘッダを作成
			ColumnHeader ch1=new ColumnHeader();
			ch1.Text="File";
			ColumnHeader ch2=new ColumnHeader();
			ch2.Text="CreateDate";
			ColumnHeader ch3=new ColumnHeader();
			ch3.Text="AccessDate";

			//リストビューのヘッダ＆イメージリスト＆サイズ＆ドッキング先の設定
			listView1.Columns.AddRange(new ColumnHeader[]{ch1,ch2,ch3});
			listView1.SmallImageList=imageList1;
			listView1.LargeImageList=imageList2;
			//listView1.Size=new Size(200,Size.Height);
			//listView1.Dock=DockStyle.Left|DockStyle.Bottom|DockStyle.Top;

			//２つのイメージリストのサイズ＆色深度の設定
			imageList1.ImageSize=SystemInformation.SmallIconSize;
			imageList1.ColorDepth=ColorDepth.Depth32Bit;

			imageList2.ImageSize=SystemInformation.IconSize;
			imageList2.ColorDepth=ColorDepth.Depth32Bit;

			//ファイルの取得
			GetFile();
		}






		private void Form1_MouseLeave(object sender, System.EventArgs e)
		{
			this.DoTarck();
			Console.WriteLine("認識");
		}






		private void Form1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e)
		{
			if (e.KeyChar == (char)Keys.Escape)
			{
				Program.MainForm.Close();
			}
		}



		private void listView1_DoubleClick(object sender, System.EventArgs e)
		{
			if (!Form1.IsTracking)
			{
				this.StartTrack();
			}
			else
			{
				if (Form1.HotForm != Program.MainForm)
				{
					this.DoAction();
				}
			}		
		}


	}

	public class Program
	{
		public static Form1 _MainForm = null;

		public static Form1 MainForm
		{
			get { return _MainForm; }
		}
	}
}

■No11930 (arion さん) に返信

> どんなことでもいいのでアドバイスをいただけたらうれしいです。
> よろしくお願いします。

　ファイル一覧を管理するクラスが必要かと思います。
今の状態だと、GetFile() メソッドが呼ばれるごとにファイル一覧を読み直しています。
これでは自分が何を表示しているのか、次のフォームが何を表示するべきなのか、わかりません。


> private void DoTarck()
　x += this.With って、どこになりますか？ここは、x = this.Width + 1 くらいではないでしょうか。
　また、上や左へのアクションは、フォームを「隠す」ではなかったでしょうか？


> public class Program
　カプセル化するならきっちりやりましょうよ。

public class Program
{
    private static Form1 _MainForm = new Form1();
    public static Form1 MainForm {
        get { return this._MainForm; }
    }
}


> Program.MainForm.Close();
　メイン フォームを閉じると、アプリケーションが終了します。それでいいのでしょうか？

'　　　　　　　　　　　　　　　　　（続き）
'　　　　　　　　　　　　　　　（コードの始まり）　　　　１／４

Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.IO
Imports System.Runtime.InteropServices

'エントリポイント
Public Class Program
    Public Shared Sub Main()
        Application.EnableVisualStyles()
        Dim frm As New Launcher(Of SnakeExplorer)
        ' マイドキュメントの中身を表示
        Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
        frm.SetStartupInformation(path)
        Application.Run(frm)
    End Sub
End Class


'（丸ごと再利用可能）汎用ランチャー
Public Class Launcher(Of T As {New, ContentSnakeBase})
    Inherits System.Windows.Forms.Form

    Dim WithEvents BtnRun As New Button
    Dim WithEvents frm As T
    Dim isTracking As Boolean = False
    Dim offset As New Point(0, 0)

    Public Sub New()
        Me.ClientSize = New Size(100, 50)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
        Me.MinimizeBox = False
        Me.MaximizeBox = False
        Me.Text = "ランチャー"
        BtnRun.Text = "Start"
        BtnRun.Dock = DockStyle.Fill
        Me.Controls.Add(BtnRun)
    End Sub

    Private m_startinfo As New Object
    Public Sub SetStartupInformation(ByVal info As Object)
        Me.m_startinfo = info
    End Sub

    Private Sub BtnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnRun.Click
        If isTracking = False Then
            isTracking = True

            frm = New T
            ' ↓Lancher移動時にSnakeもついてくるようにするために必要な情報
            offset = New Point(frm.Left - Me.Left, frm.Top - Me.Top)
            ' StartupInformation（この例ではマイドキュメントのパス）を渡す
            frm.StartupInformation = Me.m_startinfo
            ' 最初のContentをLauncherの真下に表示
            frm.FirstContentScreenPosition = New Point(Me.Left, Me.Top + Me.Height)
            ' 輪郭線を描画
            frm.ShowContentsBorderLine = True
            frm.ContentsBorderLineColor = Color.BurlyWood
            frm.ContentsBorderLineWidth = 5
            ' ↓Trueにすると、指定時間間隔毎にカーソルの方向へSnakeが延伸
            ' ↓Trueのほうが操作性がまだまし
            frm.AutoSnake = True
            frm.AutoSnakeInterval = 200 '←単位はミリ秒
            ' ↓マウスを逆方向に動かした場合に、Snakeを短縮させるなら、True
            ' ↓（※AutoSnake=Trueの場合は、CanAutoShrink=Falseにしたほうが良いです）
            ' ↓SnakeExplorerでは、Trueにするとファイル、フォルダが正しく表示されない場合がある。
            ' ↓（赤いフォルダを超えてSnakeを短縮させた場合）
            frm.CanAutoShrink = False

            frm.Show()
            Cursor.Position = New Point(Me.Left + 30, Me.Top + Me.Height + 30)
        Else
            'Snake表示中に再度ボタンを押すと、Snakeを閉じる
            If frm IsNot Nothing Then frm.Close()
        End If
    End Sub

    Private Sub frm_FormClosed(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles frm.FormClosed
        isTracking = False
    End Sub

    Private Sub Me_LocationChanged(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Me.LocationChanged
        If isTracking = False Then Return
        frm.Location = New Point(Me.Location.X + offset.X, Me.Location.Y + offset.Y)
    End Sub
End Class


'（丸ごと再利用可能）ファイル／フォルダのアイコン画像取得用のクラス
Public Class Shell32
    Public Const SHGFI_ICON As UInt32 = &H100
    Public Const SHGFI_LARGEICON As UInt32 = &H0
    Public Const SHGFI_SMALLICON As UInt32 = &H1

    Public Structure SHFILEINFO
        Public hIcon As IntPtr
        Public iIcon As Integer
        Public dwAttributes As UInt32
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
        Public szDisplayName As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
        Public szTypeName As String
    End Structure

    <DllImport("shell32.dll")> _
    Public Shared Function SHGetFileInfo(ByVal pszPath As String, ByVal dwFileAttributes As UInt32, _
        ByRef psfi As SHFILEINFO, _
        ByVal cbFileInfo As UInt32, _
        ByVal uFlags As UInt32) As IntPtr
    End Function

    ''' <summary>
    ''' 32 x 32サイズのアイコンを取得
    ''' </summary>
    ''' <param name="fileordirectoryname">ファイル名、ディレクトリ名</param>
    Public Shared Function Get32x32Icon(ByVal fileordirectoryname As String) As Icon
        Dim shfi As New SHFILEINFO
        Dim hImageLarge As IntPtr
        hImageLarge = Shell32.SHGetFileInfo(fileordirectoryname, 0, shfi, _
            Convert.ToUInt32(Marshal.SizeOf(shfi)), Shell32.SHGFI_ICON Or Shell32.SHGFI_LARGEICON)
        Dim ic As Icon = Icon.FromHandle(shfi.hIcon)
        Return ic
    End Function

    ''' <summary>
    ''' 16 x 16サイズのアイコンを取得
    ''' </summary>
    ''' <param name="fileordirectoryname">ファイル名、ディレクトリ名</param>
    Public Shared Function Get16x16Icon(ByVal fileordirectoryname As String) As Icon
        Dim shfi As New SHFILEINFO
        Dim hImageSmall As IntPtr
        hImageSmall = Shell32.SHGetFileInfo(fileordirectoryname, 0, shfi, _
            Convert.ToUInt32(Marshal.SizeOf(shfi)), Shell32.SHGFI_ICON Or Shell32.SHGFI_SMALLICON)
        Dim ic As Icon = Icon.FromHandle(shfi.hIcon)
        Return ic
    End Function
End Class

'　　　　　　　　　　　　　　　　　（続く）　　　　１／４

'　　　　　　　　　　　　　　　　　（続き）　　　　２／４

'派生クラスの一例（Explorer関連の処理を記述）
Public Class SnakeExplorer
    Inherits ContentSnakeBase

    Private fileNumber As Integer = 0
    Private FileList As List(Of FileSystemInfo)
    Private directoryDepth As Integer = 0

    Private Sub initializeFileList(ByVal path As String)
        If FileList Is Nothing Then
            FileList = New List(Of FileSystemInfo)
        Else
            FileList.Clear()
        End If
        Dim ssd() As String = Directory.GetDirectories(path)
        Dim ssf() As String = Directory.GetFiles(path)
        For Each ss As String In ssd
            FileList.Add(New DirectoryInfo(ss))
        Next
        For Each ss As String In ssf
            FileList.Add(New FileInfo(ss))
        Next
        fileNumber = 0
    End Sub

    Protected Overrides Function OnCreateNewContent(ByVal cx As Integer, ByVal cy As Integer, _
        ByVal dr As Direction) As System.Windows.Forms.Control
        'cx、cyはContent（ここではControlと同義）を格子に見立てたときの座標です。
        'フォーム起動時に最初に表示されるContentの(cx,cy)は(100,100)、
        'その右隣のContentは(101,100)、下隣のContentは(100,101)です。
        'ここで(100,100)の「100」は、基本クラスのInitialCX、InitialCYで定義されています。
        '
        'drは、Contentの展開方向です（例えば、下に展開した場合はDirection.Down）
        '
        'Contentを表示する場合は、Controlインスタンスを返します。
        'Contentを作成しない場合はNothingを返してください。
        '各Contentのサイズが同一でない場合も多分動作しますが、画面表示が変になる場合があります。
        '（例えば、Contentが重なって表示される、Formの端でContentの一部が描画されない等）
        '
        If Me.FileList Is Nothing Then
            ' ↓StartupInformationがNothingになることはない
            Dim path As String = Me.StartupInformation.ToString
            If Directory.Exists(path) = False Then
                Throw New DirectoryNotFoundException("ディレクトリ " + path + " が見つかりません。")
            End If
            initializeFileList(path)
        End If
        If FileList.Count < fileNumber + 1 Then
            '表示するファイルがない
            Return Nothing
        End If
        Dim ofe As New OneFileExplorer(FileList.Item(fileNumber), directoryDepth)
        fileNumber += 1
        AddHandler ofe.DoubleClick, AddressOf Me.OneFileExplorer_DoubleClick
        Return ofe
    End Function

    Protected Overrides Sub OnClosingContent(ByVal cw As ContentWrapper)
        'Content消去前にイベントハンドラを削除
        Dim ofe As OneFileExplorer = DirectCast(cw.Content, OneFileExplorer)
        RemoveHandler ofe.DoubleClick, AddressOf Me.OneFileExplorer_DoubleClick
        If fileNumber >= 1 Then fileNumber -= 1
    End Sub

    Protected Overrides Sub OnHotContentChanging(ByVal cw As ContentSnakeBase.ContentWrapper)
        '今までHotContentだったContentの背景色を元に戻す
        Dim ofe As OneFileExplorer = DirectCast(cw.Content, OneFileExplorer)
        If ofe.BackColor = ofe.colorHot Then
            ofe.BackColor = ofe.colorDefault
        End If
    End Sub

    Protected Overrides Sub OnHotContentChanged(ByVal cw As ContentSnakeBase.ContentWrapper)
        'HotContentの背景色を変更
        Dim ofe As OneFileExplorer = DirectCast(cw.Content, OneFileExplorer)
        If ofe.BackColor = ofe.colorDefault Then
            ofe.BackColor = ofe.colorHot
        End If
    End Sub

    Protected Overrides Sub OnPaintContent(ByVal cw As ContentSnakeBase.ContentWrapper, _
        ByVal e As System.Windows.Forms.PaintEventArgs)
        '
        '引数cwには、Contentの連接方向や座標データが格納されているので、
        'これらの情報を用いて描画したい場合にはここに処理を書いてください。
        '
    End Sub

    Private Sub OneFileExplorer_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim mc As OneFileExplorer = DirectCast(sender, OneFileExplorer)
        Dim ty As Type = mc.FSI.GetType
        Dim ss As String = mc.FSI.FullName
        If ty Is GetType(DirectoryInfo) Then
            'フォルダをダブルクリック
            Me.TruncateSnake(mc)
            mc.BackColor = mc.colorDirectory
            initializeFileList(ss)
            Me.directoryDepth = mc.directoryDepth + 1
        ElseIf ty Is GetType(FileInfo) Then
            'ファイルをダブルクリック
            Process.Start(ss)
            Me.Close()
        End If
    End Sub

    '「Snakeのパーツ」を定義したクラス
    Private Class OneFileExplorer
        Inherits System.Windows.Forms.Control

        '↓ディレクトリ階層の深さに応じてBackColorが変化します。
        Private Allcolor() As Color = {Color.Azure, Color.AntiqueWhite, Color.LemonChiffon, Color.Wheat}
        '↓環境に応じて適宜変更してください。Controlのサイズはこれに連動して決定されます。
        Private IconSize As New Size(40, 40)

        Public colorDefault As Color = Color.White
        Public colorDirectory As Color = Color.LightSalmon
        Public colorHot As Color = Color.Aqua
        Public ReadOnly FSI As FileSystemInfo
        Public ReadOnly IconImage As Icon
        Public directoryDepth As Integer = 0
        Private m_iconRectangle As Rectangle
        Private m_textRectangle As Rectangle
        Private m_strFormat As New StringFormat

        Public Sub New(ByVal fsi As FileSystemInfo, ByVal directorydepth As Integer)
            Me.FSI = fsi
            Me.directoryDepth = directorydepth
            Dim i As Integer = directorydepth Mod Allcolor.Length
            Me.colorDefault = Allcolor(i)
            Me.BackColor = Me.colorDefault
            Me.IconImage = Shell32.Get32x32Icon(fsi.FullName)
            Dim sz As Size = Me.IconSize
            Me.Size = New Size(CInt(sz.Width * 2), CInt(sz.Height * 2.3))
            m_iconRectangle = New Rectangle(CInt(sz.Width * 0.5), CInt(sz.Height * 0.25), _
                sz.Width, sz.Height)
            m_textRectangle = New Rectangle(CInt(sz.Width * 0.1), CInt(sz.Height * 1.25) + 3, _
                CInt(sz.Width * 1.8), 40)
            m_strFormat.Alignment = StringAlignment.Center
        End Sub

        Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
            'アイコンとファイル名を直接描画
            e.Graphics.DrawIcon(Me.IconImage, m_iconRectangle)
            e.Graphics.DrawString(Me.FSI.Name, SystemFonts.MessageBoxFont, Brushes.Black, _
                m_textRectangle, m_strFormat)
            MyBase.OnPaint(e)
        End Sub
    End Class

End Class

'　　　　　　　　　　　　　　　　　（続く）　　　　２／４

'　　　　　　　　　　　　　　　　　（続き）　　　　３／４

'（丸ごと再利用可能）Snake動作の基本機能を提供
Public MustInherit Class ContentSnakeBase
    Inherits System.Windows.Forms.Form

    '////////抽象メソッド達
    Protected MustOverride Function OnCreateNewContent(ByVal cx As Integer, ByVal cy As Integer, _
        ByVal dr As Direction) As Control
    Protected MustOverride Sub OnClosingContent(ByVal cw As ContentWrapper)
    Protected MustOverride Sub OnHotContentChanging(ByVal cw As ContentWrapper)
    Protected MustOverride Sub OnHotContentChanged(ByVal cw As ContentWrapper)
    Protected MustOverride Sub OnPaintContent(ByVal cw As ContentWrapper, ByVal e As PaintEventArgs)

    '////////初期化関連
    Private components As IContainer = New System.ComponentModel.Container()
    Private WithEvents Timer1 As New System.Windows.Forms.Timer(components)

    Protected ReadOnly InitialCX As Integer = 100
    Protected ReadOnly InitialCY As Integer = 100
    Private m_startupContent As ContentWrapper
    Private m_firstContentScreenPosition As New Point(0, 0)
    ''' <summary>
    ''' 起動時に最初に表示されるContentのLocationをスクリーン座標で指定します。（既定は(0,0)）
    ''' </summary>
    Public Property FirstContentScreenPosition() As Point
        Get
            Return m_firstContentScreenPosition
        End Get
        Set(ByVal value As Point)
            m_firstContentScreenPosition = value
        End Set
    End Property

    Public Sub New()
        initialize()
    End Sub
    Private Sub ContentSnakeBase_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim p As Point = Me.PointToClient(m_firstContentScreenPosition)
        Me.m_startupContent = Me.createContent(p.X, p.Y, Me.InitialCX, Me.InitialCY, Direction.None)
    End Sub

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    Private Sub initialize()
        Me.SuspendLayout()
        Me.KeyPreview = True
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
        Me.BackColor = System.Drawing.Color.PaleGreen
        Me.TransparencyKey = Color.PaleGreen
        Me.Location = New Point(0, 0)
        Me.ClientSize = New Size(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Me.ControlBox = False
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "ContentSnakeBase1"
        Me.ShowInTaskbar = False
        Me.StartPosition = FormStartPosition.Manual
        Timer1.Enabled = m_autoSnake
        Timer1.Interval = m_autoSnakeInterval
        Me.ResumeLayout(False)
    End Sub

    '////////プロパティ

    Private m_startupInfomation As New Object
    ''' <summary>
    ''' 派生クラス等で上手く活用してください。（System.Windows.Forms.ControlのTagプロパティに相当）
    ''' （※Nothingは代入できません）
    ''' </summary>
    Public Property StartupInformation() As Object
        Get
            Return m_startupInfomation
        End Get
        Set(ByVal value As Object)
            If value IsNot Nothing Then
                m_startupInfomation = value
            End If
        End Set
    End Property

    Private m_canAutoShrink As Boolean = True
    ''' <summary>
    ''' マウスを逆方向に動かした場合に、Snakeを短縮させるなら、True。（既定はTrue）
    ''' （※AutoSnake=Trueの場合は、CanAutoShrink=Falseにしたほうが良いです）
    ''' </summary>
    Public Property CanAutoShrink() As Boolean
        Get
            Return m_canAutoShrink
        End Get
        Set(ByVal value As Boolean)
            m_canAutoShrink = value
        End Set
    End Property

    Private m_autoSnake As Boolean = False
    ''' <summary>
    ''' マウスの方向にSnakeを自動延伸させる場合はTrue。（既定はFalse）
    ''' </summary>
    Public Property AutoSnake() As Boolean
        Get
            Return m_autoSnake
        End Get
        Set(ByVal value As Boolean)
            m_autoSnake = value
            Timer1.Enabled = m_autoSnake
        End Set
    End Property

    Private m_autoSnakeInterval As Integer = 500
    ''' <summary>
    ''' Snakeを自動延伸させる場合の時間間隔（ミリ秒）（既定は５００）
    ''' </summary>
    Public Property AutoSnakeInterval() As Integer
        Get
            Return m_autoSnakeInterval
        End Get
        Set(ByVal value As Integer)
            If value >= 100 AndAlso value <= 60000 Then
                m_autoSnakeInterval = value
                Timer1.Interval = value
            End If
        End Set
    End Property

    Private m_contentsBorderLineColor As Color = Color.BurlyWood
    ''' <summary>
    ''' 各Contentsの境界線の色（既定はColor.BurlyWood）
    ''' </summary>
    Public Property ContentsBorderLineColor() As Color
        Get
            Return m_contentsBorderLineColor
        End Get
        Set(ByVal value As Color)
            m_contentsBorderLineColor = value
        End Set
    End Property

    Private m_contentsBorderLineWidth As Integer = 5
    ''' <summary>
    ''' 各Contentsの境界線の幅（既定は５）。
    ''' </summary>
    Public Property ContentsBorderLineWidth() As Integer
        Get
            Return m_contentsBorderLineWidth
        End Get
        Set(ByVal value As Integer)
            m_contentsBorderLineWidth = value
        End Set
    End Property

    Private m_showContentsBorderLine As Boolean = True
    ''' <summary>
    ''' 各Contentsに境界線を表示させる場合はTrue。（既定はTrue）
    ''' </summary>
    Public Property ShowContentsBorderLine() As Boolean
        Get
            Return m_showContentsBorderLine
        End Get
        Set(ByVal value As Boolean)
            m_showContentsBorderLine = value
        End Set
    End Property

    Private Shared m_hotContent As ContentWrapper = Nothing
    ''' <summary>
    ''' Snakeの先頭Contentを返します（SetアクセサはPrivateです）
    ''' </summary>
    Public Property HotContent() As ContentWrapper
        Get
            Return m_hotContent
        End Get
        Private Set(ByVal value As ContentWrapper)
            If m_hotContent IsNot value Then
                If m_hotContent IsNot Nothing AndAlso m_hotContent.Content IsNot Nothing Then
                    ' ↓派生クラスに処理のチャンスを与える
                    Me.OnHotContentChanging(m_hotContent)
                    RemoveHandler m_hotContent.Content.MouseLeave, AddressOf Me.HotPanel_MouseLeave
                End If
                m_hotContent = value
                If value IsNot Nothing Then
                    AddHandler m_hotContent.Content.MouseLeave, AddressOf Me.HotPanel_MouseLeave
                    ' ↓派生クラスに処理のチャンスを与える
                    Me.OnHotContentChanged(value)
                End If
            End If
        End Set
    End Property

    '////////イベントハンドラ達

    Private Sub HotPanel_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.DoTrack()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ActiveForm Is Me Then
            Me.HotPanel_MouseLeave(Me, EventArgs.Empty)
        End If
    End Sub

    '　ESCキー押下で終了
    Private Sub FormSnakeBase_KeyDown(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub

End Class

'　　　　　　　　　　　　　　　　　（続く）　　　　３／４

'　　　　　　　　　　　　　　　　　（続き）　　　　４／４

Partial Public MustInherit Class ContentSnakeBase

    '////////Snake付帯情報

    '輪郭線描画のためだけに必要な列挙体（Contentの連接方向を表す）
    Public Enum Direction
        None
        Up
        Down
        Left
        Right
    End Enum
    Private Function GetOppositeDirection(ByVal dr As Direction) As Direction
        Select Case dr
            Case Direction.None : Return Direction.None
            Case Direction.Down : Return Direction.Up
            Case Direction.Up : Return Direction.Down
            Case Direction.Left : Return Direction.Right
            Case Direction.Right : Return Direction.Left
        End Select
    End Function

    'Content達を格納する２次元配列（実体は２重List）
    Private AllContents As New TwoDimensionList(Of ContentWrapper)
    'Snakeの軌跡を格納するStack
    Private SnakeLocus As New Stack(Of ContentWrapper)

    'Contentの付帯情報を保存するために用意したクラス
    Public Class ContentWrapper
        Public WithEvents Content As Control
        Public XY As Point
        Public PrevDir As Direction = Direction.None
        Public NextDir As Direction = Direction.None
        Public m_showborderline As Boolean = False
        Public m_borderlinewidth As Integer = 5
        Public m_borderlinecolor As Color = Color.Beige
        Public Parent As ContentSnakeBase

        'Contentの輪郭線を描画
        Private Sub Content_Paint(ByVal sender As Object, _
            ByVal e As System.Windows.Forms.PaintEventArgs) Handles Content.Paint
            'ContentSnakeBaseの派生クラスに描画処理のチャンスを与える
            If Parent IsNot Nothing Then Parent.OnPaintContent(Me, e)

            If m_showborderline = False Then Return

            Dim c As Control = Me.Content
            Dim w As Integer = Me.m_borderlinewidth
            '↓連接部分の境界線の幅は narrow*2 になります。適宜変更してください
            Dim narrow As Integer = 1

            Dim br As New SolidBrush(Me.m_borderlinecolor)
            Dim bback As New SolidBrush(c.BackColor)

            Dim g As Graphics = e.Graphics
            Dim r As Rectangle = c.ClientRectangle

            '最初に、四方に太い輪郭線を描画
            g.FillRectangle(br, 0, 0, r.Width, w)
            g.FillRectangle(br, 0, r.Height - w, r.Width, w)
            g.FillRectangle(br, 0, 0, w, r.Height)
            g.FillRectangle(br, r.Width - w, 0, w, r.Height)

            '次に、連接部分の境界線を細くする
            For Each dr As Direction In New Direction() {PrevDir, NextDir}
                Select Case dr
                    Case Direction.Up
                        g.FillRectangle(bback, w, narrow, r.Width - 2 * w, w - narrow)
                    Case Direction.Down
                        g.FillRectangle(bback, w, r.Height - w, r.Width - 2 * w, w - narrow)
                    Case Direction.Left
                        g.FillRectangle(bback, narrow, w, w - narrow, r.Height - 2 * w)
                    Case Direction.Right
                        g.FillRectangle(bback, r.Width - w, w, w - narrow, r.Height - 2 * w)
                End Select
            Next
            br.Dispose()
            bback.Dispose()
        End Sub
    End Class

    '２次元配列を２重Listで代用
    Private Class TwoDimensionList(Of T)
        Private m_list As New List(Of List(Of T))
        ' 添え字オーバーを防止するために必要
        Private Sub ensureIndexExists(ByVal x As Integer, ByVal y As Integer)
            Do While m_list.Count < x + 1
                m_list.Add(New List(Of T))
            Loop
            Dim li As List(Of T) = m_list.Item(x)
            Do While li.Count < y + 1
                li.Add(Nothing)
            Loop
        End Sub
        Default Public Property Item(ByVal x As Integer, ByVal y As Integer) As T
            Get
                Me.ensureIndexExists(x, y)
                Return m_list.Item(x).Item(y)
            End Get
            Set(ByVal value As T)
                Me.ensureIndexExists(x, y)
                m_list.Item(x).Item(y) = value
            End Set
        End Property
        Public Sub ClearAll()
            For Each li As List(Of T) In m_list
                li.Clear()
            Next
            m_list.Clear()
        End Sub
    End Class

End Class
'　　　　　　　　　　　　　　　　　（続く）　　　　４／４
'　　　　　　　　　１回の投稿は１０KB以内でなければならないようです。

'　　　　　　　　　　　　　　　　　（続き）　　　　再び４／４

Partial Public MustInherit Class ContentSnakeBase


    '////////Snakeの表示、消去関連

    ''' <summary>
    ''' 引数で指定したContent（←これ自体は残ります）までSnakeを短縮します。 
    ''' 起動時に表示されていた先頭のContentは消去されません。
    ''' </summary>
    Protected Sub TruncateSnake(ByVal cw As ContentWrapper)
        Me.TruncateSnake(cw.Content)
    End Sub
    ''' <summary>
    ''' 引数で指定したContent（←これ自体は残ります）までSnakeを短縮します。 
    ''' 起動時に表示されていた先頭のContentは消去されません。
    ''' </summary>
    Protected Sub TruncateSnake(ByVal c As Control)
        Dim tmp As ContentWrapper
        Do
            tmp = Me.SnakeLocus.Peek()
            If (tmp.Content Is c) Or (tmp.Content Is m_startupContent.Content) Then Exit Do
            tmp = Me.SnakeLocus.Pop()
            Me.closeContent(tmp)
        Loop
        tmp.NextDir = Direction.None
        tmp.Content.Invalidate()
        Me.HotContent = tmp
    End Sub
    ''' <summary>
    ''' 引数で指定した個数だけSnakeを短縮します。
    ''' 起動時に表示されていた先頭のContentは消去されません。
    ''' </summary>
    Protected Sub TruncateSnake(ByVal cnt As Integer)
        Dim i As Integer = 0
        Dim tmp As ContentWrapper
        Do
            tmp = Me.SnakeLocus.Peek()
            If tmp.Content Is m_startupContent Then Exit Do
            If i >= cnt Then Exit Do
            tmp = Me.SnakeLocus.Pop()
            Me.closeContent(tmp)
            i += 1
        Loop
        tmp.NextDir = Direction.None
        tmp.Content.Invalidate()
        Me.HotContent = tmp
    End Sub


    Private Sub closeContent(ByVal cw As ContentWrapper)
        '↓派生クラスに処理のチャンスを与える。
        Me.OnClosingContent(cw)

        Me.SuspendLayout()
        Dim c As Control = cw.Content
        c.Visible = False
        Me.Controls.Remove(c)
        c.Dispose()
        cw.Content = Nothing ' ←Paintイベントハンドラを削除するため
        Me.AllContents(cw.XY.X, cw.XY.Y) = Nothing
        Me.ResumeLayout(False)
    End Sub

    Private Function createContent(ByVal x As Integer, ByVal y As Integer, _
        ByVal cx As Integer, ByVal cy As Integer, ByVal dr As Direction) As ContentWrapper
        '引数x,yは、展開元または展開先Contentのクライアント座標（複雑なので説明は省略）
        '引数cx,cyは、展開先Contentを格子に見立てた場合の座標
        '引数drは、Contentの展開方向（例えば、下に展開した場合にはDirection.Down）

        '↓新しいContentを生成（中身は派生クラスで実装）
        Dim c As Control = OnCreateNewContent(cx, cy, dr)
        If c Is Nothing Then Return Nothing

        If Me.HotContent IsNot Nothing Then
            Me.HotContent.NextDir = dr
            Me.HotContent.Content.Invalidate()
        End If

        Me.SuspendLayout()
        Dim cw As New ContentWrapper
        cw.Content = c
        cw.Parent = Me
        cw.XY = New Point(cx, cy)
        cw.PrevDir = Me.GetOppositeDirection(dr)
        cw.m_showborderline = Me.ShowContentsBorderLine
        cw.m_borderlinewidth = Me.ContentsBorderLineWidth
        cw.m_borderlinecolor = Me.ContentsBorderLineColor
        Me.AllContents(cx, cy) = cw
        Me.SnakeLocus.Push(cw)

        '新Contentのクライアント座標を決定
        Select Case dr
            Case Direction.Down
                'この場合は引数x,yは既に新Contentの座標が渡されるようになっている
                c.Location = New Point(x, y)
            Case Direction.Up
                c.Location = New Point(x, y - c.Height)
            Case Direction.Left
                c.Location = New Point(x - c.Width, y)
            Case Direction.Right
                'この場合は引数x,yは既に新Contentの座標が渡されるようになっている
                c.Location = New Point(x, y)
            Case Direction.None
                ' 起動時に最初に表示されるContentのみここに来る
                c.Location = New Point(x, y)
                ' ↓画面の見栄えを良くするための苦し紛れの処理
                cw.PrevDir = Direction.Up
        End Select

        c.Visible = True
        Me.Controls.Add(c)
        Me.HotContent = cw
        Me.ResumeLayout(False)
        Return cw
    End Function

    'マウスカーソルの位置を読み取って新しいContentを作る
    Private Sub DoTrack()
        Dim pt As Point = Me.PointToClient(Cursor.Position)
        Dim hci As ContentWrapper = Me.HotContent
        Dim hc As Control = hci.Content

        If hc.Bounds.Contains(pt) Then Return

        Dim x As Integer = hc.Location.X
        Dim y As Integer = hc.Location.Y
        Dim cx As Integer = hci.XY.X
        Dim cy As Integer = hci.XY.Y
        Dim dr As Direction = Direction.None

        If False Then
        ElseIf pt.Y < hc.Top Then
            If y < hc.Height Then Return ' Formからはみ出る場合は無視
            cy -= 1 : dr = Direction.Up ' yは新Content生成後に計算
        ElseIf hc.Bottom < pt.Y Then
            If y + (hc.Height * 2) > Me.ClientSize.Height Then Return ' Formからはみ出る場合は無視
            y += hc.Height : cy += 1 : dr = Direction.Down
        ElseIf pt.X < hc.Left Then
            If x < hc.Width Then Return ' Formからはみ出る場合は無視
            cx -= 1 : dr = Direction.Left ' xは新Content生成後に計算
        ElseIf hc.Right < pt.X Then
            If x + (hc.Width * 2) > Me.ClientSize.Width Then Return ' Formからはみ出る場合は無視
            x += hc.Width : cx += 1 : dr = Direction.Right
        End If

        'ランチャーの外なら無視
        If cx < 0 OrElse cy < 0 Then Return

        If Me.AllContents.Item(cx, cy) Is Nothing Then
            '新しいContentを作成
            Me.createContent(x, y, cx, cy, dr)
        Else
            '以下、Contentを消去するかどうかの判定

            '起動時に最初に表示されたContentは消去しない
            If Me.HotContent Is Me.m_startupContent Then Return
            'Stackの上から２つ目の要素を読み取る
            '（ここに来る場合はStackに２つ以上の要素が入っている）
            Dim tmp As ContentWrapper = SnakeLocus.Pop()
            Dim peekcw As ContentWrapper = SnakeLocus.Peek()
            SnakeLocus.Push(tmp)

            If peekcw Is AllContents.Item(cx, cy) Then
                If Me.CanAutoShrink = True Then
                    'Snakeを１つ短縮
                    Me.TruncateSnake(1)
                End If
            Else
                '自身の軌跡とは交差できない仕様
                Return
            End If
        End If
    End Sub

End Class

'　　　　　　　　　　　　　　　（コードの終わり）

１４回目の投稿です

　ここから先はおまけです。

　　以下のコードは、ContentSnakeBaseの派生クラスのかなり簡単な例です。
　　丸いContentの中に矢印文字を描画します。
　　仮に（仮にですよ）、「自作コンテンツでSnake」にチャレンジされる場合は、参考にしてみてください。
　　繰り返しになりますが、VC#2005以降で派生クラスを作成可能です。

'＜おまけ＞
'ArrowSnake用のエントリポイント
Public Class ProgramArrow
    '↓コメント解除して使ってください。
    'Public Shared Sub Main()
    '    Application.EnableVisualStyles()
    '    Dim frm As New Launcher(Of ArrowSnake)
    '    Application.Run(frm)
    'End Sub
End Class
'かなり簡単な派生クラスの一例（丸いContentの中に矢印文字を描画）
Public Class ArrowSnake
    Inherits ContentSnakeBase

    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Me.ShowContentsBorderLine = False
        Me.CanAutoShrink = True
        MyBase.OnLoad(e)
    End Sub
    Protected Overrides Sub OnClosingContent(ByVal cw As ContentSnakeBase.ContentWrapper)
        '何もしない
    End Sub
    Protected Overrides Function OnCreateNewContent(ByVal cx As Integer, ByVal cy As Integer, _
        ByVal dr As Direction) As System.Windows.Forms.Control
        Dim c As New Control
        c.Size = New Size(60, 60)
        Return c
    End Function
    Protected Overrides Sub OnHotContentChanged(ByVal cw As ContentSnakeBase.ContentWrapper)
        '何もしない
    End Sub
    Protected Overrides Sub OnHotContentChanging(ByVal cw As ContentSnakeBase.ContentWrapper)
        '何もしない
    End Sub
    Protected Overrides Sub OnPaintContent(ByVal cw As ContentSnakeBase.ContentWrapper, _
        ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim ss As String = ""
        Select Case cw.NextDir
            Case Direction.Down : ss = "↓"
            Case Direction.Up : ss = "↑"
            Case Direction.Left : ss = "←"
            Case Direction.Right : ss = "→"
            Case Direction.None : ss = "×"
        End Select

        Dim c As Control = cw.Content
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center
        e.Graphics.FillEllipse(Brushes.AntiqueWhite, c.ClientRectangle)
        Dim fnt As New Font(SystemFonts.MessageBoxFont.Name, 20)
        e.Graphics.DrawString(ss, fnt, Brushes.Black, c.ClientRectangle, sf)
        fnt.Dispose()
    End Sub
End Class

以上です。