Картинка фоном Текст-Боксу

[AlexBlack]

Доброе вам время суток интернета.

Я хочу поместить картинку на фон текстбоксу.
Кто-нибудь мне может помочь в этом тяжёлом деле?

Заранее премного благодарствую.

[Alexanbar]

см. в окне освойств Text1.Backcolor

[tyomitch]

Я хочу поместить картинку на фон текстбоксу.
Кто-нибудь мне может помочь в этом тяжёлом деле?

Перехватывай WM_PAINT, и рисуй свою картинку.

Есть ещё один вариант: разместить картинку под текстбоксом, а сам текстбокс сделать прозрачным.

[AlexBlack]

Alexanbar
Класс! И как онное свойство помогает разместить картинку??
Думать надо прежде чем постить всякое....

[Alexanbar]

Alexanbar
Класс! И как онное свойство помогает разместить картинку??
Думать надо прежде чем постить всякое....

Лично я подумал, что проблема в том, чтобы покрасить textbox в серрый цвет.

[AlexBlack]

Alexanbar
Да, я как-то такие проблемы перерос...

[AlexBlack]

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

Private Sub Form_Load()
hWndEdit = CreateWindowEx(0, "EDIT", "2", WS_CHILDWINDOW + WS_BORDER + WS_VISIBLE, 10, 10, 120, 30, Me.hwnd, 0, App.hInstance, 0)
SetBkMode GetDC(hWndEdit), TRANSPARENT
End Sub

Вот до этого я додумался... Но только толку мало. После SetBKMode текст бокс перестал біть изменяемым, а фон так и не стал прозрачным

Помогите а...

[tyomitch]

AlexBlack, SetBkMode надо вызывать в обработчике WM_CTLCOLOREDIT
А вызывать GetDC без ReleaseDC - страшный грех, за который разработчиков Билли в аду будет лупить по пяткам

[AlexBlack]

Теперь додумался до этого:

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

Private Sub Form_Load()
hwndEdit = CreateWindowEx(0, "EDIT", "", WS_BORDER + WS_CHILD + WS_VISIBLE, 10, 10, 200, 30, Me.hWnd, 0, App.hInstance, 0)
SubClasser.AddSubclassHook hwndEdit, Me, DoNotTransfer
End Sub

Private Function ISubclass_Callback(ByVal hWnd As Long, ByRef uMsg As Long, ByRef wParam As Long, ByRef lParam As Long, ByVal PrevProc As Long) As Long
Select Case uMsg

Case WM_CTLCOLOREDIT
    Call SetBkColor(wParam, TRANSPARENT)
    ISubclass_Callback = SubClasser.CallWindowProc(PrevProc, hWnd, uMsg, wParam, lParam)

Case Else
    ISubclass_Callback = SubClasser.CallWindowProc(PrevProc, hWnd, uMsg, wParam, lParam)
   
End Select
End Function

И... ничего. тишина. точно так же.
И на uMsg=WM_CTLCOLOREDIT вааще не ничё не приходит

[575-61]

а почему Call SetBkColor(wParam, TRANSPARENT)
а не Call SetBkMode(wParam, TRANSPARENT)

[AlexBlack]

Поменял. толку мало.

[AlexBlack]

Ну что никто мне ничего не скажет? Ну пожалуйста, помогите...
У меня дети голодные, маме на операцию, с утра хлеб не кушал (Ну и всё в таком духе)

Бедный я! Помогите кто чем сможет! П-Л-З!

[GM]

Такой примерчик не подойдет:
http://vbaccelerator.com/home/VB/Code/L ... ration.asp

[AlexBlack]

Это самое то.... оно...

За это самое огромное "ПАСИБО"!

[tyomitch]

Поменял. толку мало.

ICIM, сабклассить надо было не сам Edit, а его родителя.
Тут ( http://bbs.vbstreets.ru/viewtopic.php?p=158629#158629 ) я говорил то же самое - неужели лень было прочитать весь тот топик, на который я давал ссылку?

[575-61]

Я так и не понял. что там нового, Вам предложили?
Действительно, пример онологичен указанному ранее.
У меня была проблема прозрачности окна.
Я ее решил просто, но мне стоило это времени.
А у Вас судя по примеру прозрачность не окна была нужна, а прозрачность текстового поля.
Решается это по другому..... и всего в 2 оператора.
Я не даром спросил у Вас о Call SetBkColor(wParam, TRANSPARENT)
или Call SetBkMode(wParam, TRANSPARENT) - это совсем разные вещи и разные парамтры.(Разная цель и результат).

[575-61]

P.s
http://bbs.vbstreets.ru/viewtopic.php?t=20247

[tyomitch]

P.s
http://bbs.vbstreets.ru/viewtopic.php?t=20247

Эта же самая ссылка - во втором ответе.

[AlexBlack]

Вот уже что-то похожее, но всёже не совсем.
Ктонить из профи может подправить чуточку?

[tyomitch]

Недовложение: Form1.frx

[AlexBlack]

ну я подумал, что картинку люд найдёт себе сам.

[AlexBlack]

tyomitch
Ну ты же смотрел пример! Где ответ?

[tyomitch]

Ответ на http://www.codeguru.com/Cpp/controls/ed ... php/c6857/

[AlexBlack]

Это всё очень здорово....
Но я не сишник. А был бы им не сидел бы на этом форуме.

Как это всё на вб переписать-то?

[AlexBlack]

Что, никто не знает, что ли?

[tyomitch]

AlexBlack, когда (если) будет свободное время - займусь. Пока его нет.

[AlexBlack]

Ладно. Понятно. Буду ждать.....
У меня просто кинка тонка на такие весчи...