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
Printable View
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
any idea???:rolleyes:
Add items to the list when the user presses enter and as they type search the list for matches.
this sounds slow ,
Is there a "WebBrowser" object in vb.net ???VB6 used to have one.
oooh thanx :rolleyes:
Sorry I mean "WebBrowser" Control ???
You can use COM Interop and just set a reference to the webbrowser component through the references.
Can you direct me where can I find that control in IDE VB.NET??:rolleyes:
**** , it's more than an hour just to find that damn control
thanx a lot guys for your replies:D :D
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.
thanx every1 for the help but the main question is still unresolved , which is the auto complete addressbar in the browser ????
;)
I found this at Planet Source Code.
http://www.Planet-Source-Code.com/vb...=188&lngWId=10
VB Code:
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
thanx for that LONG way ;) . Is there another tricky code to solve that ????