Конференция VBStreets

**vipe2004** » 23.06.2005 (Чт) 22:57

Хочу менять фон формы.

Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
Dim hdc As Long
hdc = GetDC(Me.hwnd)
SetBkColor hdc, 255
End Sub

Не работает. Что не так?

**tyomitch** » 23.06.2005 (Чт) 23:35

А просто поменять Form.BackColor - не легче?

SetBKColor не имеет отношения к фону окна. Она задаёт фон для вывода текста и линий.

**vipe2004** » 24.06.2005 (Пт) 0:10

Хочется с API. Как-то же можно?

**tyomitch** » 24.06.2005 (Пт) 0:21

vipe2004 писал(а):Хочется с API.

Это вызвано какими-то причинами, или приступ переAPIзма?

**vipe2004** » 24.06.2005 (Пт) 0:36

ПереAPIзм, наверное.

А правда, как через API?

**Kovu** » 24.06.2005 (Пт) 8:36

tyomitch писал(а):
vipe2004 писал(а):Хочется с API.

Это вызвано какими-то причинами, или приступ переAPIзма?

Он наверное хочет избавиться от MSVBVM60.dll

Только ничё у него не получится :twisted:

**vipe2004** » 24.06.2005 (Пт) 12:50

Правильно. Хочу.

**tyomitch** » 24.06.2005 (Пт) 13:31

Правильно. Не получится.

Конференция VBStreets

SetBkColor не пашет

SetBkColor не пашет

Кто сейчас на конференции