Combo as Codejock Combobox

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello

How to declare a Codejock Combobox in Vb6? I have Errorcode 13,  Type MissMatch, see Code below...This Function runs in a Module normal with VB Standart Combobox...

Public Function Search_String_Combobox(Combo As ComboBox, lstrSearchTxt As String) As Integer

    Dim lintLoop    As Integer
    Dim lintLen     As Integer

    lintLen = Len(lstrSearchTxt)
    For lintLoop = 0 To Combo.ListCount
        If Left$(Combo.List(lintLoop), lintLen) = lstrSearchTxt Then
            Search_String_Combobox = lintLoop
            Exit Function
        End If
    Next lintLoop
    Search_String_Combobox = -1 'When Not found

End Function

Thanks for your Helps

Ramon

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
MetallDesign Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 23 September 2008 Location: Switzerland Status: Offline Points: 16	Post Options Post Reply Quote MetallDesign Report Post Thanks(0) Quote Reply Topic: Combo as Codejock Combobox Posted: 19 September 2012 at 4:38am
	Hello How to declare a Codejock Combobox in Vb6? I have Errorcode 13, Type MissMatch, see Code below...This Function runs in a Module normal with VB Standart Combobox... Public Function Search_String_Combobox(Combo As ComboBox, lstrSearchTxt As String) As Integer Dim lintLoop As Integer Dim lintLen As Integer lintLen = Len(lstrSearchTxt) For lintLoop = 0 To Combo.ListCount If Left$(Combo.List(lintLoop), lintLen) = lstrSearchTxt Then Search_String_Combobox = lintLoop Exit Function End If Next lintLoop Search_String_Combobox = -1 'When Not found End Function Thanks for your Helps Ramon

MetallDesign Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 23 September 2008 Location: Switzerland Status: Offline Points: 16	Post Options Post Reply Quote MetallDesign Report Post Thanks(0) Quote Reply Posted: 19 September 2012 at 10:10am
	i have got it Public Function Search_String_Combobox(ByVal Combo As XtremeSuiteControls.ComboBox, lstrSearchTxt As String) As Integer Thanks