Sheridan Ocx

[luca90]

i have dowloded the Sheridan ocx and it work fine...
But i have only 6 option/command existis a new free version of this ocx with other option/command?
Tks.

[RhinoBull]

I'm not quite sure I understand you...

[iPrank]

Not sure what your problem is.
Sheridan Controls are discontinued in VB6. See if this MSKB article helps you.

[luca90]

Not sure what your problem is.
Sheridan Controls are discontinued in VB6. See if this MSKB article helps you.

Hi iPrank tks for note... but i use simply the control Sheridan to colorize the text in command botton ... i dont know other way to make tath, and you?

[iPrank]

There is a workaround,
Use a checkbox and set it's Style=Graphical during designtime - it will look just like a command-button. You can change it's forecolor.

Option Explicit
 
Private Sub Check1_Click()
    If Check1.Value = vbChecked Then
        Check1.Value = vbUnchecked
        
        '--------------------------------------------
        ' Put the codes from Command1_Click here ->
        Check1.ForeColor = QBColor(Rnd * 16)
        MsgBox "Hello world"
        '--------------------------------------------
    End If
    
End Sub

[RhinoBull]

Using Option button will have the same effect as Checkbox.

[luca90]

There is a workaround,
Use a checkbox and set it's Style=Graphical during designtime - it will look just like a command-button. You can change it's forecolor.

Option Explicit
 
Private Sub Check1_Click()
    If Check1.Value = vbChecked Then
        Check1.Value = vbUnchecked
        
        '--------------------------------------------
        ' Put the codes from Command1_Click here ->
        Check1.ForeColor = QBColor(Rnd * 16)
        MsgBox "Hello world"
        '--------------------------------------------
    End If
    
End Sub

Tks but not completly understand... little zip file with example?

[iPrank]

Using Option button will have the same effect as Checkbox.

But more than one optbtn in same container (non-control array) may cause problem.

Edit: Sorry.


@luca90,
just add a checkbox in your form, change its Style to Graphical from Properties window (hit F4 when the checkbox is selected in the form designer) and paste the code.
Now run it and press the checkbox. You'll understand.
Edit:
As Rhino mentioned, it will be easier with Option buttons.

Private Sub Option1_Click()
    Option1.Value = False
        '--------------------------------------------
        ' Put the codes from Command1_Click here ->
        Option1.ForeColor = QBColor(Rnd * 16)
        MsgBox "Hello world"
End Sub

[RhinoBull]

No need to sorry Prank - you can use either control.