タイトルバーをformのプロパティーで非表示に下のですが、
画面下にあるタスクバーに表示したいのですがどうすれば
いいのですか?
よろしくお願いします。
下のような感じではどうですか?
'---------------------------------------------------------------------
Option Explicit
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" ( _
ByVal hWnd As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000
Private Sub Form_Load()
Dim lStyle
lStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
SetWindowLong Me.hWnd, GWL_STYLE, lStyle And (Not WS_CAPTION)
DrawMenuBar Me.hWnd
End Sub
たしか、フォームのプロパティで設定出来たと思います。
タスクバーにアイコンとキャプションを残したままタイトルバーを 外す方法なら
下記にサンプルがあります。
http://www.bcap.co.jp/hanafusa/VBHLP/TitleReleace.htm
ツイート | ![]() |