auto complete textbox

[Pirate]

hi again
I am programming my own Internet Explorer .I got stuck in the begining of all . I want to make auto complete addressbar , how can I do that ?
a lot of thanx

[Pirate]

any idea???

[Edneeis]

Add items to the list when the user presses enter and as they type search the list for matches.

[Pirate]

this sounds slow ,
Is there a "WebBrowser" object in vb.net ???VB6 used to have one.
oooh thanx

[Pirate]

Sorry I mean "WebBrowser" Control ???

[Lethal]

You can use COM Interop and just set a reference to the webbrowser component through the references.

[Pirate]

Can you direct me where can I find that control in IDE VB.NET??

[Pirate]

**** , it's more than an hour just to find that damn control

thanx a lot guys for your replies

[hellswraith]

Here is your answer, but you probably have found it by now.

Right click on your toolbox, select Customize Toolbox...

In the COM tab, you should find it and check it. Click OK.

It should now be at the bottom of your toolbox.

[Pirate]

thanx every1 for the help but the main question is still unresolved , which is the auto complete addressbar in the browser ????

[hellswraith]

I found this at Planet Source Code.
http://www.Planet-Source-Code.com/vb...=188&lngWId=10

Const CB_SHOWDROPDOWN = &H14F
    Const CB_FINDSTRING = &H14C
    Const CB_GETLBTEXTLEN = &H149
    Const CB_GETDROPPEDWIDTH = &H15F
    Const CB_SETDROPPEDWIDTH = &H160
 
    Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As System.IntPtr) As Long
 
    Private Structure SIZE
        Dim cx As Long
        Dim cy As Long
    End Structure
 
    Public Sub LockWindow(ByVal hwnd As System.IntPtr)
        Dim lRet As Long
        lRet = LockWindowUpdate(hwnd)
    End Sub
    Private Sub ReleaseWindow()
        Dim lRet As Long
        lRet = LockWindowUpdate(Nothing)
    End Sub
 
    Private Sub ComboDropdown(ByRef comboObj As ComboBox)
        Call SendMessage(comboObj.Handle, CB_SHOWDROPDOWN, 1, 0&)
    End Sub
    Private Sub ComboRetract(ByRef comboObj As ComboBox)
        Call SendMessage(comboObj.Handle, CB_SHOWDROPDOWN, 0, 0&)
    End Sub
 
    Public Function ComboAutoComplete(ByRef comboObj As ComboBox) As Boolean
        Dim lngItemNum As Long
        Dim lngSelectedLength As Long
        Dim lngMatchLength As Long
        Dim strCurrentText As String
        Dim strSearchText As string
        Dim sTypedText As String
        Const CB_LOCKED = &H255
        Try
            With (comboObj)
                If .Text = Nothing Then
                    Exit Function
                End If
                Call LockWindow(.Handle)
                If ((InStr(1, .Text, .Tag, vbTextCompare) <> 0 And Len(.Tag) = Len(.Text) - 1) Or (Left(.Text, 1) <> Left(.Tag, 1) And .Tag <> Nothing)) And .Tag <> CStr(CB_LOCKED) Then
                    'If ((InStr(.Text, .Tag) <> 0) Or (.Tag <> Nothing) And .Tag <> CStr(CB_LOCKED)) Then
                    'Dim strSearchText() As Object = {.Text}
                    strSearchText = .Text
                    lngSelectedLength = Len(strSearchText)
 
                    'lngItemNum = SendMessage(.Handle, CB_FINDSTRING, -1, .Text.ToCharArray)
                    lngItemNum = .FindString(strSearchText)
                    ComboAutoComplete = Not (lngItemNum = -1)
 
                    If ComboAutoComplete Then
                        'lngMatchLength = Len(.Items.Item(lngItemNum))
                        '.Tag = CB_LOCKED
                        'sTypedText = strSearchText
                        '.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength)
                        '.Tag = sTypedText
                        '.SelectionStart = lngSelectedLength
                        '.SelectionLength = lngMatchLength
                        lngMatchLength = Len(.Items.Item(lngItemNum)) - lngSelectedLength
                        '  If lngMatchLength <> lngSelectedLength Then
                        .Tag = CB_LOCKED
                        sTypedText = strSearchText
                        .Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength)
                        'strSearchText = .Items.Item(lngItemNum)
                        .SelectionStart = lngSelectedLength
                        Dim Temp As Integer
                        Temp = lngMatchLength
                        .SelectionLength = Temp
                        '.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength)
                        .Tag = sTypedText
                        '.Text = strSearchText
                        'Else
                        ' End If
                    ' .SelectionStart = Len(.Tag)
                    ' .SelectionLength = .Text.Length - Len(.Tag)
                    'End If
                End If
                ElseIf .Tag <> CStr(CB_LOCKED) Then
                .Tag = .Text
                End If
                Call ReleaseWindow()
            End With
        Catch err As Exception
            MsgBox(err.Message & err.StackTrace)
        End Try
    End Function

[Pirate]

thanx for that LONG way . Is there another tricky code to solve that ????