TabStripのイベントについて

Question

VB6にて開発しています。

VB.NETと違い、VB6の[TabStrip]には各ページにコンテナが用意されていません。
そこで、[PictureBox]をコンテナにして、実行時の[Crick]イベントにて
[SelectedItem.Index]を参照し、[Visible]プロパティを切り替えて使用しています。

しかしここでひとつ不具合が起こります。

タブをクリック(押下)したままドラッグしてフォーム外でドロップすると、
タブ自体は切り替わりますが、[Crick]イベントが発生しません。
[TabStrip]の[MouseUp]イベント時に[Crick]イベントをコールするという方法で
回避しています。

ですが、そもそも一般のタブは（例えば画面のプロパティ等のタブ）
マウスを押した(押下)時点でページが変わります。

これを実現したく、思考錯誤しています。

[Crick]イベントでは、マウスを押して放した時にイベントが発生します。
マウスを押した(押下)時点で切り替えるには、必然的に[MouseDown]時に
[Visible]プロパティを切り替えなければいけないと思うのです。

が、イベントの発生順序は[MouseDown]→[Crick]→[MouseUp]という順で発生する為、
どうしても[Crick]時に取得する[SelectedItem.Index]が[MouseDown]時に取得できず、
実現しません。

VB6でマウスを押した(押下)時のページ切り替えを実現する方法はないのでしょうか？

[参考]
Private Sub TabStrip1_Click()
Dim i As Byte
With Me
    For i = 0 To 8
        .Picture1(i).Visible = False
    Next i
    i = .TabStrip1.SelectedItem.Index - 1
    .Picture1(i).Visible = True
End With
End Sub

piyo2000 · Accepted Answer

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1115409
でも回答してますが、MouseDownで座標からClick位置を割り出す方法がありますね。
このとき回答した内容にバグがあったので手直しして、ついでに参考コードも幾分スマートに書き直してみました(^^;

Private Sub TabStrip1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Long
Dim idx As Long
idx = GetTabSelection(TabStrip1, x, y) - 1
For i = 0 To Picture1.Count - 1
    Picture1(i).Visible = (i = idx)
Next i

End Sub

Private Function GetTabSelection(oCtrl As TabStrip, x As Single, y As Single) As Long

    GetTabSelection = oCtrl.SelectedItem.Index
    Dim oTab As ComctlLib.Tab
    For Each oTab In oCtrl.Tabs
        With oTab
            If (.Left + .Width) >= x + oCtrl.Left And _
                .Left <= x + oCtrl.Left Then
                'If y + oCtrl.Top <= .Height Then
                If y <= .Height Then
                    GetTabSelection = oTab.Index
                    Exit For
                End If
            End If
        End With
    Next

End Function

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=1115409

piyo2000 · Answer

>[idx = GetTabSelection(TabStrip1, x, y) - 1]の行にて型が一致しないというエラーが出てしまいます。

GetTabSelection()では、TabStripを引数にしてますが
名前解決が出来てないのではないでしょうか？
Common Controlを複数参照設定していると、どっちのTabStripかを指定する必要があります。

oCtrl As TabStrip
を
oCtrl As ComctlLib.TabStrip
として試してみてください。

それでも駄目なら、GetTabSelection()から第一引数を取り去って、GetTabSelection()中のoCtrlを全て(Me.)TabStrip1(直接参照)としてみてください。

Kuppycat · Answer

＃４です。

SSTabでのフォーカス移動ですが、これはTabStripと同じように各タブに対してFrameやPictureBoxでコンテナを作れば解決します。
コンテナが２重になりますが、制御は楽だと思います。

XPスタイルに関してはどうしようもありませんね。
役に立たなくてすみません（＾＾；

Kuppycat · Answer

質問の意図とは違いますが、ひとつの解決策として。
SSTab(Microsoft Tabbed Dialog Control)を使用する。
というのはいかがでしょうか？
ビジュアルに差もありませんよ。

piyo2000 · Answer

度々すみません。#2です。

紹介したサンプルコードは右クリックの場合等(つまりButton/Shift)の処理が抜けていますので、右クリックだとおかしくなっちゃいます。
あとタブは展開されていること(横幅が少ないとき←→が表示されますが、そうでない場合)と、一列であることが前提です。
その辺は宿題ということで・・・(^^;

hope10 · Answer

>ドラッグしてフォーム外でドロップすると、
これは TabStrip 領域外ですね？
初めて知りました。曲者ですね。

イベント順ですが本来は
[MouseDown]→[MouseUp]→[Crick]
が正しいと思います。バージョンによって異なるのかも知れませんが...
恐らくそちらでは[MouseDown]の中からTabStrip1_Click()を呼んでいるので、そう見えるだけだと言う事ですよね。

それで結局どうするかですが、TabStrip1_MouseDown()の終わり当りでマウスキャプチャを解放してやれば全てうまくいくのではないかと思います。
　もちろんドラッグは出来なくなりますが、一連の[MouseDown]→[MouseUp]→[Crick]が起こると思います。
ReleaseCpature()API辺りを調べてみてやってみて下さい。

TabStripのイベントについて

>[idx = GetTabSelection(TabStrip1, x, y) - 1]の行にて型が一致しないというエラーが出てしまいます。

＃４です。

質問の意図とは違いますが、ひとつの解決策として。

度々すみません。

>ドラッグしてフォーム外でドロップすると、

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング