Как можно скрыть заголовок формы? - Разное - Интересные решения для программистов - Примеры кода

Разное → Как можно скрыть заголовок формы? → Visual Basic

Иногда требуется спрятать заголовок формы (Form), сохранив при этом свойства формы, такие как, например, Sizable. В таком случае может помочь следующий код. Создайте стандартный EXE-проект. Разместите на форме (Form) два элемента CommandButton и добавьте следующий код:

Option Explicit 
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long 
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const GWL_STYLE = (-16) 
Private Const WS_CAPTION = &HC00000 
Private Const WS_MAXIMIZEBOX = &H10000 
Private Const WS_MINIMIZEBOX = &H20000 
Private Const WS_SYSMENU = &H80000

Private Enum ESetWindowPosStyles 
 SWP_SHOWWINDOW = &H40 
 SWP_HIDEWINDOW = &H80 
 SWP_FRAMECHANGED = &H20 
 SWP_NOACTIVATE = &H10 
 SWP_NOCOPYBITS = &H100 
 SWP_NOMOVE = &H2 
 SWP_NOOWNERZORDER = &H200 
 SWP_NOREDRAW = &H8 
 SWP_NOREPOSITION = SWP_NOOWNERZORDER 
 SWP_NOSIZE = &H1 
 SWP_NOZORDER = &H4 
 SWP_DRAWFRAME = SWP_FRAMECHANGED 
 HWND_NOTOPMOST = -2 
End Enum

Private Type RECT 
 Left As Long 
 Top As Long 
 Right As Long 
 Bottom As Long 
End Type

Private Function ShowTitleBar(ByVal bState As Boolean) 
 Dim lStyle As Long 
 Dim tR As RECT 
 GetWindowRect Me.hwnd, tR 
 lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) 
 If (bState) Then 
  Me.Caption = Me.Tag 
  If Me.ControlBox Then 
   lStyle = lStyle Or WS_SYSMENU 
  End If 
  If Me.MaxButton Then 
   lStyle = lStyle Or WS_MAXIMIZEBOX 
  End If 
  If Me.MinButton Then 
   lStyle = lStyle Or WS_MINIMIZEBOX 
  End If 
  If Me.Caption = "" Then 
   lStyle = lStyle Or WS_CAPTION 
  End If 
 Else 
  Me.Tag = Me.Caption 
  Me.Caption = "" 
  lStyle = lStyle And Not WS_SYSMENU 
  lStyle = lStyle And Not WS_MAXIMIZEBOX 
  lStyle = lStyle And Not WS_MINIMIZEBOX 
  lStyle = lStyle And Not WS_CAPTION 
 End If 
 SetWindowLong Me.hwnd, GWL_STYLE, lStyle 
 SetWindowPos Me.hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED 
 Me.Refresh 
End Function

Private Sub Command1_Click() 
 ShowTitleBar False 
End Sub

Private Sub Command2_Click() 
 ShowTitleBar True 
End Sub

Private Sub Form_Load() 
 Caption = vbNullString 
 Command1.Caption = "Спрятать заголовок" 
 Command2.Caption = "Показать заголовок" 
End Sub

caption, form, hide, vb, visual basic

KOS_MOS

unknown

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Разное → Как можно скрыть заголовок формы? → Visual Basic Иногда требуется спрятать заголовок формы (Form), сохранив при этом свойства формы, такие как, например, Sizable. В таком случае может помочь следующий код. Создайте стандартный EXE-проект. Разместите на форме (Form) два элемента CommandButton и добавьте следующий код: Option Explicit 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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Const GWL_STYLE = (-16) Private Const WS_CAPTION = &HC00000 Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_SYSMENU = &H80000 Private Enum ESetWindowPosStyles SWP_SHOWWINDOW = &H40 SWP_HIDEWINDOW = &H80 SWP_FRAMECHANGED = &H20 SWP_NOACTIVATE = &H10 SWP_NOCOPYBITS = &H100 SWP_NOMOVE = &H2 SWP_NOOWNERZORDER = &H200 SWP_NOREDRAW = &H8 SWP_NOREPOSITION = SWP_NOOWNERZORDER SWP_NOSIZE = &H1 SWP_NOZORDER = &H4 SWP_DRAWFRAME = SWP_FRAMECHANGED HWND_NOTOPMOST = -2 End Enum Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Function ShowTitleBar(ByVal bState As Boolean) Dim lStyle As Long Dim tR As RECT GetWindowRect Me.hwnd, tR lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) If (bState) Then Me.Caption = Me.Tag If Me.ControlBox Then lStyle = lStyle Or WS_SYSMENU End If If Me.MaxButton Then lStyle = lStyle Or WS_MAXIMIZEBOX End If If Me.MinButton Then lStyle = lStyle Or WS_MINIMIZEBOX End If If Me.Caption = "" Then lStyle = lStyle Or WS_CAPTION End If Else Me.Tag = Me.Caption Me.Caption = "" lStyle = lStyle And Not WS_SYSMENU lStyle = lStyle And Not WS_MAXIMIZEBOX lStyle = lStyle And Not WS_MINIMIZEBOX lStyle = lStyle And Not WS_CAPTION End If SetWindowLong Me.hwnd, GWL_STYLE, lStyle SetWindowPos Me.hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED Me.Refresh End Function Private Sub Command1_Click() ShowTitleBar False End Sub Private Sub Command2_Click() ShowTitleBar True End Sub Private Sub Form_Load() Caption = vbNullString Command1.Caption = "Спрятать заголовок" Command2.Caption = "Показать заголовок" End Sub caption, form, hide, vb, visual basic KOS_MOS unknown 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt