VB2010 タブコントロールの簡単な並べ替え

（対象）VB2010（VB.NET）

今回はVB2010でのタブコントロール（タブページ）の
ドラッグ&ドロップによる並べ替えです。


ドラッグ&ドロップによるタブの並べ替えはタブコントロールを
使用する際、それがユーザーが増やせるタイプであれば
あるほど欲しくなる機能だと思います。

しかし、いざ検索しても出てくるのは難しい
ものばかり。かく言うブログ主も挑戦して
挫折しました。

それでも何とか並べ替えしたい。
そう思って試行錯誤した結果、簡単に並べ替えられる
方法を作成できました。

それがこちら↓

---

（必要なコントロール）
　・TabControl（名前：TabControl1）
　・Timer（名前：Timer1）




（ソース）

    '■変数

    Public Tab1 As TabPage        '---移動するタブ

    Public Tab2 As TabPage        '---移動先のタブ

    Public TabPosX1 As Double     '---移動するタブのX位置

    Public TabPosY1 As Double     '---移動するタブのY位置

    Public TabPosX2 As Double     '---移動先のX位置

    Public TabPosY2 As Double     '---移動先のY位置

    Public TimeCount As Integer   '---MouseMoveしている間にカウントされ続ける値

    Public I As Integer           '---諸動作

    Public SortFlg As Boolean     '---ソート中かどうかの判断用

 

 

    '===========================================================

    ' タブの並べ替え

    '　※右に移動 ＝ 色が変わったタブの右側に移動

    '　※左に移動 ＝ 色が変わったタブの左側に移動

    '===========================================================

    '１．MouseDownで現在のタブを取得

    Private Sub TabControl1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TabControl1.MouseDown

        '■現在地（X-Y）

        TabPosX1 = e.X

        TabPosY1 = e.Y

 

        '■タブの取得

        I = -1 : Tab1 = Nothing

        For cnt = 0 To TabControl1.TabCount - 1

            If TabControl1.GetTabRect(cnt).Contains(TabPosX1, TabPosY1) Then Tab1 = TabControl1.TabPages(cnt) : I = cnt : Exit For

        Next  '---タブの数だけ回すFor-Next

 

        '■タイマーをオンにして加算を開始

        TimeCount = 0

        Timer1.Start()

    End Sub

 

    '２．タイマーで値を増やす：Timerは200ミリ秒くらいごとに起動するようにしておく

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        '■値を加算し、ゼロを超えれば長押し中なのでカーソルの形式を変える

        TimeCount += 1

        If TimeCount > 0 Then Cursor = Cursors.NoMoveHoriz

    End Sub

 

    '３．移動先の場所を取得

    Private Sub TabControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabControl1.MouseMove

        '■カーソルのある位置を動くたびに取得

        TabPosX2 = e.X

        TabPosY2 = e.Y

    End Sub

 

    '４．MouseUpされたとき、ただのクリックか長押しかを判断し、長押しならマウスが離された先に移動

    Private Sub TabControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabControl1.MouseUp

        '■TimerCountの値が2未満なら処理を抜ける（2以上ある場合は確実に長押し）

        Cursor = Cursors.Arrow  '---カーソルを元に戻す

        Timer1.Stop()           '---タイマーを止める

        If TimeCount < 2 Then Exit Sub

 

 

        '■移動先のタブを取得

        I = -1 : Tab2 = Nothing

        For cnt = 0 To TabControl1.TabCount - 1

            If TabControl1.GetTabRect(cnt).Contains(TabPosX2, TabPosY2) Then Tab2 = TabControl1.TabPages(cnt) : I = cnt : Exit For

        Next  '---タブの数だけ回すFor-Next

        If IsNothing(Tab2) Then Exit Sub

 

 

        '■現在のタブを指定位置に追加し、元々のタブを削除

        SortFlg = True  '←SelectIndexChangeに何か処理が入っておりそれを行われると困る場合はこれでIF分挟んで処理を抜ける

        TabControl1.TabPages.Remove(Tab1)

        TabControl1.TabPages.Insert(I, Tab1)

        SortFlg = False

 

 

        '■元々開いていたタブを開く

        TabControl1.SelectedTab = Tab1

    End Sub

（実際のプログラム）

TabMoveTest
（クリックするとダウンロードが始まります）

※ダウンロードする際は自己責任でお願いします

---

以上です。

通常の移動のやり方と違うので「+」のマークは出ませんし
少々不恰好です。

が、多少不恰好でもとにかく移動機能が欲しい！ の方には
オススメかなと。


※この並べ替えは後日アップ予定のフリーソフトに
　使用している機能です。