|
こんばんわ。
>タイトルのところそのものを消したいんです
それやったらAPI使う必要があります。
こんなんかな?
'(フォームモジュール)
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Sub UserForm_Activate()
Dim Ret As Long
Dim hWnd As Long
Dim WndStyle As Long
hWnd = GetActiveWindow()
WndStyle = GetWindowLong(hWnd, GWL_STYLE)
WndStyle = WndStyle And (Not WS_CAPTION)
Ret = SetWindowLong(hWnd, GWL_STYLE, WndStyle)
Ret = DrawMenuBar(hWnd)
End Sub
Private Sub UserForm_Click()
Me.Hide
End Sub
タイトルバーを非表示にするとユーザーフォームを閉じるボタンも非表示になるんで、
上記例ではユーザーフォームのクリックで閉じるようにしてます。
実際はコマンドボタンとかを配置することになると思うよ。
試してみてな。
ほな。
|
|