Results 1 to 4 of 4

Thread: HSlider - Small slider control

  1. #1

    Thread Starter
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    HSlider - Small slider control

    Inspired by things like the volume slider in the YouTube web page video player UI. Plenty of ways it could be customized.

    Good for things like putting a volume slider into toolbars, statusbars, etc.

    Min/Max and Value can be negative, but Min must always be less than Max. Max less than Min could be handled too, but I didn't bother to add that.
    Attached Files Attached Files

  2. #2
    Lively Member
    Join Date
    Aug 2020
    Location
    Victoria Texas 77904
    Posts
    73

    Re: HSlider - Small slider control

    need to add Usercontrol_Show and type in Draw. This will show control in IDE. I will be adding Border color ,Knob color and the two backcolors to mine.

  3. #3
    Hyperactive Member
    Join Date
    Jun 2016
    Location
    EspaƱa
    Posts
    506

    Re: HSlider - Small slider control

    Very good work
    The control is not displayed the slider line only when the value is changed.
    It solves it that way.
    Code:
    Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
        With PropBag
            mMax = .ReadProperty("Max", MAX_DEFAULT)
            mMin = .ReadProperty("Min", MIN_DEFAULT)
            mValue = .ReadProperty("Value", VALUE_DEFAULT)
        End With
        Draw
    End Sub
    a greeting

  4. #4

    Thread Starter
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    Re: HSlider - Small slider control

    Shows up in the IDE just fine here as it is.

    Did you miss applying the appcompat fix VirtualizeDesktopPainting to VB6.EXE?

Posting Permissions

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



Click Here to Expand Forum to Full Width