Controls - Combo as Codejock Combobox

Print Page | Close Window

Combo as Codejock Combobox

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Controls
Forum Description: Topics Related to Codejock Controls
URL: http://forum.codejock.com/forum_posts.asp?TID=20132
Printed Date: 19 February 2025 at 8:12pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Combo as Codejock Combobox

Posted By: MetallDesign
Subject: Combo as Codejock Combobox
Date 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

Replies:

Posted By: MetallDesign
Date 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