Как убрать бордюр и написать поиск

[moris]

У текстового окна есть свойство borderstyle = 0 , а у WebBrowser нет. Что делать?

Подскажите, как его убрать... Киньте код, если можно, плиз.

Заодно вопросик, как можно написать поиска по html страничкам, как в авторанах делают, где про это можно почитать?

[Amed]

1)
Вот пример для TextBox:

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

'This project needs a TextBox
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const WS_BORDER As Long = &H800000

Public Sub SetBorder(NumberText As TextBox, Flag As Boolean)
    Dim curstyle As Long, newstyle As Long

    'retrieve the window style
    curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)

    If Flag Then
       curstyle = curstyle Or WS_BORDER
    Else
       curstyle = curstyle And (Not WS_BORDER)
    End If

    'Set the new style
    newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
    'refresh
    NumberText.Refresh
End Sub
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    SetBorder Text1, True
End Sub


[Amed]

Проблемка: WebBrowser1.HWND выдаёт ошибку:

Method 'HWND' of object 'IWebBrowser2' failed

Как найти hwnd WebBrowser'а?

[tyomitch]

Предположительно, FindWindowEx, зная заранее класс.

[Amed]

Ага... Класс Web Browser'а - 'Shell Embedding'.

Перебираем FindWindowEx'ом все окна с таким классом, пока GetParent(hWnd)<>Me.Hwnd. Затем всё просто (по моему коду в посте выше).

[tyomitch]

Даже без перебора: просто FindWindowEx(Me.hWnd, 0, "Shell Embedding", vbNullString)

[Amed]

Ой, и правда... Я что-то вспомнил декларацию FindWindow :/

[moris]

Ух пасиба ...