И вправду, как!? Чтоб форма оставалась, как была, но без иконки...
Заранее благодарен!
alibek писал(а):Выбирашь свойства формы, становишься на строчку Icon (чтобы курсор мигал в поле ввода) и нажимаешь Del.
Z-zzz писал(а):Можно и так:
Form1.Caption=""![]()
Правда в этом случае исчезнет весь заголовок окна......
Но я ответил же на вопрос
Z-zzz писал(а):Vovik - ну согласись же я ведь ее все-таки убрал. Правда своеобразным способом, но убрал![]()
![]()
Option Explicit
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 Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
Private Sub Form_Load()
Dim lOldStyle As Long
Dim lNewStyle As Long
lOldStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lNewStyle = lOldStyle Xor WS_SYSMENU
Call SetWindowLong(Me.hwnd, GWL_STYLE, lNewStyle)
End Sub
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 9