| Вопрос: Возможно ли ?? | Добавлено: 20.03.07 14:41 |
Автор вопроса:  noname_kazan
|
|
Возможно ли в textbox вставить маленькую картинку,
типа смайлика ?? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Dark Вопросов: 4 Ответов: 41 |
Профиль | | #1 | Добавлено: 20.03.07 15:35 |
| В TextBox нельзя, в RtfTextBox - можно. | ||
|
Номер ответа: 2 Автор ответа: noname_kazanВопросов: 12 Ответов: 12 |
Профиль | | #2 | Добавлено: 20.03.07 16:38 |
|
А что это ??
И как это сделать ?? |
||
|
Номер ответа: 3 Автор ответа: DarkВопросов: 4 Ответов: 41 |
Профиль | | #3 | Добавлено: 20.03.07 18:38 |
|
Если VB 6.0 то:
Правый клик на панелики с компонентами -> Components -> Microsoft Rich Textbox Control (ставишь галку)->OK->Появляется новый компонент-> >Юзай. |
||
|
Номер ответа: 4 Автор ответа: EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #4 | Добавлено: 20.03.07 19:42 |
|
"Вставить картинку" можно куда угодно.
DrawIconEx |
||
|
Номер ответа: 5 Автор ответа: noname_kazanВопросов: 12 Ответов: 12 |
Профиль | | #5 | Добавлено: 20.03.07 19:45 |
|
"Вставить картинку" можно куда угодно.
DrawIconEx А можно поподробнее !! |
||
|
Номер ответа: 6 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #6 | Добавлено: 20.03.07 19:58 |
|
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Const DI_NORMAL = &H3 Private Sub Command1_Click()  im dcTx As Long
im hico As Long
hico = Icon dcTx = GetDC(Text1.hwnd) Call DrawIconEx(dcTx, 0, 0, hico, 16, 16, 0, 0, DI_NORMAL) Call ReleaseDC(Text1.hwnd, dcTx) End Sub 'разумеется все упрощенно, напряги мозг. |
||
Страница: 1 |