Как программно изменить стиль окна???

[.:[nnn]:.]

Здравствуйте...у меня тут проблемка возникла...У меня есть: форма - Form1 и кнопочка - Command1...требуется...при нажатии на кнопочку...у формы скрывались бордюры...я делаю это так:

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()

Me.BorderStyle = 0

End Sub

Но у меня ничё неработает (((((...подскажите пожалуста что я делаю нетак???

[GSerg]

Всё делаешь не так.

И не с глаголами слитно пишешь, и пытаешься изменить неизменямое свойство окна.

[Naked]

Код: Выделить всё

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_VISIBLE = &H10000000

Private Sub Form_Click()
    SetWindowLong Form1.hwnd, GWL_STYLE, WS_VISIBLE
End Sub



[NIC]

Код: Выделить всё

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_VISIBLE = &H10000000

Private Sub Form_Click()
    SetWindowLong Form1.hwnd, GWL_STYLE, WS_VISIBLE
End Sub



А изменить свойство Show in TaskBar с помощью API реально???

[Kovu]

А изменить свойство Show in TaskBar с помощью API реально???

Да

[NIC]

А функция какая требуеться?

[tyomitch]

SetWindowLong

[Kovu]

Код: Выделить всё

SetWindowLong Form1.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_APPWINDOW

[NIC]

Чё-то не работает код.Да и значение WS_EX_APPWINDOW в API нет.

[Kovu]

поиск рулит
http://bbs.vbstreets.ru/viewtopic.php?p=55946#55946

[.:[nnn]:.]

Код: Выделить всё

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_VISIBLE = &H10000000

Private Sub Form_Click()
    SetWindowLong Form1.hwnd, GWL_STYLE, WS_VISIBLE
End Sub



Большое спасибо работает как часы...и ещё вопросик...а как вернуть бордюры назад...

[GSerg]

Офигительно... свойство Visible ещё, по-моему, не APIзировали...