| Вопрос: Me.BorderStyle / Runt-time | Добавлено: 23.07.06 17:40 |
Автор вопроса:  Resonator
|
| Ответы | Всего ответов: 19 |
|
Номер ответа: 16 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #16 | Добавлено: 25.07.06 11:57 |
|
Какой пример нужен?
Ну, для примера - создай форму с BorderStyle = Fixed Single и попробуй такую фишку 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 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 Sub Command1_Click() Dim Style As Long Style = GetWindowLong(Me.hwnd, GWL_STYLE) SetWindowLong Me.hwnd, GWL_STYLE, Style Or &H40000 SetWindowPos Me.hwnd, 0, 0, 0, 0, 0, 7 Or &H20 'Yeah, I'm sizable window! End Sub Private Sub Command2_Click() Me.Caption = Me.Caption 'Oh no, i'm fixed window with lags in redraw! End Sub Это для простоты. Попрой стиль окна настраивается сложнее, и довольно неприятно когда его сливает простое изменение Caption'а. |
||
|
Номер ответа: 17 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #17 | Добавлено: 25.07.06 19:00 |
| хм... | ||
|
Номер ответа: 18 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #18 | Добавлено: 26.07.06 11:08 |
Ну, не надо так отчаиваться  Ведь не часто приходится настраивать стиль через АПИ, а со стандартными свойствами класса окна VB-шные функции работают почти всегда корректно 
|
||
|
Номер ответа: 19 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #19 | Добавлено: 26.07.06 18:26 |
| да не, просто клёвый пример ты привёл, да и я не знал, что бывает такая хрень))) | ||