Results 1 to 40 of 4199

Thread: CommonControls (Replacement of the MS common controls)

Hybrid View

  1. Jun 28th, 2013, 03:20 AM #1
    Bonnie West
    Bonnie West is offline
    Default Member Bonnie West's Avatar
    Join Date
    Jun 2012
    Location
    InIDE
    Posts
    4,060

    Re: CommonControls (Replacement of the MS common controls)

    Quote Originally Posted by dartguru View Post
    how do I now get to use that in an existing project. I presume I need to include something to replace mscomctl.ocx.
    Quote Originally Posted by dartguru View Post
    How do I now use that in my own project as a replacement for the common control that aren't working.
    Which specific common control(s) do you wish to use?
    On Local Error Resume Next: If Not Empty Is Nothing Then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(CLng(CInt(CBool(False Imp True Xor False Eqv True)))): Stop: On Local Error GoTo 0
    Declare Sub CrashVB Lib "msvbvm60" (Optional DontPassMe As Any)
    Reply With Quote Reply With Quote
  2. Jun 28th, 2013, 03:28 AM #2
    dartguru
    dartguru is offline
    New Member
    Join Date
    Jun 2013
    Posts
    10

    Re: CommonControls (Replacement of the MS common controls)

    Quote Originally Posted by Bonnie West View Post
    Which specific common control(s) do you wish to use?
    It looks like just lstView and ProgressBar1
    Reply With Quote Reply With Quote
  3. Jun 28th, 2013, 04:26 AM #3
    Bonnie West
    Bonnie West is offline
    Default Member Bonnie West's Avatar
    Join Date
    Jun 2012
    Location
    InIDE
    Posts
    4,060

    Re: CommonControls (Replacement of the MS common controls)

    Quote Originally Posted by dartguru View Post
    It looks like just lstView and ProgressBar1
    Copy/Move the following files and folders to a new folder:


    • [ListView]
    • [ProgressBar]
    • ComCtlsBase.bas
    • Common.bas
    • VisualStyles.bas
    • VTableHandle.bas
    • Enumeration.cls
    • ISubclass.cls
    • VTableSubclass.cls


    Finally, copy/move the OLEGuids.tlb file to the "Windows\System32\" directory and set a reference to it through the VB6 IDE's References dialog box.



    EDIT

    Of course, you'll have to import all of those files into your project (except for *.CTX files). The easiest way of doing that is to drag and drop them onto the Project Explorer window.
    Last edited by Bonnie West; Jun 28th, 2013 at 06:33 AM.
    On Local Error Resume Next: If Not Empty Is Nothing Then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(CLng(CInt(CBool(False Imp True Xor False Eqv True)))): Stop: On Local Error GoTo 0
    Declare Sub CrashVB Lib "msvbvm60" (Optional DontPassMe As Any)
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width