VB.NET フォームの×ボタンについて

Question

現在、VB.NETを使用したフォームアプリを作成しております。
作成を進めていくにあたり、フォーム右上に表示される×(ばつ)ボタンを消す必要が出てきた為調べていたのですが、以下のような×ボタンが半透明状態になり、押せなくなるコードしか見つけることが出来ません。
×ボタンのみ消す場合、何かいい方法はありませんでしょうか。
(最小化、最大化を非表示にしてはいけない)

Public Sub New()
    InitializeComponent()
    Dim SC_CLOSE As Integer = &HF060L
    Dim MF_BYCOMMAND As Integer = &H0
    ' コントロールボックスの［閉じる］ボタンの無効化
    Dim hMenu As IntPtr = GetSystemMenu(Me.Handle, 0)
    RemoveMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
End Sub

<DllImport("USER32.DLL")> _
Private Shared Function GetSystemMenu(ByVal hWnd As IntPtr, ByVal bRevert As Integer) As IntPtr
End Function

<DllImport("USER32.DLL")> _
Private Shared Function RemoveMenu(ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
End Function

Answer 1

こんにちは。

閉じる（×）ボタンを非表示ではなく無効ではダメですかね。
ご参考までに。

フォームの閉じるボタンを無効にする

Comments

[Alice0225]

ご回答ありがとうございます。
現在すでに×ボタンの無効化、システムメニューの「閉じる(C)」の削除は完了している状態になります。

Answer 2

Tak1waさんがおっしゃるようにタイトルバーを自作しないと無理なようです。
以下にサンプルがあります。

gTitleBar - Custom TitleBar for Borderless Forms (VB.NET)

このサンプルでは[ShowCloseBox]プロパティが設けられており、
Falseにすることで×ボタンが非表示になります。

Comments

[Alice0225]

ご回答ありがとうございます。
サンプルのご提示ありがとうございます。
ちょっとだけ拝見させていただきましたが私にはまだまだ敷居が高そうですね…。
今回はとりあえず現状のままとしたいとおもいます！

Answer 3

こんにちは。

多分無理です。
ウインドウタイトル部分は非クライアント領域でOSが管理している部分だからです。

自分で非クライアント領域相当のタイトルバーを作りこむ必要があります。
WinFormsでなくWPFであればWindowChrome機能があるので労力は少なくて済みますが、WinFormsで完全にエミュレートしようとすると相当骨が折れると思います。

＃Win32のディープな部分に詳しい方からなら、良い解決策が出るかも

Comments

[Alice0225]

ご回答ありがとうございます。
やはり簡単にーというわけにはいかないのですね。
VB.NETの勉強をしつつタイトルバー自作についても調べていきたいと思います！