VB.NET 「アプリケーション フレームワークを有効にする」をオフにするとListViewのListViewGroupが正しく動作しない

Question

お世話になります。
前回、「VB.NET 画像（サムネイル）を日付ごとに分けて一覧で表示したい」という質問をさせて頂きました。
その際にListViewを使用するご提案を頂き、試しておるところでした。
おかげさまで実際に以下のように表示もされるようになりました。

①実現したい表示の仕方（「アプリケーション　フレームワークを有効にする」がオン状態）
2020年4月19日
□□□□□□□□□□
□□□

2020年4月18日
□□

2020年4月15日
□□□□□□□□□□
□□□□□□□□□

しかし、上記の内容で作成を進めていましたが
FormにListViewを貼り付け、クラスライブラリとして別のプログラムから参照するようにしてみたところ、
上記の①の表示が以下の②のように
日付の部分が表示されず、ただただ画像が並ぶだけの表示になってしまったのです。

②現状（「アプリケーション　フレームワークを有効にする」がオフ状態）
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
□□□□

色々と調べておりましたら、①のように表示される場合は、
ビルド時にソリューションのプロパティのアプリケーションタブ内の
アプリケーションの種類を「Windowsフォームアプリケーション」を選択し、
「アプリケーション　フレームワークを有効にする」をオンにすれば上記のような表示となるのですが、
アプリケーションの種類を「クラスライブラリ」でビルドをすると
「アプリケーション　フレームワークを有効にする」がオフ状態となり、
②のような表示となってしまいます。

クラスライブラリとしてビルドする場合、
何かよい回避策はありますでしょうか。

Private Sub DispListView()
        Dim intDayCnt As Integer
        Dim intPicCnt As Integer

        intDayCnt = 3
        intPicCnt = 12

        ImageList1.ImageSize = New Size(60, 60)

        '画像の代入
        ImageList1.Images.Add(Image.FromFile("C:\Picture\2020042117052920170302024400Penguins.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\20150711133910IMG_0267.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\2020042117052920170302024400Penguins.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\20150711133910IMG_0267.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\2020042117052920170302024400Penguins.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\20150711133910IMG_0267.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\2020042117052920170302024400Penguins.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\20150711133910IMG_0267.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\2020042117052920170302024400Penguins.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\20150711133910IMG_0267.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\2020042117052920170302024400Penguins.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\20150711133910IMG_0267.jpg"))
        ImageList1.Images.Add(Image.FromFile("C:\Picture\2020042117052920170302024400Penguins.jpg"))

        With Me.ListView1
            .View = View.Tile
            .TileSize = New Size(70, 70)
            .LargeImageList = ImageList1
            Dim dt As DateTime = DateTime.Now.Date
            For i As Integer = 0 To intDayCnt - 1   '日付行の数
                Dim gdate As DateTime = dt.AddDays(i)
                Dim lvg As New ListViewGroup
                lvg.Header = gdate.ToString("yyyy年MM月dd日")
                .Groups.Add(lvg)
              
                For j As Integer = 0 To intPicCnt   '画像の枚数
                    Dim lvi As New ListViewItem
                    lvi.Group = lvg
                    lvi.ImageIndex = j

                    .Items.Add(lvi)
                Next
            
            Next
        End With
        
    End Sub

宜しくお願い致します。

Comments

[YAmaGNZ]

そのライブラリを使用するアプリ側はフレームワークを有効にしていないのですか？

[matsutake]

お世話になります。
ご回答、ありがとうございました。
呼び出し側の「アプリケーション　フレームワークを有効にする」をオンにしましたら
望んでいるような表示は出来ました。
しかし、呼び出し側の画面のボタンの表示が最初はクラシックスタイルなのですが、
今作成中の画面を呼び出した時点からXPスタイル？（丸みのかかったボタン）になってしまうのです。
関係あるのかわかりませんが、呼び出し側も呼ばれる側のプロパティ内の
「XP Visualスタイルを有効にする」はオフにしてあります。
何かご存知でしょうか。

Answer 1

ListViewGroup が有効になるかどうかは、Visual Style の設定によります。

「ListViewGroup クラス」
https://docs.microsoft.com/ja-jp/dotnet/api/system.windows.forms.listviewgroup

Application.EnableVisualStyles() を呼ぶことで有効になるのですが、このメソッドは最初のフォームを作る前、
（正確にはウインドウハンドルが作成される前）に呼び出さないと有効になりません。

ですので使う側で呼び出すのが一般的です。

Sub Main から起動している場合は以下のようにします。

Sub Main()
    Application.EnableVisualStyles()
    Application.SetCompatibleTextRenderingDefault(False)
    Application.Run(New Form1())
End Sub

Shared コンストラクタに入れとくといいかもしれませんが、本当に気休めです。

Shared Sub New()
    Application.EnableVisualStyles()
End Sub

Comments

[matsutake]

お世話になります。
ご回答、ありがとうございました。
入れてみたいと思います。