Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=414486&view=findpost&p=3794764 Thu, 04 Apr 2019 17:48:12 +0000 помогите доделать прозрачный текстбокс https://forum.sources.ru/index.php?showtopic=414486&view=findpost&p=3794764 Прозрачный текстбокс. Помогите пожалуйста доделать :)

Десять лет как с куста]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414486&view=findpost&p=3794631 Wed, 03 Apr 2019 13:31:59 +0000 помогите доделать прозрачный текстбокс https://forum.sources.ru/index.php?showtopic=414486&view=findpost&p=3794631
На форме создаю тесктэдит:

    hwndTx = CreateWindowExW(WS_EX_TRANSPARENT _
           , StrPtr("Edit"), StrPtr("ля-ля-ля") _
           , WS_BORDER Or WS_CHILD Or WS_VISIBLE Or &H4& _
           , 0, 0, 150, 150, Me.hwnd, 0, App.hInstance, 0)


Сублкассирую и эдит, и форму.
В винпрок это:

    Public Function winProc(ByVal hwnd As Long, uMsg As Long, wParam As Long, lParam As Long, ByVal PrevProc As Long) As Long
        Dim aRect As RECT
        
        Select Case uMsg
        Case WM_CTLCOLOREDIT
             winProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
             If hwnd = hwndF Then
                SetBkMode wParam, 1
             End If
    '    Case WM_PAINT
        Case WM_ERASEBKGND
           If hwnd = hwndTx Then
              '  winProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
           Else
               winProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
           End If
        Case Else
           winProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
        End Select
    End Function


Эдит отлично работает - можно печатать, можно выделять текст. Но - не затирает то, что уже не действительно. Стираешь текст - картинка от него остаётся. Если утащить окно за край экрана, а потом вернуть - эдит приобретает должный вид. Как побороть?

TransparentTextBox.zip (, : 138) ]]> Артур Visual Basic: Общие вопросы