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

■No99265 (エックス さん) に返信
> VB.NETを使ってメッセージボックスを表示したいのですが、
> 規定のMessageboxでは表示できるアイコンが限られているため、
> 自作したいと考えています。

アイコンを変更するだけなら、MessageBoxIndirect を使う方法があります。

Win32リソースを埋め込む必要がありますので

「Win32リソースを実行ファイルに埋め込む」
https://dobon.net/vb/dotnet/programing/embedwin32resource.html

を参照してください。

このとき設定したリソースIDを MSGBOXPARAMS 構造体の lpszIcon メンバの値に指定することになります。

Imports System.Reflection
Imports System.Runtime.InteropServices

Public Class Form1

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)>
    Private Class MSGBOXPARAMS
        Public cbSize As Integer
        Public hwndOwner As IntPtr
        Public hInstance As IntPtr
        Public lpszText As String
        Public lpszCaption As String
        Public dwStyle As Integer
        Public lpszIcon As IntPtr
        Public dwContextHelpId As IntPtr
        Public lpfnMsgBoxCallback As IntPtr
        Public dwLanguageId As Integer
        Public Sub New()
            cbSize = Marshal.SizeOf(Me)
        End Sub
    End Class

    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function MessageBoxIndirect(lpMsgBoxParams As MSGBOXPARAMS) As DialogResult
    End Function

    Private Const MB_USERICON As Integer = &H80

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim msg As New MSGBOXPARAMS With {
            .hwndOwner = Me.Handle,
            .lpszText = "いろはにほへとちりぬるを",
            .hInstance = Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()(0)),
            .lpszCaption = "Caption",
            .dwStyle = MB_USERICON Or MessageBoxButtons.OKCancel,
            .lpszIcon = New IntPtr(101) ' ID_ICON1
            }
        Dim result As DialogResult = MessageBoxIndirect(msg)
    End Sub
End Class

ありがとうございます。

ただ、やはり、魔界の仮面弁士の方法でいけるなら
こちらを試したいと考えております。


> 既存のメッセージボックスと同様に、Labelの文字数が少ない場合には、Labelの幅に合わせてウインドウサイズを調整
> ある程度、大きくなると、フォームの横幅を固定し、長い文字列を折り返した上で、フォームの高さを調整

を実現するためには、LabelのMaximumSizeに
400,0のようなSizeを設定しておけば、
幅が400以下なら自動で調節、それ以上なら400で固定で自動で改行してくれることに気が付きました。


そのため、以下のようなコードでうまくいくことが分かりました。

    Public Shared Function ShowMessage(owner As IWin32Window, msg As String) As DialogResult
        Using dlg As New Form1()

            dlg.Label1.MaximumSize = New Size(400, 0)
            dlg.Label1.Text = msg

            dlg.ClientSize = Drawing.Size.Add(dlg.Label1.Size, New Drawing.Size(60 + 6, 76))

            Return dlg.ShowDialog(owner)
        End Using
    End Function


ただ、問題は、PictureBoxやButtonを配置するために、Tablelayoutpanel内にLableを配置すると、
メッセージボックス内の文字数が増えた際に、
Labelの高さが190を超えた辺りで、Labelの高さが飽和してしまい、
それ以上大きくならなくなり、全ての文字列がウインドウに表示されません。

Tablelayoutpanelを描画した後でないといけないのではないかと思い、
MyBase.Shownで


            dlg.ClientSize = Drawing.Size.Add(dlg.Label1.Size, New Drawing.Size(60 + 6, 76))

を実行してみると、多少は上限値が改善されたのですが
やはり、文字数が多いと文字列が全て描画されません。

Tablelayoutpanel内にLableを入れなければ
うまくいくのですが、どのようにすればTablelayoutpanelに入れた状態で機能させることができますか？