Сообщество Чайников

Вопрос

Каким образом поменять цвет рамки, с черноного на кой-нить еще, у ТекстБокса, который имеет свойство Apearance=Flat?

Ответ

Private Sub Form_Click()
Dim lngDC
As Long Dim lngTemp
As Long Dim lngPen
As Long Dim pntPoints(4)
As POINTAPI pntPoints(0)
.x = 0 pntPoints(0)
.y = 0 pntPoints(1)
.x = 0 pntPoints(1)
.y = Text1.Height — 1 pntPoints(2)
.x = Text1.Width — 1 pntPoints(2)
.y = Text1.Height — 1 pntPoints(3)
.x = Text1.Width — 1 pntPoints(3)
.y = 0 pntPoints(4)
.x = 0 pntPoints(4)
.y = 0
lngDC = GetDC(Text1.hwnd)
lngBrush = CreatePen(PS_SOLID, 1, vbBlue)
lngTemp = SelectObject(lngDC, lngBrush)
lngTemp = PolylineTo(lngDC, pntPoints(0), 5)
End Sub

Объявления функций и констант сделай сам.

Из конференции Expert_FAQ