Codejock Developer Community : Combo as Codejock Combobox http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 04:19:45 +0000 Wed, 19 Sep 2012 10:10:00 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=20132 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Combo as Codejock Combobox : i have got it Public Function...]]> http://forum.codejock.com/forum_posts.asp?TID=20132&PID=68919&title=combo-as-codejock-combobox#68919 Author: MetallDesign
Subject: 20132
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
]]> Wed, 19 Sep 2012 10:10:00 +0000 http://forum.codejock.com/forum_posts.asp?TID=20132&PID=68919&title=combo-as-codejock-combobox#68919 <![CDATA[Combo as Codejock Combobox : Hello How to declare a Codejock...]]> http://forum.codejock.com/forum_posts.asp?TID=20132&PID=68918&title=combo-as-codejock-combobox#68918 Author: MetallDesign
Subject: 20132
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
]]> Wed, 19 Sep 2012 04:38:37 +0000 http://forum.codejock.com/forum_posts.asp?TID=20132&PID=68918&title=combo-as-codejock-combobox#68918