Text Contrast VB 6.0 [RESOLVED]

[penagate]

Yeah, post it.

Does it change the opacity of the form or the control?

[dglienna]

Not sure what it's supposed to do, as I couldn't get anything working.

Let me know if you do. It recognizes that the OS is sufficient.
Command1 makes the slider disappear, I think Command2 is supposed to bring it back, but it doesn't. Command3 seems to say whether the slider is visible or not, but says true when it isn't visible. Kind of a mess.

Post back if you figure it out. I need a good sample.

[penagate]

Dunno what was wrong with that one. There seemed to be a lot of redundant code.

Anyway, here is a quick example that I just knocked up. Should be sufficient to demonstrate both getting the OS version and setting the window opacity.

[dglienna]

Very cool. That's the way that it's supposed to work. Half the code, also.
I guess I won't mention where I found it. It wasn't here.

Thanks.

[penagate]

I can't seem to get it to work with anything except forms. I'll keep trying though

[stilekid007]

Hello guys! That looks like a very sweet opacity slider... That is what I am looking for except a slider that makes the text in the forms transparent... Don't bother if its too much.. Its not really the most immportant thing in my prog. I just thought I would see if anyone had any ideas... I should probably not even have it in my program but it would be more for entertainment... Its a very nice example though penagate! Thank you! I might add that code exept have it as a command button to completly hide the form (Without a slider) So thanks!

And thank you dglienna for your helpfull posts!

So yea thats what I will do.. Put that code to a command button instead of a slider and it will be perfect!

Thank you to all! and have a great day!
Stilekid007

[Max_aka_NOBODY]

Maybe it would make sense to simulate transparency by changing the text color. If that's the case, use something like this:

Private Sub sldOpacity_Change
 
'Min=0
'Max=255
'This is to be used on a white form.
'Otherwise you'll need to customize the colors.
 
label1.ForeColor=RGB(sldOpacity.Value, sldOpacity.Value, sldOpacity.Value)
 
End Sub